| File |
Line number |
Procedure |
Code |
|
./pkg/opps/opps_check.F |
55 |
OPPS_CHECK |
IF ( usePP81 ) THEN |
|
./model/src/packages_check.F |
55 |
PACKAGES_CHECK |
IF (usePP81) CALL PP81_CHECK( myThid ) |
|
./model/src/packages_check.F |
57 |
PACKAGES_CHECK |
IF (usePP81) CALL PACKAGES_CHECK_ERROR('PP81', myThid) |
|
./pkg/my82/my82_check.F |
55 |
MY82_CHECK |
IF ( usePP81 ) THEN |
|
./model/src/do_oceanic_phys.F |
434 |
DO_OCEANIC_PHYS |
IF (usePP81) THEN |
|
./model/src/packages_init_variables.F |
121 |
PACKAGES_INIT_VARIABLES |
IF (usePP81) THEN |
|
./pkg/timeave/timeave_statv_write.F |
80 |
TIMEAVE_STATV_WRITE |
useVariableK = useKPP .OR. usePP81 .OR. useMY82 .OR. useGGL90 |
|
./model/src/packages_boot.F |
48 |
PACKAGES_BOOT |
& usePP81, |
|
./model/src/packages_boot.F |
89 |
PACKAGES_BOOT |
usePP81=.FALSE. |
|
./model/src/do_the_model_io.F |
114 |
DO_THE_MODEL_IO |
IF (usePP81 .AND. myIter.NE.nIter0 ) |
|
./model/src/packages_readparms.F |
131 |
PACKAGES_READPARMS |
IF (usePP81) CALL PP81_READPARMS( myThid ) |
|
./model/src/thermodynamics.F |
569 |
THERMODYNAMICS |
useVariableK = useKPP .OR. usePP81 .OR. useMY82 .OR. useGGL90 |
|
./model/src/calc_3d_diffusivity.F |
166 |
CALC_3D_DIFFUSIVITY |
IF (usePP81) THEN |
|
./model/inc/PARAMS.h |
753 |
NO PROCEDURE |
LOGICAL usePP81 |
|
./model/inc/PARAMS.h |
785 |
NO PROCEDURE |
& usePP81, useMY82, useOPPS, useGGL90, useMATRIX, |
|
./pkg/ptracers/ptracers_calc_diff.F |
96 |
PTRACERS_CALC_DIFF |
IF (usePP81) THEN |
|
./pkg/ggl90/ggl90_check.F |
55 |
GGL90_CHECK |
IF ( usePP81 ) THEN |
|
./model/src/calc_diffusivity.F |
115 |
CALC_DIFFUSIVITY |
IF (usePP81) THEN |
|
./model/src/calc_viscosity.F |
68 |
CALC_VISCOSITY |
IF (usePP81) CALL PP81_CALC_VISC( |