Symbol Description Uses
useGGL90 19


File Line number Procedure Code
./pkg/ptracers/ptracers_calc_diff.F 114 PTRACERS_CALC_DIFF 
        IF (useGGL90) THEN
./model/inc/PARAMS.h 813 NO PROCEDURE 
      LOGICAL useGGL90
./model/inc/PARAMS.h 845 NO PROCEDURE 
     &        useOPPS, usePP81, useMY82, useGGL90, useKPP,
./model/src/do_the_model_io.F 135 DO_THE_MODEL_IO 
      IF (useGGL90 .AND. myIter.NE.nIter0 )
./model/src/packages_init_variables.F 138 PACKAGES_INIT_VARIABLES 
      IF (useGGL90) THEN
./model/src/do_fields_blocking_exchanges.F 80 DO_FIELDS_BLOCKING_EXCHANGES 
      IF (useGGL90)
./model/src/packages_readparms.F 143 PACKAGES_READPARMS 
      IF (useGGL90) CALL GGL90_READPARMS( myThid )
./model/src/packages_write_pickup.F 221 PACKAGES_WRITE_PICKUP_NOW 
      IF ( useGGL90 ) THEN
./model/src/calc_3d_diffusivity.F 186 CALC_3D_DIFFUSIVITY 
      IF (useGGL90) THEN
./model/src/thermodynamics.F 673 THERMODYNAMICS 
        useVariableK = useKPP .OR. usePP81 .OR. useMY82 .OR. useGGL90
./model/src/packages_check.F 67 PACKAGES_CHECK 
      IF (useGGL90) CALL GGL90_CHECK( myThid )
./model/src/packages_check.F 69 PACKAGES_CHECK 
      IF (useGGL90) CALL PACKAGES_CHECK_ERROR('GGL90', myThid)
./model/src/packages_boot.F 51 PACKAGES_BOOT 
     &          useGGL90,
./model/src/packages_boot.F 98 PACKAGES_BOOT 
      useGGL90        =.FALSE.
./model/src/calc_viscosity.F 82 CALC_VISCOSITY 
      IF (useGGL90) CALL GGL90_CALC_VISC(
./model/src/do_oceanic_phys.F 551 DO_OCEANIC_PHYS 
        IF (useGGL90) THEN
./model/src/calc_diffusivity.F 141 CALC_DIFFUSIVITY 
      IF (useGGL90) THEN
./pkg/opps/opps_check.F 69 OPPS_CHECK 
      IF ( useGGL90 ) THEN
./pkg/timeave/timeave_statv_write.F 68 TIMEAVE_STATV_WRITE 
        useVariableK = useKPP .OR. usePP81 .OR. useMY82 .OR. useGGL90