pkg/kl10/kl10_init_fixed.F

d8d1486ca1 Jean*0001 #include "KL10_OPTIONS.h"
                0002
                0003 CBOP
                0004 C     !ROUTINE: KL10_INIT_FIXED
                0005 C     !INTERFACE:
                0006       SUBROUTINE KL10_INIT_FIXED( myThid )
                0007
                0008 C     !DESCRIPTION: \bv
                0009 C     *==========================================================*
                0010 C     | SUBROUTINE KL10_INIT_FIXED
                0011 C     | o Routine to initialize KL10 variables
                0012 C     |   that are kept fixed during the run.
                0013 C     *==========================================================*
                0014 C     \ev
                0015 C     !USES:
                0016       IMPLICIT NONE
                0017
                0018 C     === Global variables ===
                0019 #include "EEPARAMS.h"
                0020 #include "SIZE.h"
                0021 #include "PARAMS.h"
                0022
                0023 C     !INPUT/OUTPUT PARAMETERS:
                0024 C     === Routine arguments ===
                0025 C     myThid ::  my Thread Id number
                0026       INTEGER myThid
                0027 CEOP
                0028
                0029 C     !LOCAL VARIABLES :
                0030 C     === Local variables ===
                0031 C
                0032 C JMK: not sure what this is.
                0033 CML#ifdef ALLOW_MNC
                0034 CML      IF (useMNC) THEN
                0035 CMLC       Define grid types for Mellor-Yamada (MY) variables
                0036 CML        CALL MNC_CW_ADD_VNAME('KLviscAr', 'Cen_xy_Hn__C__t',
                0037 CML     &       4,5, myThid)
                0038 CML        CALL MNC_CW_ADD_VATTR_TEXT('KLviscAr','units','m^2/s',
                0039 CML     &       myThid)
                0040 CML        CALL MNC_CW_ADD_VATTR_TEXT('KLviscAr','long_name',
                0041 CML     &       'MY_vertical_eddy_viscosity_coefficient', myThid)
                0042 CML        CALL MNC_CW_ADD_VATTR_TEXT('KLviscAr',
                0043 CML     &       'coordinates','XC YC RC iter', myThid)
                0044 CML
                0045 CML        CALL MNC_CW_ADD_VNAME('KLdiffKr', 'Cen_xy_Hn__C__t',
                0046 CML     &       4,5, myThid)
                0047 CML        CALL MNC_CW_ADD_VATTR_TEXT('KLdiffKr','units','m^2/s',
                0048 CML     &       myThid)
                0049 CML        CALL MNC_CW_ADD_VATTR_TEXT('KLdiffKr','long_name',
                0050 CML     &       'MY_tracer_vertical_diffusion_coefficient',
                0051 CML     &       myThid)
                0052 CML        CALL MNC_CW_ADD_VATTR_TEXT('KLdiffKr',
                0053 CML     &       'coordinates','XC YC RC iter', myThid)
                0054 CML#endif /* ALLOW_MNC */
                0055
                0056 #ifdef ALLOW_DIAGNOSTICS
                0057       IF ( useDiagnostics ) THEN
                0058         CALL KL10_DIAGNOSTICS_INIT( myThid )
                0059       ENDIF
                0060 #endif
                0061
                0062       RETURN
                0063       END