pkg/dic/dic_mnc_init.F

3a1a157ebd Ed H*0001 #include "DIC_OPTIONS.h"
                0002
                0003 C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
                0004 CBOP
                0005 C     !ROUTINE: DIC_MNC_INIT
                0006
                0007 C     !INTERFACE:
                0008       SUBROUTINE DIC_MNC_INIT( myThid )
                0009
                0010 C     !DESCRIPTION:
                0011 C     Initialize MNC for DIC
                0012
                0013 C     !USES:
                0014       IMPLICIT NONE
                0015 #include "SIZE.h"
                0016 #include "EEPARAMS.h"
                0017 #include "PARAMS.h"
2e3e8c330d Jona*0018 #include "DIC_VARS.h"
3a1a157ebd Ed H*0019
                0020 C     !INPUT PARAMETERS:
                0021 C     myThid               :: thread number
                0022       INTEGER myThid
                0023 CEOP
                0024
                0025 #ifdef ALLOW_DIC
                0026 #ifdef ALLOW_MNC
                0027
                0028       IF ( useMNC ) THEN
                0029
                0030       CALL MNC_CW_ADD_VNAME(
                0031      &     'dic_BIO_ave', 'Cen_xy_Hn__C__t', 4,5, myThid)
                0032       CALL MNC_CW_ADD_VATTR_TEXT(
                0033      &     'dic_BIO_ave','units','--', myThid)
                0034       CALL MNC_CW_ADD_VATTR_TEXT('dic_BIO_ave','description',
                0035      &     '', myThid)
                0036
                0037       CALL MNC_CW_ADD_VNAME(
                0038      &     'dic_CAR_ave', 'Cen_xy_Hn__C__t', 4,5, myThid)
                0039       CALL MNC_CW_ADD_VATTR_TEXT(
                0040      &     'dic_CAR_ave','units','--', myThid)
                0041       CALL MNC_CW_ADD_VATTR_TEXT('dic_CAR_ave','description',
                0042      &     '', myThid)
                0043
                0044       CALL MNC_CW_ADD_VNAME(
                0045      &     'dic_SUR_ave', 'Cen_xy_Hn__-__t', 3,4, myThid)
                0046       CALL MNC_CW_ADD_VATTR_TEXT(
                0047      &     'dic_SUR_ave','units','--', myThid)
                0048       CALL MNC_CW_ADD_VATTR_TEXT('dic_SUR_ave','description',
                0049      &     '', myThid)
                0050
                0051       CALL MNC_CW_ADD_VNAME(
                0052      &     'dic_SURO_ave', 'Cen_xy_Hn__-__t', 3,4, myThid)
                0053       CALL MNC_CW_ADD_VATTR_TEXT(
                0054      &     'dic_SURO_ave','units','--', myThid)
                0055       CALL MNC_CW_ADD_VATTR_TEXT('dic_SURO_ave','description',
                0056      &     '', myThid)
                0057
                0058       CALL MNC_CW_ADD_VNAME(
                0059      &     'dic_pH_ave', 'Cen_xy_Hn__-__t', 3,4, myThid)
                0060       CALL MNC_CW_ADD_VATTR_TEXT(
                0061      &     'dic_pH_ave','units','--', myThid)
                0062       CALL MNC_CW_ADD_VATTR_TEXT('dic_pH_ave','description',
                0063      &     '', myThid)
                0064
                0065       CALL MNC_CW_ADD_VNAME(
                0066      &     'dic_pCO2_ave', 'Cen_xy_Hn__-__t', 3,4, myThid)
                0067       CALL MNC_CW_ADD_VATTR_TEXT(
                0068      &     'dic_pCO2_ave','units','--', myThid)
                0069       CALL MNC_CW_ADD_VATTR_TEXT('dic_pCO2_ave','description',
                0070      &     '', myThid)
                0071
                0072       CALL MNC_CW_ADD_VNAME(
                0073      &     'dic_fluxCO2_ave', 'Cen_xy_Hn__-__t', 3,4, myThid)
                0074       CALL MNC_CW_ADD_VATTR_TEXT(
                0075      &     'dic_fluxCO2_ave','units','--', myThid)
                0076       CALL MNC_CW_ADD_VATTR_TEXT('dic_fluxCO2_ave','description',
                0077      &     '', myThid)
                0078
4e9f2133df Step*0079       CALL MNC_CW_ADD_VNAME(
                0080      &     'dic_pflux_ave', 'Cen_xy_Hn__C__t', 4,5, myThid)
                0081       CALL MNC_CW_ADD_VATTR_TEXT(
                0082      &     'dic_pflux_ave','units','--', myThid)
                0083       CALL MNC_CW_ADD_VATTR_TEXT('dic_pflux_ave','description',
                0084      &     '', myThid)
                0085
                0086       CALL MNC_CW_ADD_VNAME(
65132eb687 Step*0087      &     'dic_epflux_ave', 'Cen_xy_Hn__C__t', 4,5, myThid)
                0088       CALL MNC_CW_ADD_VATTR_TEXT(
                0089      &     'dic_epflux_ave','units','--', myThid)
                0090       CALL MNC_CW_ADD_VATTR_TEXT('dic_epflux_ave','description',
                0091      &     '', myThid)
                0092
                0093       CALL MNC_CW_ADD_VNAME(
4e9f2133df Step*0094      &     'dic_cflux_ave', 'Cen_xy_Hn__C__t', 4,5, myThid)
                0095       CALL MNC_CW_ADD_VATTR_TEXT(
                0096      &     'dic_cflux_ave','units','--', myThid)
                0097       CALL MNC_CW_ADD_VATTR_TEXT('dic_cflux_ave','description',
                0098      &     '', myThid)
                0099
3a1a157ebd Ed H*0100       ENDIF
                0101
                0102 #endif /* ALLOW_MNC */
                0103 #endif /* ALLOW_DIC */
                0104
                0105       RETURN
                0106       END