pkg/ocn_compon_interf/cpl_init_fixed.F

6bfee994e4 Jean*0001 #include "OCN_CPL_OPTIONS.h"
6c5a9380b0 Ed H*0002
                0003 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0004 CBOP
                0005 C     !ROUTINE: CPL_INIT_FIXED
                0006
                0007 C     !INTERFACE:
                0008       SUBROUTINE CPL_INIT_FIXED( myThid )
                0009
                0010 C     !DESCRIPTION:
                0011 C     Define MNC variables for use by the coupler.
5875e34770 Jean*0012
6c5a9380b0 Ed H*0013 C     !USES:
                0014       IMPLICIT NONE
                0015 #include "SIZE.h"
                0016 #include "EEPARAMS.h"
                0017 #include "PARAMS.h"
                0018
                0019 C     !INPUT PARAMETERS:
                0020       INTEGER myThid
                0021 CEOP
                0022
                0023 #ifdef ALLOW_MNC
                0024       IF (useMNC) THEN
                0025
                0026         CALL MNC_CW_ADD_VNAME('SLPtave','Cen_xy_Hn__-__t',3,4,myThid)
                0027         CALL MNC_CW_ADD_VATTR_TEXT('SLPtave','long_name',
                0028      &       'Atmospheric Sea-Level pressure', myThid)
                0029         CALL MNC_CW_ADD_VATTR_TEXT('SLPtave','units','N/m2', myThid)
                0030
                0031         CALL MNC_CW_ADD_VNAME('HFtave', 'Cen_xy_Hn__-__t',3,4,myThid)
                0032         CALL MNC_CW_ADD_VATTR_TEXT('HFtave','long_name',
                0033      &       'Net surface heat-flux', myThid)
                0034         CALL MNC_CW_ADD_VATTR_TEXT('HFtave','units','W/m2', myThid)
                0035
                0036         CALL MNC_CW_ADD_VNAME('QSWtave','Cen_xy_Hn__-__t',3,4,myThid)
                0037         CALL MNC_CW_ADD_VATTR_TEXT('QSWtave','long_name',
                0038      &       '', myThid)
                0039         CALL MNC_CW_ADD_VATTR_TEXT('QSWtave','units','W/m2', myThid)
                0040
                0041         CALL MNC_CW_ADD_VNAME('TXtave', 'Cen_xy_Hn__-__t',3,4,myThid)
                0042         CALL MNC_CW_ADD_VATTR_TEXT('TXtave','long_name',
                0043      &       'surface stress in X', myThid)
                0044         CALL MNC_CW_ADD_VATTR_TEXT('TXtave','units','N/m2', myThid)
                0045
                0046         CALL MNC_CW_ADD_VNAME('TYtave', 'Cen_xy_Hn__-__t',3,4,myThid)
                0047         CALL MNC_CW_ADD_VATTR_TEXT('TYtave','long_name',
                0048      &       'surface stress in Y', myThid)
                0049         CALL MNC_CW_ADD_VATTR_TEXT('TYtave','units','N/m2', myThid)
                0050
                0051         CALL MNC_CW_ADD_VNAME('FWtave', 'Cen_xy_Hn__-__t',3,4,myThid)
                0052         CALL MNC_CW_ADD_VATTR_TEXT('FWtave','long_name',
                0053      &       'Net fresh water flux', myThid)
                0054         CALL MNC_CW_ADD_VATTR_TEXT('FWtave','note',
                0055      &       'equals E-P-R', myThid)
dd14cadd62 Davi*0056         CALL MNC_CW_ADD_VATTR_TEXT('FWtave','units','kg/m^2/s', myThid)
5875e34770 Jean*0057
6c5a9380b0 Ed H*0058         CALL MNC_CW_ADD_VNAME('SFxtave','Cen_xy_Hn__-__t',3,4,myThid)
                0059         CALL MNC_CW_ADD_VATTR_TEXT('SFxtave','long_name',
                0060      &       'salt flux from sea-ice', myThid)
