1 |
C $Header: $ |
2 |
C $Name: $ |
3 |
|
4 |
#ifdef ALLOW_PP81 |
5 |
|
6 |
CBOP |
7 |
C !ROUTINE: PP81.h |
8 |
|
9 |
C !DESCRIPTION: \bv |
10 |
C /==========================================================\ |
11 |
C | PP81.h | |
12 |
C | o Basic header for Pacanowski and Philander (1981) | |
13 |
C | vertical mixing parameterization. | |
14 |
C | Contains all PP81 field declarations. | |
15 |
C \==========================================================/ |
16 |
|
17 |
C----------------------------------------------------------------------- |
18 |
C |
19 |
C Constants that can be set in data.pp |
20 |
C PPnRi - exponent of denominator of Eq(1) in PP81 |
21 |
C PPviscMin, PPdiffMin - minimum viscosity/diffusivity in |
22 |
C surface layer. |
23 |
C Only used if ALLOW_PP81MOD is defined |
24 |
C PPviscMax - maximum allowed viscosity |
25 |
C PPnu0, PPalpha - further parameters |
26 |
C RiLimit - minimum Richardson number, |
27 |
C follows from PPviscMax |
28 |
C PPdumpFreq, PPtaveFreq - analogue to dumpFreq and taveFreq |
29 |
C (=default) |
30 |
C PPmixingMaps - if true, include PP diagnostic maps in STDOUT |
31 |
C PPwriteState - if true, write PP state to file |
32 |
C |
33 |
C Time varying parameters computed by subroutine pp_calc |
34 |
C PPviscAr - Vertical eddy viscosity coefficient (m^2/s) |
35 |
C PPdiffKr - Vertical diffusion coefficient for heat, |
36 |
C salt and tracers (m^2/s) |
37 |
C |
38 |
C----------------------------------------------------------------------- |
39 |
C \ev |
40 |
CEOP |
41 |
|
42 |
INTEGER PPnRi |
43 |
COMMON /PP81_PARMS_I/ |
44 |
& PPnRi |
45 |
_RL PPviscMin, PPdiffMin, PPviscMax |
46 |
_RL PPnu0, PPalpha, RiLimit |
47 |
_RL PPdumpFreq, PPtaveFreq |
48 |
COMMON /PP81_PARMS_R/ |
49 |
& PPviscMin, PPdiffMin, PPviscMax, |
50 |
& PPnu0, PPalpha, RiLimit, |
51 |
& PPdumpFreq, PPtaveFreq |
52 |
|
53 |
_RL PPviscAr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
54 |
_RL PPdiffKr (1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr,nSx,nSy) |
55 |
COMMON /PP_FIELDS/ PPviscAr, PPdiffKr |
56 |
|
57 |
LOGICAL PP81isOn, PPmixingMaps, PPwriteState |
58 |
COMMON /PP81_PARMS_L/ |
59 |
& PP81isOn, PPmixingMaps, PPwriteState |
60 |
|
61 |
#endif /* ALLOW_PP81 */ |