| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_init_vars.F |
111 |
FIZHI_INIT_VARS |
. pedyn(i,j,Lbotij,bi,bj) = Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_init_vars.F |
129 |
FIZHI_INIT_VARS |
pephy(i,j,1,bi,bj)=Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
164 |
FIZHI_WRAPPER |
pephy(i,j,1,bi,bj)=(Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj)) |
|
./pkg/fizhi/fizhi_wrapper.F |
188 |
FIZHI_WRAPPER |
. pedyn(i,j,Lbotij,bi,bj) = (Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj)) |
|
./pkg/fizhi/step_fizhi_corr.F |
108 |
STEP_FIZHI_CORR |
pephy(i,j,1,bi,bj)=Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj) |
|
./pkg/fizhi/step_fizhi_corr.F |
90 |
STEP_FIZHI_CORR |
. pedyn(i,j,Lbotij,bi,bj) = Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj) |
|
./pkg/fizhi/update_chemistry_exports.F |
56 |
UPDATE_CHEMISTRY_EXPORTS |
pephy(i,j,Nrphys+1,bi,bj)=(Ro_surf(i,j,bi,bj)+etaH(i,j,bi,bj)) |
|
./pkg/ggl90/ggl90_calc.F |
149 |
GGL90_CALC |
totalDepth(i,j) = Ro_surf(i,j,bi,bj) - R_low(i,j,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
226 |
GGL90_CALC |
MaxLength=MIN(Ro_surf(i,j,bi,bj)-rF(k),rF(k)-R_low(i,j,bi,bj)) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
153 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'Ro_surf',Ro_surf,myThid) |
|
./model/src/calc_grad_phi_hyd.F |
103 |
CALC_GRAD_PHI_HYD |
ELSEIF (Ro_surf(i,j,bi,bj).NE.0. _d 0) THEN |
|
./model/src/calc_grad_phi_hyd.F |
104 |
CALC_GRAD_PHI_HYD |
factPI = (rC(k)/Ro_surf(i,j,bi,bj))**atm_kappa |
|
./model/src/calc_grad_phi_hyd.F |
115 |
CALC_GRAD_PHI_HYD |
IF (Ro_surf(i,j,bi,bj).EQ.rC(k)) THEN |
|
./model/src/calc_grad_phi_hyd.F |
123 |
CALC_GRAD_PHI_HYD |
& *(etaH(i,j,bi,bj)+Ro_surf(i,j,bi,bj)-rC(k)) |
|
./model/src/calc_grad_phi_hyd.F |
124 |
CALC_GRAD_PHI_HYD |
& / (Ro_surf(i,j,bi,bj)-rC(k)) |
|
./model/src/calc_grad_phi_hyd.F |
97 |
CALC_GRAD_PHI_HYD |
IF (Ro_surf(i,j,bi,bj).EQ.rC(k)) THEN |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
122 |
MOM_CALC_RTRANS |
& *(Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj)) |
|
./model/src/calc_gw.F |
173 |
CALC_GW |
& ( MIN( Ro_surf(i,j,bi,bj),rC(k-1) ) |
|
./model/src/calc_gw.F |
183 |
CALC_GW |
& MIN( Ro_surf(i,j,bi,bj), rC(k-1) ) |
|
./model/src/calc_phi_hyd.F |
308 |
CALC_PHI_HYD |
ddRloc = Ro_surf(i,j,bi,bj)-rC(k) |
|
./model/src/calc_phi_hyd.F |
347 |
CALC_PHI_HYD |
ddRloc = Ro_surf(i,j,bi,bj)-rC(k) |
|
./model/src/calc_phi_hyd.F |
430 |
CALC_PHI_HYD |
ddRloc = Ro_surf(i,j,bi,bj)-rC(k) |
|
./model/src/calc_phi_hyd.F |
474 |
CALC_PHI_HYD |
ddRloc = Ro_surf(i,j,bi,bj)-rC(k) |
|
./model/src/calc_r_star.F |
224 |
CALC_R_STAR |
& Ro_surf(iic,jjc,bi,bj)-R_low(iic,jjc,bi,bj), |
|
./model/src/calc_r_star.F |
240 |
CALC_R_STAR |
& Ro_surf(iic2,jjc2,bi,bj)-R_low(iic2,jjc2,bi,bj), |
|
./model/src/calc_r_star.F |
96 |
CALC_R_STAR |
& (etaFld(i,j,bi,bj)+Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj)) |
|
./model/src/calc_surf_dr.F |
73 |
CALC_SURF_DR |
rSurftmp(i,j) = Ro_surf(i,j,bi,bj)+etaFld(i,j,bi,bj) |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
110 |
INI_LINEAR_PHISURF |
IF ( Ro_surf(I,J,bi,bj).GT.0. _d 0 |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
112 |
INI_LINEAR_PHISURF |
pLoc = Ro_surf(I,J,bi,bj) |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
139 |
INI_LINEAR_PHISURF |
IF ( Ro_surf(I,J,bi,bj).GT.0. _d 0 |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
142 |
INI_LINEAR_PHISURF |
& (Ro_surf(I,J,bi,bj)/atm_Po)**(atm_kappa-1. _d 0) |
|
./verification/OpenAD/code_oad_all/ini_linear_phisurf.F |
202 |
INI_LINEAR_PHISURF |
I Ro_surf, myThid ) |
|
./model/src/ini_depths.F |
157 |
INI_DEPTHS |
CALL READ_REC_XY_RS( bathyFile, Ro_surf, 1, 0, myThid ) |
|
./model/src/ini_depths.F |
166 |
INI_DEPTHS |
Ro_surf(i,j,bi,bj) = rF(1) |
|
./model/src/ini_depths.F |
187 |
INI_DEPTHS |
O Ro_surf, |
|
./model/src/ini_depths.F |
208 |
INI_DEPTHS |
Ro_surf(i,j,bi,bj) = topoZ(i,j,bi,bj) |
|
./model/src/ini_depths.F |
220 |
INI_DEPTHS |
_EXCH_XY_RS(Ro_surf, myThid ) |
|
./model/src/ini_depths.F |
244 |
INI_DEPTHS |
& Ro_surf(i,j,bi,bj) = rF(Nr+1) |
|
./model/src/ini_depths.F |
275 |
INI_DEPTHS |
CALL PLOT_FIELD_XYRS( Ro_surf, |
|
./model/src/ini_depths.F |
297 |
INI_DEPTHS |
CALL EXCH2_CHECK_DEPTHS( R_low, Ro_surf, myThid ) |
|
./model/src/ini_depths.F |
80 |
INI_DEPTHS |
Ro_surf(i,j,bi,bj) = 0. _d 0 |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
157 |
INI_DEPTHS |
CALL READ_REC_XY_RS( bathyFile, Ro_surf, 1, 0, myThid ) |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
166 |
INI_DEPTHS |
Ro_surf(i,j,bi,bj) = rF(1) |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
187 |
INI_DEPTHS |
O Ro_surf, |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
208 |
INI_DEPTHS |
Ro_surf(i,j,bi,bj) = topoZ(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
220 |
INI_DEPTHS |
_EXCH_XY_RS(Ro_surf, myThid ) |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
241 |
INI_DEPTHS |
& Ro_surf(i,j,bi,bj) = rF(Nr+1) |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
244 |
INI_DEPTHS |
& Ro_surf(i,j,bi,bj) = rF(Nr+1) |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
275 |
INI_DEPTHS |
CALL PLOT_FIELD_XYRS( Ro_surf, |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
297 |
INI_DEPTHS |
CALL EXCH2_CHECK_DEPTHS( R_low, Ro_surf, myThid ) |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
80 |
INI_DEPTHS |
Ro_surf(i,j,bi,bj) = 0. _d 0 |
|
./model/src/ini_linear_phisurf.F |
172 |
INI_LINEAR_PHISURF |
IF ( Ro_surf(I,J,bi,bj).GT.0. _d 0 |
|
./model/src/ini_linear_phisurf.F |
175 |
INI_LINEAR_PHISURF |
pLoc = Ro_surf(I,J,bi,bj) |
|
./model/src/ini_linear_phisurf.F |
200 |
INI_LINEAR_PHISURF |
IF ( Ro_surf(I,J,bi,bj).GT.0. _d 0 |
|
./model/src/ini_linear_phisurf.F |
203 |
INI_LINEAR_PHISURF |
& (Ro_surf(I,J,bi,bj)/atm_Po)**(atm_kappa-1. _d 0) |
|
./model/src/ini_linear_phisurf.F |
261 |
INI_LINEAR_PHISURF |
I Ro_surf, myThid ) |
|
./model/src/ini_masks_etc.F |
138 |
INI_MASKS_ETC |
hFacCtmp = (rF(k)-Ro_surf(i,j,bi,bj))*recip_drF(k) |
|
./model/src/ini_masks_etc.F |
180 |
INI_MASKS_ETC |
Ro_surf(i,j,bi,bj) = R_low(i,j,bi,bj) |
|
./model/src/ini_masks_etc.F |
182 |
INI_MASKS_ETC |
Ro_surf(i,j,bi,bj) = Ro_surf(i,j,bi,bj) |
|
./model/src/ini_masks_etc.F |
209 |
INI_MASKS_ETC |
CALL PLOT_FIELD_XYRS(Ro_surf, |
|
./model/src/ini_masks_etc.F |
220 |
INI_MASKS_ETC |
tmpfld(i,j,bi,bj) = Ro_surf(i,j,bi,bj) - R_low(i,j,bi,bj) |
|
./model/src/ini_masks_etc.F |
267 |
INI_MASKS_ETC |
& MIN( Ro_surf(i-1,j,bi,bj), Ro_surf(i,j,bi,bj) ) |
|
./model/src/ini_masks_etc.F |
275 |
INI_MASKS_ETC |
& MIN( Ro_surf(i,j-1,bi,bj), Ro_surf(i,j,bi,bj) ) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
109 |
FIZHI_INIT_VARS |
pephy(i,j,1,bi,bj)=Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
91 |
FIZHI_INIT_VARS |
. pedyn(i,j,Lbotij,bi,bj) = Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj) |
|
./model/src/ini_nlfs_vars.F |
63 |
INI_NLFS_VARS |
Rmin_surf(i,j,bi,bj) = Ro_surf(i,j,bi,bj) |
|
./model/src/ini_sigma_hfac.F |
150 |
INI_SIGMA_HFAC |
& ( Ro_surf(i-1,j,bi,bj) |
|
./model/src/ini_sigma_hfac.F |
151 |
INI_SIGMA_HFAC |
& + Ro_surf( i, j,bi,bj) )*0.5 _d 0 |
|
./model/src/ini_sigma_hfac.F |
173 |
INI_SIGMA_HFAC |
& ( Ro_surf(i,j-1,bi,bj) |
|
./model/src/ini_sigma_hfac.F |
174 |
INI_SIGMA_HFAC |
& + Ro_surf(i, j, bi,bj) )*0.5 _d 0 |
|
./model/src/ini_sigma_hfac.F |
71 |
INI_SIGMA_HFAC |
tmpFld(i,j) = Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj) |
|
./model/src/ini_sigma_hfac.F |
95 |
INI_SIGMA_HFAC |
Ro_surf(i,j,bi,bj) = rEmpty |
|
./verification/hs94.128x64x5/code/external_forcing.F |
200 |
EXTERNAL_FORCING_T |
termP=0.5 _d 0*( MIN(rF(kLev),Ro_surf(i,j,bi,bj))+rF(kLev+1) ) |
|
./verification/hs94.1x64x5/code/external_forcing.F |
200 |
EXTERNAL_FORCING_T |
termP=0.5 _d 0*( MIN(rF(kLev),Ro_surf(i,j,bi,bj))+rF(kLev+1) ) |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
200 |
EXTERNAL_FORCING_T |
termP=0.5 _d 0*( MIN(rF(kLev),Ro_surf(i,j,bi,bj))+rF(kLev+1) ) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
235 |
EXTERNAL_FORCING_T |
termP=0.5 _d 0*( MIN(rF(kLev),Ro_surf(i,j,bi,bj))+rF(kLev+1) ) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
247 |
EXTERNAL_FORCING_T |
& /(etaH(i,j,bi,bj)+Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj)) |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
200 |
EXTERNAL_FORCING_T |
termP=0.5 _d 0*( MIN(rF(kLev),Ro_surf(i,j,bi,bj))+rF(kLev+1) ) |
|
./model/src/update_masks_etc.F |
177 |
UPDATE_MASKS_ETC |
tmpfld(i,j,bi,bj) = Ro_surf(i,j,bi,bj) - R_low(i,j,bi,bj) |
|
./model/src/update_sigma.F |
105 |
UPDATE_SIGMA |
& + ( Ro_surf(i,j,bi,bj)-R_low(i,j,bi,bj) ) |
|
./model/src/write_grid.F |
102 |
WRITE_GRID |
& CALL WRITE_FLD_XY_RS( 'topo_P',' ',Ro_surf,-1,myThid) |
|
./model/src/write_grid.F |
183 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'Ro_surf',Ro_surf,myThid) |
|
./model/src/write_grid.F |
63 |
WRITE_GRID |
tmpfld(i,j,bi,bj) = Ro_surf(i,j,bi,bj) - R_low(i,j,bi,bj) |
|
./pkg/aim_compon_interf/atm_export_atmconfig.F |
49 |
ATM_EXPORT_ATMCONFIG |
tmpBuf8(i,j,bi,bj) = Ro_surf(i,j,bi,bj) |
|
./pkg/aim_compon_interf/cpl_exch_configs.F |
100 |
CPL_EXCH_CONFIGS |
& 'H (atmosphere) ==',Ro_surf(I,J,bi,bj) |
|
./pkg/aim_compon_interf/cpl_exch_configs.F |
90 |
CPL_EXCH_CONFIGS |
& Ro_surf(I,J,bi,bj) .NE. groundLevel_atm ) THEN |
|
./pkg/aim_v23/aim_dyn2aim.F |
96 |
AIM_DYN2AIM |
PSA(I2) = Ro_surf(i,j,bi,bj)/atm_po |
|
./pkg/aim_v23/aim_initialise.F |
89 |
AIM_INITIALISE |
tmpVar = Ro_surf(i,j,bi,bj) |
|
./pkg/aim_v23/aim_initialise.F |
97 |
AIM_INITIALISE |
tmpVar = Ro_surf(i,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
68 |
DIAGNOSTICS_FILL_STATE |
tmp1k(i,j,bi,bj) = Ro_surf(i,j,bi,bj) + etaH(i,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
134 |
DIAGNOSTICS_INTERP_VERT |
qtmpsrf(i,j,bi,bj) = Ro_surf(i,j,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
251 |
DWNSLP_INIT_FIXED |
dz_bottom = Ro_surf(ideep,jdeep,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
252 |
DWNSLP_INIT_FIXED |
& - Ro_surf(ishelf,jshelf,bi,bj) |
|
./model/inc/GRID.h |
415 |
NO PROCEDURE |
& Ro_surf, rSurfW, rSurfS, |
|
./model/inc/GRID.h |
442 |
NO PROCEDURE |
_RS Ro_surf (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |