Symbol Description Uses
select_rStar option related to r* vertical coordinate 37



File Line number Procedure Code
./model/src/calc_phi_hyd.F 91 CALC_PHI_HYD
      addSurfPhiAnom = select_rStar.EQ.0 .AND. nonlinFreeSurf.GT.3
./pkg/gridalt/gridalt_update.F 48 GRIDALT_UPDATE
       if(usefizhi .and. (select_rStar.GT.0) )then
./pkg/thsice/thsice_main.F 89 THSICE_MAIN
         IF ( select_rStar.GT.0 ) THEN
./model/src/initialise_varia.F 207 INITIALISE_VARIA
      IF ( select_rStar.NE.0 )
./model/src/initialise_varia.F 210 INITIALISE_VARIA
       IF ( select_rStar.GT.0 ) THEN
./model/src/initialise_varia.F 249 INITIALISE_VARIA
      IF ( select_rStar.NE.0 ) THEN
./pkg/ecco/the_main_loop.F 559 THE_MAIN_LOOP
       IF ( select_rStar.GT.0 ) THEN
./pkg/ecco/the_main_loop.F 634 THE_MAIN_LOOP
      IF ( select_rStar.NE.0 ) THEN
./model/src/config_summary.F 246 CONFIG_SUMMARY
      CALL WRITE_0D_I( select_rStar, INDEX_NONE,
./model/src/config_check.F 158 CONFIG_CHECK
      IF (select_rStar .NE. 0) THEN
./model/src/config_check.F 320 CONFIG_CHECK
      IF (select_rStar.NE.0 .AND. .NOT.exactConserv) THEN
./model/src/integrate_for_w.F 94 INTEGRATE_FOR_W
      ELSEIF (select_rStar .NE. 0) THEN
./model/src/timestep.F 230 TIMESTEP
       IF (select_rStar.GT.0) THEN
./model/src/forward_step.F 444 FORWARD_STEP
       IF ( select_rStar.GT.0 ) THEN
./model/src/forward_step.F 519 FORWARD_STEP
      IF ( select_rStar.NE.0 ) THEN
./model/src/external_forcing_surf.F 104 EXTERNAL_FORCING_SURF
        IF (select_rStar.GT.0) THEN
./model/src/ini_parms.F 161 INI_PARMS
     & select_rStar,
./model/src/freesurf_rescale_g.F 43 FREESURF_RESCALE_G
       IF (select_rStar.GT.0) THEN
./model/inc/PARAMS.h 163 NO PROCEDURE
     &        nonlinFreeSurf, select_rStar,
./model/inc/PARAMS.h 181 NO PROCEDURE
      INTEGER select_rStar
./pkg/aim_v23/aim_dyn2aim.F 106 AIM_DYN2AIM
       IF ( select_rStar.GT.0 ) THEN
./pkg/aim_v23/aim_aim2dyn.F 91 AIM_AIM2DYN
        IF ( select_rStar.GT.0 ) THEN
./pkg/diagnostics/diagnostics_out.F 315 DIAGNOSTICS_OUT
          if(select_rStar.GT.0)then
./pkg/ocn_compon_interf/ocn_store_my_data.F 64 OCN_STORE_MY_DATA
       IF ( select_rStar.GT.0 ) THEN
./pkg/mom_fluxform/mom_calc_rtrans.F 107 MOM_CALC_RTRANS
      IF ( select_rStar.NE.0 ) THEN
./pkg/mom_fluxform/mom_fluxform.F 396 MOM_FLUXFORM
      IF ( momAdvection .AND. select_rStar.GT.0 ) THEN
./pkg/mom_fluxform/mom_fluxform.F 405 MOM_FLUXFORM
      IF ( momAdvection .AND. select_rStar.LT.0 ) THEN
./pkg/mom_fluxform/mom_fluxform.F 557 MOM_FLUXFORM
      IF ( momAdvection .AND. select_rStar.GT.0 ) THEN
./pkg/mom_fluxform/mom_fluxform.F 566 MOM_FLUXFORM
      IF ( momAdvection .AND. select_rStar.LT.0 ) THEN
./pkg/mom_fluxform/mom_v_adv_wv.F 89 MOM_V_ADV_WV
      IF ( select_rStar.EQ.0 .AND. .NOT.rigidLid ) THEN
./pkg/mom_fluxform/mom_u_adv_wu.F 88 MOM_U_ADV_WU
      IF ( select_rStar.EQ.0 .AND. .NOT.rigidLid ) THEN
./model/src/integr_continuity.F 179 INTEGR_CONTINUITY
      IF (select_rStar .NE. 0) THEN
./model/src/calc_grad_phi_hyd.F 149 CALC_GRAD_PHI_HYD
      IF (select_rStar.GE.2 .AND. nonlinFreeSurf.GE.1 ) THEN
./model/src/calc_grad_phi_hyd.F 68 CALC_GRAD_PHI_HYD
      IF (select_rStar.GE.2 .AND. nonlinFreeSurf.GE.4 ) THEN
./model/src/calc_grad_phi_hyd.F 88 CALC_GRAD_PHI_HYD
      ELSEIF (select_rStar.GE.1 .AND. nonlinFreeSurf.GE.4 ) THEN
./model/src/set_defaults.F 191 SET_DEFAULTS
      select_rStar        = 0
./pkg/monitor/mon_surfcor.F 132 MON_SURFCOR
        IF (select_rStar.NE.0) THEN