Symbol Description Uses
uniformFreeSurfLev TRUE if free-surface level-index is uniform (=1) 12



File Line number Procedure Code
./model/inc/PARAMS.h 434 NO PROCEDURE
     & uniformLin_PhiSurf, uniformFreeSurfLev,
./model/inc/PARAMS.h 517 NO PROCEDURE
      LOGICAL uniformFreeSurfLev
./pkg/generic_advdiff/gad_som_adv_r.F 247 GAD_SOM_ADV_R
      IF ( .NOT.uniformFreeSurfLev .AND. k.NE.1 .AND.
./model/src/calc_phi_hyd.F 209 CALC_PHI_HYD
     &       uniformFreeSurfLev .AND. k.EQ.1 ) THEN
./model/src/calc_phi_hyd.F 228 CALC_PHI_HYD
        IF ( uniformFreeSurfLev ) THEN
./model/src/calc_phi_hyd.F 274 CALC_PHI_HYD
        IF ( uniformFreeSurfLev ) THEN
./model/src/config_summary.F 351 CONFIG_SUMMARY
      CALL WRITE_0D_L( uniformFreeSurfLev, INDEX_NONE,
./model/src/ini_nh_fields.F 77 INI_NH_FIELDS
          IF ( select_rStar.EQ.0 .AND. uniformFreeSurfLev ) THEN
./model/src/post_cg3d.F 80 POST_CG3D
         ELSEIF ( uniformFreeSurfLev ) THEN
./model/src/pre_cg3d.F 150 PRE_CG3D
         ELSEIF ( uniformFreeSurfLev ) THEN
./model/src/set_parms.F 128 SET_PARMS
      uniformFreeSurfLev = usingZCoords
./model/src/set_parms.F 131 SET_PARMS
      uniformFreeSurfLev = usingZCoords .AND. .NOT.useShelfIce