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 |
|
|
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( |
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 ) |