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 |