pkg/cd_code/cd_code_init_fixed.F

592cbf818a Patr*0001 #include "CD_CODE_OPTIONS.h"
                0002
                0003       SUBROUTINE CD_CODE_INIT_FIXED( myThid )
                0004
                0005       IMPLICIT NONE
                0006 C     === Global variables ===
                0007 #include "SIZE.h"
                0008 #include "EEPARAMS.h"
                0009 #include "PARAMS.h"
                0010
                0011 C     == Routine arguments ==
                0012 C     myThid -  Number of this instance of INI_UVEL
                0013       INTEGER myThid
                0014
                0015 C     !LOCAL VARIABLES:
                0016 C     == Local variables ==
                0017 CEOP
                0018
                0019 #ifdef ALLOW_CD_CODE
                0020
                0021 #ifdef ALLOW_MNC
                0022       IF (useMNC) THEN
                0023 C       Define grid types for CD_CODE variables
                0024         CALL MNC_CW_ADD_VNAME('uVelD', 'Cen_xy_Hn__C__t',
                0025      &       4,5, myThid)
                0026         CALL MNC_CW_ADD_VATTR_TEXT('uVelD','units','m/s',
                0027      &       myThid)
                0028         CALL MNC_CW_ADD_VATTR_TEXT('uVelD','long_name',
                0029      &       'CD_CODE_u_velocity', myThid)
                0030         CALL MNC_CW_ADD_VATTR_TEXT('uVelD',
                0031      &       'coordinates','XC YC RC iter', myThid)
                0032
                0033         CALL MNC_CW_ADD_VNAME('vVelD', 'Cen_xy_Hn__C__t',
                0034      &       4,5, myThid)
                0035         CALL MNC_CW_ADD_VATTR_TEXT('vVelD','units','m/s',
                0036      &       myThid)
                0037         CALL MNC_CW_ADD_VATTR_TEXT('vVelD','long_name',
                0038      &       'CD_CODE_v_velocity', myThid)
                0039         CALL MNC_CW_ADD_VATTR_TEXT('vVelD',
                0040      &       'coordinates','XC YC RC iter', myThid)
                0041
                0042         CALL MNC_CW_ADD_VNAME('Unm1', 'Cen_xy_Hn__C__t',
                0043      &       4,5, myThid)
                0044         CALL MNC_CW_ADD_VATTR_TEXT('Unm1','units','m/s',
                0045      &       myThid)
                0046         CALL MNC_CW_ADD_VATTR_TEXT('Unm1','long_name',
                0047      &       'CD_CODE_u_velocity_at_n-1', myThid)
                0048         CALL MNC_CW_ADD_VATTR_TEXT('Unm1',
                0049      &       'coordinates','XC YC RC iter', myThid)
                0050
                0051         CALL MNC_CW_ADD_VNAME('Vnm1', 'Cen_xy_Hn__C__t',
                0052      &       4,5, myThid)
                0053         CALL MNC_CW_ADD_VATTR_TEXT('Vnm1','units','m/s',
                0054      &       myThid)
                0055         CALL MNC_CW_ADD_VATTR_TEXT('Vnm1','long_name',
                0056      &       'CD_CODE_u_velocity_at_n-1', myThid)
                0057         CALL MNC_CW_ADD_VATTR_TEXT('Vnm1',
                0058      &       'coordinates','XC YC RC iter', myThid)
                0059
                0060         CALL MNC_CW_ADD_VNAME('etaNm1', 'Cen_xy_Hn__-__t',
                0061      &       3,4, myThid)
                0062         CALL MNC_CW_ADD_VATTR_TEXT('etaNm1','units','m',
                0063      &       myThid)
                0064         CALL MNC_CW_ADD_VATTR_TEXT('etaNm1','long_name',
                0065      &       'CD_CODE_ssh_at_n-1', myThid)
                0066         CALL MNC_CW_ADD_VATTR_TEXT('etaNm1',
                0067      &       'coordinates','XC YC RC iter', myThid)
                0068       ENDIF
                0069 #endif /* ALLOW_MNC */
                0070
                0071 #endif /*  ALLOW_CD_CODE  */
                0072
                0073       RETURN
                0074       END