22 |
C KPPghat - Nonlocal transport coefficient (s/m^2) |
C KPPghat - Nonlocal transport coefficient (s/m^2) |
23 |
C KPPhbl - Mixing layer depth (m) |
C KPPhbl - Mixing layer depth (m) |
24 |
C KPPfrac - Fraction of short-wave flux penetrating mixing layer |
C KPPfrac - Fraction of short-wave flux penetrating mixing layer |
25 |
|
C KPPplumefrac - Fraction of saltplume penetrating mixing layer |
26 |
C |
C |
27 |
C----------------------------------------------------------------------- |
C----------------------------------------------------------------------- |
28 |
C \ev |
C \ev |
36 |
_RL KPPfrac (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy) |
_RL KPPfrac (1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy) |
37 |
COMMON /kpp/ KPPviscAz, KPPdiffKzT, KPPdiffKzS |
COMMON /kpp/ KPPviscAz, KPPdiffKzT, KPPdiffKzS |
38 |
& , KPPghat, KPPhbl |
& , KPPghat, KPPhbl |
39 |
|
#ifdef ALLOW_SALT_PLUME |
40 |
|
_RL KPPplumefrac(1-OLx:sNx+OLx,1-OLy:sNy+OLy, nSx,nSy) |
41 |
|
COMMON /kpp_short1/ KPPplumefrac |
42 |
|
#endif /* ALLOW_SALT_PLUME */ |
43 |
COMMON /kpp_short/ KPPfrac |
COMMON /kpp_short/ KPPfrac |
44 |
|
|
45 |
#endif /* ALLOW_KPP */ |
#endif /* ALLOW_KPP */ |
46 |
|
|
|
|
|
47 |
CEH3 ;;; Local Variables: *** |
CEH3 ;;; Local Variables: *** |
48 |
CEH3 ;;; mode:fortran *** |
CEH3 ;;; mode:fortran *** |
49 |
CEH3 ;;; End: *** |
CEH3 ;;; End: *** |