Symbol Description Uses
useGGL90 20


File Line number Procedure Code
./model/inc/PARAMS.h 923 NO PROCEDURE 
      LOGICAL useGGL90
./model/inc/PARAMS.h 961 NO PROCEDURE 
     &        useOPPS, usePP81, useMY82, useGGL90, useKPP,
./model/src/calc_3d_diffusivity.F 230 CALC_3D_DIFFUSIVITY 
      IF (useGGL90) THEN
./model/src/calc_diffusivity.F 164 CALC_DIFFUSIVITY 
      IF (useGGL90) THEN
./model/src/calc_viscosity.F 81 CALC_VISCOSITY 
       IF (useGGL90) CALL GGL90_CALC_VISC(
./pkg/opps/opps_check.F 69 OPPS_CHECK 
      IF ( useGGL90 ) THEN
./pkg/ptracers/ptracers_calc_diff.F 138 PTRACERS_CALC_DIFF 
        IF (useGGL90) THEN
./model/src/do_fields_blocking_exchanges.F 105 DO_FIELDS_BLOCKING_EXCHANGES 
      IF (useGGL90)
./model/src/do_oceanic_phys.F 696 DO_OCEANIC_PHYS 
        IF (useGGL90) THEN
./model/src/do_the_model_io.F 136 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 112 PACKAGES_BOOT 
      useGGL90        =.FALSE.
./model/src/packages_boot.F 54 PACKAGES_BOOT 
     &          useGGL90,
./model/src/packages_check.F 147 PACKAGES_CHECK 
      IF (useGGL90) CALL GGL90_CHECK( myThid )
./model/src/packages_check.F 149 PACKAGES_CHECK 
      IF (useGGL90) CALL PACKAGES_ERROR_MSG('GGL90',' ',myThid)
./model/src/packages_init_fixed.F 182 PACKAGES_INIT_FIXED 
      IF ( useGGL90 ) THEN
./model/src/packages_init_variables.F 191 PACKAGES_INIT_VARIABLES 
      IF (useGGL90) THEN
./model/src/packages_readparms.F 181 PACKAGES_READPARMS 
      IF (useGGL90) CALL GGL90_READPARMS( myThid )
./model/src/packages_write_pickup.F 135 PACKAGES_WRITE_PICKUP 
      IF ( useGGL90 ) THEN
./model/src/thermodynamics.F 841 THERMODYNAMICS 
        useVariableK = useKPP .OR. usePP81 .OR. useMY82 .OR. useGGL90