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

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

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

revision 1.20 by dimitri, Tue Feb 18 05:33:54 2003 UTC revision 1.21 by jmc, Tue Feb 18 15:25:09 2003 UTC
# Line 134  C         transfer analyse a particular Line 134  C         transfer analyse a particular
134          CALL WRITE_FLD_XYZ_RL( 'S.',suff,salt,myIter,myThid)          CALL WRITE_FLD_XYZ_RL( 'S.',suff,salt,myIter,myThid)
135          CALL WRITE_FLD_XY_RL('Eta.',suff,etaN,myIter,myThid)          CALL WRITE_FLD_XY_RL('Eta.',suff,etaN,myIter,myThid)
136          CALL WRITE_FLD_XYZ_RL( 'W.',suff,wVel,myIter,myThid)          CALL WRITE_FLD_XYZ_RL( 'W.',suff,wVel,myIter,myThid)
137          if ( buoyancyRelation .eq. 'OCEANIC' .and.          CALL WRITE_FLD_XYZ_RL( 'PH.',suff,totPhiHyd,myIter,myThid)
138       &       (    equationOfState .eq. 'JMD95P'          IF ( buoyancyRelation .NE. 'ATMOSPHERIC' )
139       &       .or. equationOfState .eq. 'MDJWF'       &   CALL WRITE_FLD_XY_RL('PHL.',suff,phiHydLow,myIter,myThid)
      &       .or. equationOfState .eq. 'UNESCO' ) ) then  
            CALL WRITE_FLD_XYZ_RL( 'P.',suff,pressure,myIter,myThid)  
         end if  
         if ( buoyancyRelation .ne. 'ATMOSPHERIC' )  
      &     CALL WRITE_FLD_XY_RL('PHL.',suff,phiHydLow,myIter,myThid)  
140  #ifdef ALLOW_PASSIVE_TRACER  #ifdef ALLOW_PASSIVE_TRACER
141          CALL WRITE_FLD_XYZ_RL( 'TR1.',suff,tr1,myIter,myThid)          CALL WRITE_FLD_XYZ_RL( 'TR1.',suff,tr1,myIter,myThid)
142  #endif  #endif
Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21
  ViewVC Help
Powered by ViewVC 1.1.22