| File |
Line number |
Procedure |
Code |
|
./model/inc/PARAMS.h |
1016 |
NO PROCEDURE |
LOGICAL useGGL90 |
|
./model/inc/PARAMS.h |
1061 |
NO PROCEDURE |
& useOPPS, usePP81, useKL10, useMY82, useGGL90, useKPP, |
|
./pkg/ggl90/ggl90_readparms.F |
72 |
GGL90_READPARMS |
IF ( .NOT.useGGL90 ) THEN |
|
./model/src/calc_3d_diffusivity.F |
235 |
CALC_3D_DIFFUSIVITY |
IF (useGGL90) THEN |
|
./model/src/calc_viscosity.F |
103 |
CALC_VISCOSITY |
IF ( useGGL90 .AND. k.LE.Nr ) THEN |
|
./model/src/calc_viscosity.F |
112 |
CALC_VISCOSITY |
& ( usePP81 .OR. useKL10 .OR. useMY82 .OR. useGGL90 ) |
|
./pkg/opps/opps_check.F |
69 |
OPPS_CHECK |
IF ( useGGL90 ) THEN |
|
./model/src/do_fields_blocking_exchanges.F |
106 |
DO_FIELDS_BLOCKING_EXCHANGES |
IF (useGGL90) |
|
./model/src/do_oceanic_phys.F |
1052 |
DO_OCEANIC_PHYS |
IF (useGGL90) THEN |
|
./model/src/do_oceanic_phys.F |
853 |
DO_OCEANIC_PHYS |
& .OR. useMY82 .OR. useGGL90 |
|
./model/src/do_the_model_io.F |
196 |
DO_THE_MODEL_IO |
IF ( useGGL90 ) |
|
./pkg/timeave/timeave_statv_write.F |
72 |
TIMEAVE_STATV_WRITE |
useVariableK = useKPP .OR. usePP81 .OR. useMY82 .OR. useGGL90 |
|
./model/src/packages_boot.F |
121 |
PACKAGES_BOOT |
useGGL90 =.FALSE. |
|
./model/src/packages_boot.F |
279 |
PACKAGES_BOOT |
CALL PACKAGES_PRINT_MSG( useGGL90, 'GGL90', ' ' ) |
|
./model/src/packages_boot.F |
57 |
PACKAGES_BOOT |
& useGGL90, |
|
./model/src/packages_check.F |
243 |
PACKAGES_CHECK |
IF (useGGL90) CALL GGL90_CHECK( myThid ) |
|
./model/src/packages_check.F |
245 |
PACKAGES_CHECK |
IF (useGGL90) CALL PACKAGES_ERROR_MSG('GGL90',' ',myThid) |
|
./model/src/packages_init_fixed.F |
293 |
PACKAGES_INIT_FIXED |
IF ( useGGL90 ) THEN |
|
./model/src/packages_init_variables.F |
204 |
PACKAGES_INIT_VARIABLES |
IF (useGGL90) THEN |
|
./model/src/packages_write_pickup.F |
116 |
PACKAGES_WRITE_PICKUP |
IF ( useGGL90 ) THEN |
|
./model/src/temp_integrate.F |
517 |
TEMP_INTEGRATE |
& .OR. useGGL90 .OR. useGMredi .OR. ivdc_kappa.NE.0. |
|
./pkg/autodiff/autodiff_inadmode_set_ad.F |
38 |
ADAUTODIFF_INADMODE_SET |
useGGL90 = useGGL90inAdMode |
|
./pkg/autodiff/autodiff_inadmode_set_ad.F |
70 |
ADAUTODIFF_INADMODE_SET |
& 'S/R ADAUTODIFF_INADMODE_SET: useGGL90 =', useGGL90 |
|
./pkg/autodiff/autodiff_inadmode_unset_ad.F |
38 |
ADAUTODIFF_INADMODE_UNSET |
useGGL90 = useGGL90inFwdMode |
|
./pkg/autodiff/autodiff_inadmode_unset_ad.F |
69 |
ADAUTODIFF_INADMODE_UNSET |
& 'S/R ADAUTODIFF_INADMODE_UNSET: useGGL90 =', useGGL90 |
|
./pkg/autodiff/autodiff_readparms.F |
116 |
AUTODIFF_READPARMS |
useGGL90inFwdMode = useGGL90 |
|
./pkg/autodiff/autodiff_readparms.F |
123 |
AUTODIFF_READPARMS |
useGGL90inAdMode = useGGL90inAdMode .AND. useGGL90 |