|
||||
File indexing completed on 2018-03-02 18:41:32 UTC
view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTCd8d1486ca1 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
[ Source navigation ] | [ Diff markup ] | [ Identifier search ] | [ general search ] |
This page was automatically generated from https://github.com/MITgcm/MITgcm by the 2.2.1-MITgcm-0.1 LXR engine. The LXR team |