/[MITgcm]/MITgcm/pkg/exf/exf_ad_dump.F
ViewVC logotype

Diff of /MITgcm/pkg/exf/exf_ad_dump.F

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

revision 1.1 by heimbach, Thu Oct 25 18:41:04 2007 UTC revision 1.2 by heimbach, Thu Oct 25 19:08:08 2007 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
4    #include "AD_CONFIG.h"
5  #include "PACKAGES_CONFIG.h"  #include "PACKAGES_CONFIG.h"
6  #include "EXF_OPTIONS.h"  #include "EXF_OPTIONS.h"
7    
# Line 94  C--     Read IO error counter Line 95  C--     Read IO error counter
95       &       1,  adsflux, 1, myIter, myThid )       &       1,  adsflux, 1, myIter, myThid )
96          CALL MDSWRITEFIELD(          CALL MDSWRITEFIELD(
97       &       'ADJustress.'//suff, writeBinaryPrec, globalFiles, 'RL',       &       'ADJustress.'//suff, writeBinaryPrec, globalFiles, 'RL',
98       &       1,  ustress, 1, myIter, myThid )       &       1,  adustress, 1, myIter, myThid )
99          CALL MDSWRITEFIELD(          CALL MDSWRITEFIELD(
100       &       'ADJvstress.'//suff, writeBinaryPrec, globalFiles, 'RL',       &       'ADJvstress.'//suff, writeBinaryPrec, globalFiles, 'RL',
101       &       1,  vstress, 1, myIter, myThid )       &       1,  advstress, 1, myIter, myThid )
102    
103  # ifdef ALLOW_ATM_TEMP  # ifdef ALLOW_ATM_TEMP
104          CALL MDSWRITEFIELD(          CALL MDSWRITEFIELD(
# Line 130  C--     Read IO error counter Line 131  C--     Read IO error counter
131       &       1,  adlwdown, 1, myIter, myThid )       &       1,  adlwdown, 1, myIter, myThid )
132  # endif  # endif
133  # ifdef ATMOSPHERIC_LOADING  # ifdef ATMOSPHERIC_LOADING
134          CALL MDSWRITEFIELD(  cph        CALL MDSWRITEFIELD(
135       &       'ADJapressure.'//suff, writeBinaryPrec, globalFiles, 'RL',  cph     &       'ADJapressure.'//suff, writeBinaryPrec, globalFiles, 'RL',
136       &       1,  adapressure, 1, myIter, myThid )  cph     &       1,  adapressure, 1, myIter, myThid )
137  # endif  # endif
138  # if defined(ALLOW_ATM_TEMP) || defined(SHORTWAVE_HEATING)  # if defined(ALLOW_ATM_TEMP) || defined(SHORTWAVE_HEATING)
139          CALL MDSWRITEFIELD(  cph        CALL MDSWRITEFIELD(
140       &       'ADJswflux.'//suff, writeBinaryPrec, globalFiles, 'RL',  cph     &       'ADJswflux.'//suff, writeBinaryPrec, globalFiles, 'RL',
141       &       1,  adswflux, 1, myIter, myThid )  cph     &       1,  adswflux, 1, myIter, myThid )
142  # endif  # endif
143  # if defined(ALLOW_ATM_TEMP) || defined(EXF_READ_EVAP)  # if defined(ALLOW_ATM_TEMP) || defined(EXF_READ_EVAP)
144          CALL MDSWRITEFIELD(  cph        CALL MDSWRITEFIELD(
145       &       'ADJevap.'//suff, writeBinaryPrec, globalFiles, 'RL',  cph     &       'ADJevap.'//suff, writeBinaryPrec, globalFiles, 'RL',
146       &       1,  adevap, 1, myIter, myThid )  cph     &       1,  adevap, 1, myIter, myThid )
147  # endif  # endif
148    
149         _END_MASTER( myThid )         _END_MASTER( myThid )
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22