Symbol Description Uses
useGGL90 19


File Line number Procedure Code
./pkg/opps/opps_check.F 69 OPPS_CHECK 
      IF ( useGGL90 ) THEN
./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/do_oceanic_phys.F 458 DO_OCEANIC_PHYS 
        IF (useGGL90) THEN
./model/src/packages_init_variables.F 138 PACKAGES_INIT_VARIABLES 
      IF (useGGL90) THEN
./model/src/do_fields_blocking_exchanges.F 76 DO_FIELDS_BLOCKING_EXCHANGES 
      IF (useGGL90)
./pkg/timeave/timeave_statv_write.F 80 TIMEAVE_STATV_WRITE 
        useVariableK = useKPP .OR. usePP81 .OR. useMY82 .OR. useGGL90
./model/src/packages_boot.F 50 PACKAGES_BOOT 
     &          useGGL90,
./model/src/packages_boot.F 91 PACKAGES_BOOT 
      useGGL90=.FALSE.
./model/src/do_the_model_io.F 132 DO_THE_MODEL_IO 
      IF (useGGL90 .AND. myIter.NE.nIter0 )
./model/src/packages_write_pickup.F 239 PACKAGES_WRITE_PICKUP_NOW 
      IF ( useGGL90 ) THEN
./model/src/packages_readparms.F 141 PACKAGES_READPARMS 
      IF (useGGL90) CALL GGL90_READPARMS( myThid )
./model/src/thermodynamics.F 569 THERMODYNAMICS 
        useVariableK = useKPP .OR. usePP81 .OR. useMY82 .OR. useGGL90
./model/src/calc_3d_diffusivity.F 184 CALC_3D_DIFFUSIVITY 
      IF (useGGL90) THEN
./model/inc/PARAMS.h 755 NO PROCEDURE 
      LOGICAL useGGL90
./model/inc/PARAMS.h 785 NO PROCEDURE 
     &        usePP81, useMY82, useOPPS, useGGL90, useMATRIX,
./pkg/ptracers/ptracers_calc_diff.F 114 PTRACERS_CALC_DIFF 
        IF (useGGL90) THEN
./model/src/calc_diffusivity.F 141 CALC_DIFFUSIVITY 
      IF (useGGL90) THEN
./model/src/calc_viscosity.F 82 CALC_VISCOSITY 
      IF (useGGL90) CALL GGL90_CALC_VISC(