/[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.41 by adcroft, Mon Mar 22 15:54:04 1999 UTC revision 1.42 by adcroft, Wed May 5 18:32:34 1999 UTC
# Line 97  C--   Continuous equation parameters Line 97  C--   Continuous equation parameters
97       & viscAp, diffKpT, diffKpS, hFacMinDp,       & viscAp, diffKpT, diffKpS, hFacMinDp,
98       & rhoConst, buoyancyRelation, HeatCapacity_Cp,       & rhoConst, buoyancyRelation, HeatCapacity_Cp,
99       & writeBinaryPrec, readBinaryPrec, writeStatePrec,       & writeBinaryPrec, readBinaryPrec, writeStatePrec,
100       & openBoundaries, nonHydrostatic       & openBoundaries, nonHydrostatic, globalFiles,
101         & allowFreezing
102    
103  C--   Elliptic solver parameters  C--   Elliptic solver parameters
104        NAMELIST /PARM02/        NAMELIST /PARM02/
# Line 357  C--   z,p,r coord input switching. Line 358  C--   z,p,r coord input switching.
358        ELSE        ELSE
359         recip_gravity = 1.D0 / gravity         recip_gravity = 1.D0 / gravity
360        ENDIF        ENDIF
361    C     Set globalFiles flag for READ_WRITE_FLD package
362          CALL SET_WRITE_GLOBAL_FLD( globalFiles )
363    C     Set globalFiles flag for READ_WRITE_REC package
364          CALL SET_WRITE_GLOBAL_REC( globalFiles )
365    C     Set globalFiles flag for READ_WRITE_REC package
366          CALL SET_WRITE_GLOBAL_PICKUP( globalFiles )
367    
368  C--   Elliptic solver parameters  C--   Elliptic solver parameters
369        READ(UNIT=iUnit,NML=PARM02) !,IOSTAT=errIO)        READ(UNIT=iUnit,NML=PARM02) !,IOSTAT=errIO)
Legend:
Removed from v.1.41  
changed lines
  Added in v.1.42
  ViewVC Help
Powered by ViewVC 1.1.22