/[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.18 by mlosch, Wed Aug 7 16:55:52 2002 UTC revision 1.19 by mlosch, Wed Sep 18 16:38:02 2002 UTC
# Line 130  C         transfer analyse a particular Line 130  C         transfer analyse a particular
130          CALL WRITE_FLD_XYZ_RL( 'S.',suff,salt,myIter,myThid)          CALL WRITE_FLD_XYZ_RL( 'S.',suff,salt,myIter,myThid)
131          CALL WRITE_FLD_XY_RL('Eta.',suff,etaN,myIter,myThid)          CALL WRITE_FLD_XY_RL('Eta.',suff,etaN,myIter,myThid)
132          CALL WRITE_FLD_XYZ_RL( 'W.',suff,wVel,myIter,myThid)          CALL WRITE_FLD_XYZ_RL( 'W.',suff,wVel,myIter,myThid)
133          CALL WRITE_FLD_XYZ_RL( 'P.',suff,pressure,myIter,myThid)          if ( buoyancyRelation .eq. 'OCEANIC' .and.
134         &       (    equationOfState .eq. 'JMD95P'
135         &       .or. equationOfState .eq. 'MDJWF'
136         &       .or. equationOfState .eq. 'UNESCO' ) ) then
137               CALL WRITE_FLD_XYZ_RL( 'P.',suff,pressure,myIter,myThid)
138            end if
139            if ( buoyancyRelation .ne. 'ATMOSPHERIC' )
140         &     CALL WRITE_FLD_XY_RL('PHL.',suff,phiHydLow,myIter,myThid)
141  #ifdef ALLOW_PASSIVE_TRACER  #ifdef ALLOW_PASSIVE_TRACER
142          CALL WRITE_FLD_XYZ_RL( 'TR1.',suff,tr1,myIter,myThid)          CALL WRITE_FLD_XYZ_RL( 'TR1.',suff,tr1,myIter,myThid)
143  #endif  #endif
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19
  ViewVC Help
Powered by ViewVC 1.1.22