/[MITgcm]/MITgcm/model/src/ini_parms.F
ViewVC logotype

Diff of /MITgcm/model/src/ini_parms.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.108 by heimbach, Thu Mar 4 04:00:12 2004 UTC revision 1.109 by adcroft, Thu May 13 15:40:53 2004 UTC
# Line 495  C--   z,p,r coord input switching. Line 495  C--   z,p,r coord input switching.
495        ELSE        ELSE
496         recip_gravity = 1.D0 / gravity         recip_gravity = 1.D0 / gravity
497        ENDIF        ENDIF
498    C     This flags are now passed to RW and MDSIO packages in ini_model_io.F
499  C     Set globalFiles flag for READ_WRITE_FLD package  C     Set globalFiles flag for READ_WRITE_FLD package
500        CALL SET_WRITE_GLOBAL_FLD( globalFiles )  c     CALL SET_WRITE_GLOBAL_FLD( globalFiles )
501  C     Set globalFiles flag for READ_WRITE_REC package  C     Set globalFiles flag for READ_WRITE_REC package
502        CALL SET_WRITE_GLOBAL_REC( globalFiles )  c     CALL SET_WRITE_GLOBAL_REC( globalFiles )
503  C     Set globalFiles flag for READ_WRITE_REC package  C     Set globalFiles flag for READ_WRITE_REC package
504        CALL SET_WRITE_GLOBAL_PICKUP( globalFiles )  c     CALL SET_WRITE_GLOBAL_PICKUP( globalFiles )
505    
506  C     Check for retired parameters still being used  C     Check for retired parameters still being used
507        nRetired = 0        nRetired = 0
Legend:
Removed from v.1.108  
changed lines
  Added in v.1.109
  ViewVC Help
Powered by ViewVC 1.1.22