|
||||
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 #ifdef ALLOW_KL10 0002 0003 CBOP 0004 C !ROUTINE: KL10.h 0005 0006 C !DESCRIPTION: \bv 0007 C /==========================================================\ 0008 C | KL10.h | 0009 C | o Basic header for Klymak and Legg (2010) | 0010 C | vertical mixing parameterization for breaking | 0011 C | internal waves. | 0012 C | Contains all KL10 field declarations. | 0013 C \==========================================================/ 0014 0015 C----------------------------------------------------------------------- 0016 C 0017 C Constants that can be set in data.kl10 0018 C KLdumpFreq, KLtaveFreq - analogue to dumpFreq and taveFreq 0019 C (=default) 0020 C KLmixingMaps - if true, include KL diagnostic maps in STDOUT 0021 C KLwriteState - if true, write KL state to file 0022 C 0023 C Time varying parameters computed by subroutine kl_calc 0024 C KLviscAr - Vertical eddy viscosity coefficient (m^2/s) 0025 C KLdiffKr - Vertical diffusion coefficient for heat, 0026 C salt and tracers (m^2/s) 0027 C KLeps - Turbulence dissipation estimate (m^2/s^3) 0028 C 0029 C----------------------------------------------------------------------- 0030 C \ev 0031 CEOP 0032 0033 C INTEGER KLnRi 0034 C COMMON /KL10_PARMS_I/ 0035 C & KLnRi 0036 _RL KLdumpFreq, KLtaveFreq, KLviscMax 0037 COMMON /KL10_PARMS_R/ 0038 & KLdumpFreq, KLtaveFreq, KLviscMax 0039 0040 _RL KLviscAr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) 0041 _RL KLdiffKr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) 0042 _RL KLeps (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) 0043 COMMON /KL_FIELDS/ KLviscAr, KLdiffKr, KLeps 0044 0045 LOGICAL KL10isOn, KLwriteState 0046 COMMON /KL10_PARMS_L/ 0047 & KL10isOn, KLwriteState 0048 0049 #endif /* ALLOW_KL10 */
[ 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 |