pkg/kpp/KPP.h

2fa42a6013 Alis*0001 #ifdef ALLOW_KPP
                0002
fefe253d88 Dimi*0003 CBOP
                0004 C !ROUTINE: KPP.h
                0005
                0006 C !DESCRIPTION: \bv
2fa42a6013 Alis*0007 C     /==========================================================\
                0008 C     | KPP.h                                                    |
                0009 C     | o Basic header for KPP vertical mixing parameterization. |
                0010 C     |   Contains all KPP field declarations.                   |
                0011 C     \==========================================================/
                0012
                0013 C-----------------------------------------------------------------------
                0014 C
                0015 C Time varying parameters computed by subroutine kpp_calc
                0016 C     KPPviscAz  - Vertical eddy viscosity coefficient                (m^2/s)
                0017 C     KPPdiffKzS - Vertical diffusion coefficient for salt and tracers(m^2/s)
                0018 C     KPPdiffKzT - Vertical diffusion coefficient for heat            (m^2/s)
                0019 C     KPPghat    - Nonlocal transport coefficient                     (s/m^2)
                0020 C     KPPhbl     - Mixing layer depth                                     (m)
                0021 C     KPPfrac    - Fraction of short-wave flux penetrating mixing layer
63ceaaa79c Dimi*0022 C     KPPplumefrac - Fraction of saltplume penetrating mixing layer
2fa42a6013 Alis*0023 C
                0024 C-----------------------------------------------------------------------
fefe253d88 Dimi*0025 C \ev
                0026 CEOP
2fa42a6013 Alis*0027
                0028       _RL KPPviscAz  (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0029       _RL KPPdiffKzS (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0030       _RL KPPdiffKzT (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0031       _RL KPPghat    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy)
                0032       _RL KPPhbl     (1-OLx:sNx+OLx,1-OLy:sNy+OLy,   nSx,nSy)
956c0a5824 Patr*0033       _RL KPPfrac    (1-OLx:sNx+OLx,1-OLy:sNy+OLy,   nSx,nSy)
2fa42a6013 Alis*0034       COMMON /kpp/ KPPviscAz, KPPdiffKzT, KPPdiffKzS
                0035      &              , KPPghat, KPPhbl
63ceaaa79c Dimi*0036 #ifdef ALLOW_SALT_PLUME
                0037       _RL KPPplumefrac(1-OLx:sNx+OLx,1-OLy:sNy+OLy,   nSx,nSy)
                0038       COMMON /kpp_short1/ KPPplumefrac
                0039 #endif /* ALLOW_SALT_PLUME */
2fa42a6013 Alis*0040       COMMON /kpp_short/ KPPfrac
                0041
                0042 #endif /* ALLOW_KPP */
c9c3d7103f Ed H*0043
                0044 CEH3 ;;; Local Variables: ***
                0045 CEH3 ;;; mode:fortran ***
                0046 CEH3 ;;; End: ***