ba0b047096 Mart*0061         CALL MNC_CW_ADD_VATTR_TEXT('SFxtave','units','g/m^2/s',
6c5a9380b0 Ed H*0062      &       myThid)
                0063
                0064         CALL MNC_CW_ADD_VNAME('SICtave','Cen_xy_Hn__-__t',3,4,myThid)
                0065         CALL MNC_CW_ADD_VATTR_TEXT('SICtave','long_name',
                0066      &       'sea-ice mass', myThid)
                0067         CALL MNC_CW_ADD_VATTR_TEXT('SICtave','units','kg/m^2',myThid)
                0068
                0069         CALL MNC_CW_ADD_VNAME('MXLtave','Cen_xy_Hn__-__t',3,4,myThid)
                0070         CALL MNC_CW_ADD_VATTR_TEXT('MXLtave','long_name',
                0071      &       'Ocean mixed-layer depth', myThid)
                0072         CALL MNC_CW_ADD_VATTR_TEXT('MXLtave','units','m', myThid)
                0073
                0074         CALL MNC_CW_ADD_VNAME('SSTtave','Cen_xy_Hn__-__t',3,4,myThid)
                0075         CALL MNC_CW_ADD_VATTR_TEXT('SSTtave','long_name',
                0076      &       'ocean surface temperature', myThid)
                0077         CALL MNC_CW_ADD_VATTR_TEXT('SSTtave','units','degC', myThid)
                0078
                0079         CALL MNC_CW_ADD_VNAME('SSStave','Cen_xy_Hn__-__t',3,4,myThid)
                0080         CALL MNC_CW_ADD_VATTR_TEXT('SSStave','long_name',
                0081      &       'ocean surface salinity', myThid)
ba0b047096 Mart*0082         CALL MNC_CW_ADD_VATTR_TEXT('SSStave','units','g/kg', myThid)
6c5a9380b0 Ed H*0083
                0084         CALL MNC_CW_ADD_VNAME('vSqtave','Cen_xy_Hn__-__t',3,4,myThid)
                0085         CALL MNC_CW_ADD_VATTR_TEXT('vSqtave','long_name',
                0086      &       'ocean surface velocity square', myThid)
                0087         CALL MNC_CW_ADD_VATTR_TEXT('vSqtave','units','m^2/s^2',myThid)
                0088
e7c6a47db7 Jeff*0089         CALL MNC_CW_ADD_VNAME('aCO2tave','Cen_xy_Hn__-__t',3,4,myThid)
                0090         CALL MNC_CW_ADD_VATTR_TEXT('aCO2tave','long_name',
                0091      &       'atm CO2 level', myThid)
                0092         CALL MNC_CW_ADD_VATTR_TEXT('aCO2tave','units','parts',myThid)
                0093
                0094         CALL MNC_CW_ADD_VNAME('sWSpdtave','Cen_xy_Hn__-__t',3,4,myThid)
                0095         CALL MNC_CW_ADD_VATTR_TEXT('sWSpdtave','long_name',
                0096      &       'surface wind speed', myThid)
                0097         CALL MNC_CW_ADD_VATTR_TEXT('sWSpdtave','units','m/s',myThid)
                0098
                0099         CALL MNC_CW_ADD_VNAME('iceftave','Cen_xy_Hn__-__t',3,4,myThid)
                0100         CALL MNC_CW_ADD_VATTR_TEXT('iceftave','long_name',
                0101      &       'ocean seaice fraction', myThid)
                0102         CALL MNC_CW_ADD_VATTR_TEXT('iceftave','units','non-dim',myThid)
                0103
                0104         CALL MNC_CW_ADD_VNAME('fCO2tave','Cen_xy_Hn__-__t',3,4,myThid)
                0105         CALL MNC_CW_ADD_VATTR_TEXT('fCO2tave','long_name',
                0106      &       'ocean CO2 flux -> atm', myThid)
                0107         CALL MNC_CW_ADD_VATTR_TEXT('fCO2tave','units','mol/m2/s',myThid)
                0108
6c5a9380b0 Ed H*0109       ENDIF
                0110 #endif /* ALLOW_MNC */
                0111
9a4f5fc78a Jean*0112 #ifdef ALLOW_DIAGNOSTICS
                0113       IF ( useDiagnostics ) THEN
                0114         CALL CPL_DIAGNOSTICS_INIT( myThid )
                0115       ENDIF
                0116 #endif
                0117
6c5a9380b0 Ed H*0118       RETURN
                0119       END