/[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.91 by dimitri, Tue Feb 18 05:33:54 2003 UTC revision 1.92 by jmc, Tue Feb 18 15:35:36 2003 UTC
# Line 844  C     Check for multiple coordinate syst Line 844  C     Check for multiple coordinate syst
844         STOP 'ABNORMAL END: S/R INI_PARMS'         STOP 'ABNORMAL END: S/R INI_PARMS'
845        ENDIF        ENDIF
846    
847    C--   When using the dynamical pressure in EOS (with Z-coord.),
848    C     needs to activate specific part of the code (restart & exchange)
849    c     useDynP_inEos_Zc = .FALSE.
850          useDynP_inEos_Zc = ( buoyancyRelation .EQ. 'OCEANIC'
851         &              .AND. ( eosType .EQ. 'JMD95P' .OR.
852         &                      eosType .EQ. 'UNESCO' .OR.
853         &                      eosType .EQ. 'MDJWF'       )  )
854    
855  C--   Input files  C--   Input files
856        READ(UNIT=iUnit,NML=PARM05) !,IOSTAT=errIO)        READ(UNIT=iUnit,NML=PARM05) !,IOSTAT=errIO)
857        IF ( errIO .LT. 0 ) THEN            IF ( errIO .LT. 0 ) THEN    
Legend:
Removed from v.1.91  
changed lines
  Added in v.1.92
  ViewVC Help
Powered by ViewVC 1.1.22