13 |
|
|
14 |
C !DESCRIPTION: |
C !DESCRIPTION: |
15 |
C Define MNC variables for use by the coupler. |
C Define MNC variables for use by the coupler. |
16 |
|
|
17 |
C !USES: |
C !USES: |
18 |
IMPLICIT NONE |
IMPLICIT NONE |
19 |
#include "SIZE.h" |
#include "SIZE.h" |
20 |
#include "EEPARAMS.h" |
#include "EEPARAMS.h" |
21 |
#include "PARAMS.h" |
#include "PARAMS.h" |
|
#include "DYNVARS.h" |
|
|
#include "GRID.h" |
|
22 |
|
|
23 |
C !INPUT PARAMETERS: |
C !INPUT PARAMETERS: |
24 |
INTEGER myThid |
INTEGER myThid |
58 |
CALL MNC_CW_ADD_VATTR_TEXT('FWtave','note', |
CALL MNC_CW_ADD_VATTR_TEXT('FWtave','note', |
59 |
& 'equals E-P-R', myThid) |
& 'equals E-P-R', myThid) |
60 |
CALL MNC_CW_ADD_VATTR_TEXT('FWtave','units','kg/m^2/s', myThid) |
CALL MNC_CW_ADD_VATTR_TEXT('FWtave','units','kg/m^2/s', myThid) |
61 |
|
|
62 |
CALL MNC_CW_ADD_VNAME('SFxtave','Cen_xy_Hn__-__t',3,4,myThid) |
CALL MNC_CW_ADD_VNAME('SFxtave','Cen_xy_Hn__-__t',3,4,myThid) |
63 |
CALL MNC_CW_ADD_VATTR_TEXT('SFxtave','long_name', |
CALL MNC_CW_ADD_VATTR_TEXT('SFxtave','long_name', |
64 |
& 'salt flux from sea-ice', myThid) |
& 'salt flux from sea-ice', myThid) |
65 |
CALL MNC_CW_ADD_VATTR_TEXT('SFxtave','units','psu.kg/m^2/s', |
CALL MNC_CW_ADD_VATTR_TEXT('SFxtave','units','psu.kg/m^2/s', |
66 |
& myThid) |
& myThid) |
67 |
|
|
68 |
CALL MNC_CW_ADD_VNAME('SICtave','Cen_xy_Hn__-__t',3,4,myThid) |
CALL MNC_CW_ADD_VNAME('SICtave','Cen_xy_Hn__-__t',3,4,myThid) |
110 |
& 'ocean CO2 flux -> atm', myThid) |
& 'ocean CO2 flux -> atm', myThid) |
111 |
CALL MNC_CW_ADD_VATTR_TEXT('fCO2tave','units','mol/m2/s',myThid) |
CALL MNC_CW_ADD_VATTR_TEXT('fCO2tave','units','mol/m2/s',myThid) |
112 |
|
|
|
|
|
113 |
ENDIF |
ENDIF |
114 |
#endif /* ALLOW_MNC */ |
#endif /* ALLOW_MNC */ |
115 |
|
|