| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_tendency_apply.F |
118 |
FIZHI_TENDENCY_APPLY_V |
if(klev.eq.Nr .or. rC(klev).lt.1000.)then |
|
./pkg/fizhi/fizhi_tendency_apply.F |
192 |
FIZHI_TENDENCY_APPLY_T |
if(klev.eq.Nr .or. rC(klev).lt.1000.)then |
|
./pkg/fizhi/fizhi_tendency_apply.F |
195 |
FIZHI_TENDENCY_APPLY_T |
pNrkappa = (rC(klev)/100000.)**kappa |
|
./pkg/fizhi/fizhi_tendency_apply.F |
43 |
FIZHI_TENDENCY_APPLY_U |
if(klev.eq.Nr .or. rC(klev).lt.1000.)then |
|
./pkg/fizhi/getpwhere.F |
117 |
GETPWHERE |
rC_dyn(L) = rC(L)*1. _d -2 |
|
./pkg/generic_advdiff/salt_fill.F |
87 |
SALT_FILL |
dpratio= rC(L)/rC(LM1) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
287 |
GMREDI_CALC_TENSOR |
& -rC(k-1).LT.GM_Visbeck_depth ) THEN |
|
./pkg/gmredi/gmredi_calc_tensor.F |
306 |
GMREDI_CALC_TENSOR |
integrDepth = -rC( kLowC(i,j,bi,bj) ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
312 |
GMREDI_CALC_TENSOR |
deltaH = integrDepth + rC(k-1) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
318 |
GMREDI_CALC_TENSOR |
deltaH = deltaH/( integrDepth+rC(1) ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
602 |
GMREDI_CALC_TENSOR |
I ldd97_LrhoW, locMixLayer, rC, |
|
./pkg/gmredi/gmredi_calc_tensor.F |
787 |
GMREDI_CALC_TENSOR |
I ldd97_LrhoS, locMixLayer, rC, |
|
./pkg/icefront/icefront_thermodynamics.F |
106 |
ICEFRONT_THERMODYNAMICS |
pLoc = ABS(rC(k)) |
|
./pkg/kpp/kpp_init_fixed.F |
166 |
KPP_INIT_FIXED |
minKPPhbl = -rC(1) |
|
./pkg/kpp/kpp_init_fixed.F |
178 |
KPP_INIT_FIXED |
zgrid(k) = rC(k) |
|
./pkg/mnc/mnc_cw_cvars.F |
310 |
MNC_CW_WRITE_CVAR |
rtmp(i) = rC(i) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
130 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'rC',rC,myThid) |
|
./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 |
170 |
CALC_GRAD_PHI_HYD |
& *(1. _d 0 + rC(k)*recip_Rcol(i,j,bi,bj)) |
|
./model/src/calc_grad_phi_hyd.F |
197 |
CALC_GRAD_PHI_HYD |
& *rC(k)*recip_dxC(i,j,bi,bj)*recip_deepFacC(k) |
|
./model/src/calc_grad_phi_hyd.F |
205 |
CALC_GRAD_PHI_HYD |
& *rC(k)*recip_dyC(i,j,bi,bj)*recip_deepFacC(k) |
|
./model/src/calc_grad_phi_hyd.F |
210 |
CALC_GRAD_PHI_HYD |
conv_theta2T = (rC(k)/atm_Po)**atm_kappa |
|
./model/src/calc_grad_phi_hyd.F |
211 |
CALC_GRAD_PHI_HYD |
factorP = (atm_Rd/rC(k))*conv_theta2T*0.5 _d 0 |
|
./model/src/calc_grad_phi_hyd.F |
217 |
CALC_GRAD_PHI_HYD |
& *rC(k)*recip_dxC(i,j,bi,bj)*recip_deepFacC(k) |
|
./model/src/calc_grad_phi_hyd.F |
225 |
CALC_GRAD_PHI_HYD |
& *rC(k)*recip_dyC(i,j,bi,bj)*recip_deepFacC(k) |
|
./model/src/calc_grad_phi_hyd.F |
97 |
CALC_GRAD_PHI_HYD |
IF (Ro_surf(i,j,bi,bj).EQ.rC(k)) THEN |
|
./model/src/calc_grad_phi_hyd.F |
98 |
CALC_GRAD_PHI_HYD |
factPI=atm_Cp*( ((etaH(i,j,bi,bj)+rC(k))/atm_Po)**atm_kappa |
|
./model/src/calc_grad_phi_hyd.F |
99 |
CALC_GRAD_PHI_HYD |
& -( rC(k) /atm_Po)**atm_kappa |
|
./model/src/calc_gw.F |
173 |
CALC_GW |
& ( MIN( Ro_surf(i,j,bi,bj),rC(k-1) ) |
|
./model/src/calc_gw.F |
174 |
CALC_GW |
& - MAX( R_low(i,j,bi,bj), rC(k) ) |
|
./model/src/calc_gw.F |
183 |
CALC_GW |
& MIN( Ro_surf(i,j,bi,bj), rC(k-1) ) |
|
./model/src/calc_gw.F |
184 |
CALC_GW |
& -MAX( R_low(i,j,bi,bj), rC(k) ) |
|
./model/src/calc_gw.F |
191 |
CALC_GW |
& MIN( rSurfW(i,j,bi,bj), rC(k-1) ) |
|
./model/src/calc_gw.F |
192 |
CALC_GW |
& -MAX( rLowW(i,j,bi,bj), rC(k) ) |
|
./model/src/calc_gw.F |
202 |
CALC_GW |
& MIN( rSurfS(i,j,bi,bj), rC(k-1) ) |
|
./model/src/calc_gw.F |
203 |
CALC_GW |
& -MAX( rLowS(i,j,bi,bj), rC(k) ) |
|
./model/src/calc_oce_mxlayer.F |
125 |
CALC_OCE_MXLAYER |
hMixLayer(i,j,bi,bj) = rF(1)-rC(k-1)+tmpFac*drC(k) |
|
./model/src/calc_oce_mxlayer.F |
166 |
CALC_OCE_MXLAYER |
& / ( rC(1)-rC(k) ) |
|
./pkg/monitor/mon_surfcor.F |
122 |
MON_SURFCOR |
ddPI=atm_cp*( (rC(K-1)/atm_po)**atm_kappa |
|
./pkg/monitor/mon_surfcor.F |
123 |
MON_SURFCOR |
& -(rC( K )/atm_po)**atm_kappa ) |
|
./pkg/monitor/mon_surfcor.F |
145 |
MON_SURFCOR |
& atm_cp*((rC(k)/atm_po)**atm_kappa) |
|
./pkg/monitor/mon_surfcor.F |
94 |
MON_SURFCOR |
& + tmpVal*atm_cp*((rC(ks)/atm_po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
227 |
CALC_PHI_HYD |
IF (k.EQ.1) dRlocM=rF(k)-rC(k) |
|
./model/src/calc_phi_hyd.F |
229 |
CALC_PHI_HYD |
dRlocP=rC(k)-rF(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 |
332 |
CALC_PHI_HYD |
IF (k.EQ.1) dRlocM=rF(k)-rC(k) |
|
./model/src/calc_phi_hyd.F |
334 |
CALC_PHI_HYD |
dRlocP=rC(k)-rF(k+1) |
|
./model/src/calc_phi_hyd.F |
338 |
CALC_PHI_HYD |
rec_dRm = one/(rF(k)-rC(k)) |
|
./model/src/calc_phi_hyd.F |
339 |
CALC_PHI_HYD |
rec_dRp = one/(rC(k)-rF(k+1)) |
|
./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 |
391 |
CALC_PHI_HYD |
& -((rC( k )/atm_Po)**atm_kappa) ) |
|
./model/src/calc_phi_hyd.F |
393 |
CALC_PHI_HYD |
ddPIm=atm_Cp*( ((rC(k-1)/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
394 |
CALC_PHI_HYD |
& -((rC( k )/atm_Po)**atm_kappa) )*half |
|
./model/src/calc_phi_hyd.F |
397 |
CALC_PHI_HYD |
ddPIp=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
400 |
CALC_PHI_HYD |
ddPIp=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
401 |
CALC_PHI_HYD |
& -((rC(k+1)/atm_Po)**atm_kappa) )*half |
|
./model/src/calc_phi_hyd.F |
424 |
CALC_PHI_HYD |
& -((rC( k )/atm_Po)**atm_kappa) ) |
|
./model/src/calc_phi_hyd.F |
425 |
CALC_PHI_HYD |
ddPIp=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa) |
|
./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 |
457 |
CALC_PHI_HYD |
& -((rC( k )/atm_Po)**atm_kappa) ) |
|
./model/src/calc_phi_hyd.F |
459 |
CALC_PHI_HYD |
ddPIm=atm_Cp*( ((rC(k-1)/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
460 |
CALC_PHI_HYD |
& -((rC( k )/atm_Po)**atm_kappa) )*half |
|
./model/src/calc_phi_hyd.F |
463 |
CALC_PHI_HYD |
ddPIp=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
466 |
CALC_PHI_HYD |
ddPIp=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
467 |
CALC_PHI_HYD |
& -((rC(k+1)/atm_Po)**atm_kappa) )*half |
|
./model/src/calc_phi_hyd.F |
469 |
CALC_PHI_HYD |
rec_dRm = one/(rF(k)-rC(k)) |
|
./model/src/calc_phi_hyd.F |
470 |
CALC_PHI_HYD |
rec_dRp = one/(rC(k)-rF(k+1)) |
|
./model/src/calc_phi_hyd.F |
474 |
CALC_PHI_HYD |
ddRloc = Ro_surf(i,j,bi,bj)-rC(k) |
|
./pkg/opps/opps_calc.F |
493 |
OPPS_CALC |
& -rC(kRef)*gravity |
|
./pkg/opps/opps_calc.F |
496 |
OPPS_CALC |
pLoc = -rhoConst*rC(kRef)*gravity*maskC(i,j,kRef,bi,bj) |
|
./pkg/opps/opps_calc.F |
501 |
OPPS_CALC |
pLoc = rC(kRef)* maskC(i,j,kRef,bi,bj) |
|
./model/src/config_summary.F |
663 |
CONFIG_SUMMARY |
CALL WRITE_COPY1D_RS( bufRL, rC, Nr, INDEX_K, 'rcoord =', |
|
./pkg/profiles/profiles_interp.F |
258 |
PROFILES_INTERP |
if (prof_depth(file_cur,kk,bi,bj).LT.-rC(1)) then |
|
./pkg/profiles/profiles_interp.F |
262 |
PROFILES_INTERP |
elseif (prof_depth(file_cur,kk,bi,bj).GE.-rC(nr)) then |
|
./pkg/profiles/profiles_interp.F |
264 |
PROFILES_INTERP |
& (-rC(nr)+drC(nr)/2) ) then |
|
./pkg/profiles/profiles_interp.F |
272 |
PROFILES_INTERP |
if ((prof_depth(file_cur,kk,bi,bj).GE.-rC(k)).AND. |
|
./pkg/profiles/profiles_interp.F |
273 |
PROFILES_INTERP |
& (prof_depth(file_cur,kk,bi,bj).LT.-rC(k+1))) then |
|
./pkg/profiles/profiles_interp.F |
284 |
PROFILES_INTERP |
tmp_coeff=(prof_depth(file_cur,kk,bi,bj)+rC(kcur))/ |
|
./pkg/profiles/profiles_interp.F |
285 |
PROFILES_INTERP |
& (-rC(kcur+1)+rC(kcur)) |
|
./pkg/profiles/profiles_interp_gg.F |
126 |
PROFILES_INTERP_GG |
if (prof_depth(file_cur,kk,bi,bj).LT.-rC(1)) then |
|
./pkg/profiles/profiles_interp_gg.F |
130 |
PROFILES_INTERP_GG |
elseif (prof_depth(file_cur,kk,bi,bj).GE.-rC(nr)) then |
|
./pkg/profiles/profiles_interp_gg.F |
132 |
PROFILES_INTERP_GG |
& (-rC(nr)+drC(nr)/2) ) then |
|
./pkg/profiles/profiles_interp_gg.F |
140 |
PROFILES_INTERP_GG |
if ((prof_depth(file_cur,kk,bi,bj).GE.-rC(k)).AND. |
|
./pkg/profiles/profiles_interp_gg.F |
141 |
PROFILES_INTERP_GG |
& (prof_depth(file_cur,kk,bi,bj).LT.-rC(k+1))) then |
|
./pkg/profiles/profiles_interp_gg.F |
152 |
PROFILES_INTERP_GG |
tmp_coeff=(prof_depth(file_cur,kk,bi,bj)+rC(kcur))/ |
|
./pkg/profiles/profiles_interp_gg.F |
153 |
PROFILES_INTERP_GG |
& (-rC(kcur+1)+rC(kcur)) |
|
./pkg/profiles/profiles_interp_mean.F |
204 |
PROFILES_INTERP_MEAN |
if (prof_depth(file_cur,kk,bi,bj).LT.-rC(1)) then |
|
./pkg/profiles/profiles_interp_mean.F |
208 |
PROFILES_INTERP_MEAN |
elseif (prof_depth(file_cur,kk,bi,bj).GE.-rC(nr)) then |
|
./pkg/profiles/profiles_interp_mean.F |
210 |
PROFILES_INTERP_MEAN |
& (-rC(nr)+drC(nr)/2) ) then |
|
./pkg/profiles/profiles_interp_mean.F |
218 |
PROFILES_INTERP_MEAN |
if ((prof_depth(file_cur,kk,bi,bj).GE.-rC(k)).AND. |
|
./pkg/profiles/profiles_interp_mean.F |
219 |
PROFILES_INTERP_MEAN |
& (prof_depth(file_cur,kk,bi,bj).LT.-rC(k+1))) then |
|
./pkg/profiles/profiles_interp_mean.F |
230 |
PROFILES_INTERP_MEAN |
tmp_coeff=(prof_depth(file_cur,kk,bi,bj)+rC(kcur))/ |
|
./pkg/profiles/profiles_interp_mean.F |
231 |
PROFILES_INTERP_MEAN |
& (-rC(kcur+1)+rC(kcur)) |
|
./pkg/profiles/profiles_interp_mean_gg.F |
105 |
PROFILES_INTERP_MEAN_GG |
if (prof_depth(file_cur,kk,bi,bj).LT.-rC(1)) then |
|
./pkg/profiles/profiles_interp_mean_gg.F |
109 |
PROFILES_INTERP_MEAN_GG |
elseif (prof_depth(file_cur,kk,bi,bj).GE.-rC(nr)) then |
|
./pkg/profiles/profiles_interp_mean_gg.F |
111 |
PROFILES_INTERP_MEAN_GG |
& (-rC(nr)+drC(nr)/2) ) then |
|
./pkg/profiles/profiles_interp_mean_gg.F |
119 |
PROFILES_INTERP_MEAN_GG |
if ((prof_depth(file_cur,kk,bi,bj).GE.-rC(k)).AND. |
|
./pkg/profiles/profiles_interp_mean_gg.F |
120 |
PROFILES_INTERP_MEAN_GG |
& (prof_depth(file_cur,kk,bi,bj).LT.-rC(k+1))) then |
|
./pkg/profiles/profiles_interp_mean_gg.F |
131 |
PROFILES_INTERP_MEAN_GG |
tmp_coeff=(prof_depth(file_cur,kk,bi,bj)+rC(kcur))/ |
|
./pkg/profiles/profiles_interp_mean_gg.F |
132 |
PROFILES_INTERP_MEAN_GG |
& (-rC(kcur+1)+rC(kcur)) |
|
./model/src/diags_phi_rlow.F |
100 |
DIAGS_PHI_RLOW |
IF (k.GT.1 ) ratioRm = half*drC(k)/(rF(k)-rC(k)) |
|
./model/src/diags_phi_rlow.F |
101 |
DIAGS_PHI_RLOW |
IF (k.LT.Nr) ratioRp = half*drC(k+1)/(rC(k)-rF(k+1)) |
|
./model/src/diags_phi_rlow.F |
106 |
DIAGS_PHI_RLOW |
ddRloc = rC(k)-R_low(i,j,bi,bj) |
|
./model/src/diags_phi_rlow.F |
88 |
DIAGS_PHI_RLOW |
ddRloc = rC(k)-R_low(i,j,bi,bj) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
115 |
SALT_PLUME_CALC_DEPTH |
SaltPlumeDepth(i,j,bi,bj) = rF(1)-rC(k-1)+tmpFac*drC(k) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
93 |
SALT_PLUME_CALC_DEPTH |
SaltPlumeDepth(i,j,bi,bj) = rF(1)-rC(k-1)+tmpFac*drC(k) |
|
./pkg/sbo/sbo_calc.F |
236 |
SBO_CALC |
radius = ae - ABS(rC(k)) |
|
./pkg/seaice/seaice_init_fixed.F |
182 |
SEAICE_INIT_FIXED |
DO WHILE ( abs(rC(KGEO(i,j,bi,bj))) .LT. 50.0 _d 0 .AND. |
|
./verification/advect_xy/code/ini_salt.F |
67 |
INI_SALT |
& +( rC(k) + 50. _d 3 )**2 |
|
./verification/advect_xy/code/ini_theta.F |
68 |
INI_THETA |
& +( rC(k) + 50. _d 3 )**2 |
|
./model/src/ini_eos.F |
392 |
EOS_CHECK |
rC_Save = rC(k) |
|
./model/src/ini_eos.F |
398 |
EOS_CHECK |
rC(k) = -pLoc(kcheck)*recip_rhoConst*recip_gravity |
|
./model/src/ini_eos.F |
400 |
EOS_CHECK |
rC(k) = pLoc(kcheck) |
|
./model/src/ini_eos.F |
467 |
EOS_CHECK |
rC(k) = rC_Save |
|
./model/src/ini_p_ground.F |
147 |
INI_P_GROUND |
IF (k.GT.1 ) ratioRm(k) = 0.5 _d 0*drC(k)/(rF(k)-rC(k)) |
|
./model/src/ini_p_ground.F |
148 |
INI_P_GROUND |
IF (k.LT.Nr) ratioRp(k) = 0.5 _d 0*drC(k+1)/(rC(k)-rF(k+1)) |
|
./model/src/ini_p_ground.F |
229 |
INI_P_GROUND |
IF ( Po_surf.LT.rC(1) .AND. Po_surf.GT.rC(Nr) ) THEN |
|
./model/src/ini_p_ground.F |
232 |
INI_P_GROUND |
IF ( findPoSurf .AND. Po_surf.GE.rC(k) ) THEN |
|
./model/src/ini_p_ground.F |
233 |
INI_P_GROUND |
Po_surf = rC(k) + (Po_surf-rC(k))/ratioRm(k) |
|
./model/src/ini_p_ground.F |
237 |
INI_P_GROUND |
IF (k.LT.Nr) rMidKp1 = (rC(k)+rC(k+1))*0.5 _d 0 |
|
./model/src/ini_p_ground.F |
239 |
INI_P_GROUND |
Po_surf = rC(k) + (Po_surf-rC(k))/ratioRp(k) |
|
./model/src/ini_p_ground.F |
280 |
INI_P_GROUND |
IF ( Pfld(i,j,bi,bj).GE.rC(ks) ) THEN |
|
./model/src/ini_p_ground.F |
283 |
INI_P_GROUND |
& *(Pfld(i,j,bi,bj)-rC(ks))/(rHalf(2*ks-1)-rHalf(2*ks)) |
|
./model/src/ini_p_ground.F |
287 |
INI_P_GROUND |
& *(Pfld(i,j,bi,bj)-rC(ks))/(rHalf(2*ks+1)-rHalf(2*ks)) |
|
./model/src/ini_p_ground.F |
313 |
INI_P_GROUND |
IF ( Po_surf.LT.rC(1) .AND. Po_surf.GT.rC(Nr) ) THEN |
|
./model/src/ini_p_ground.F |
316 |
INI_P_GROUND |
IF ( findPoSurf .AND. Po_surf.GE.rC(k) ) THEN |
|
./model/src/ini_p_ground.F |
317 |
INI_P_GROUND |
Po_surf = rC(k) + (Po_surf-rC(k))*ratioRm(k) |
|
./model/src/ini_p_ground.F |
321 |
INI_P_GROUND |
Po_surf = rC(k) + (Po_surf-rC(k))*ratioRp(k) |
|
./model/src/ini_p_ground.F |
90 |
INI_P_GROUND |
rHalf(2*K) = rC(K) |
|
./verification/hs94.1x64x5/code/ini_theta.F |
66 |
INI_THETA |
thetaLim = 200. _d 0/((rC(K)/atm_po)**atm_kappa) |
|
./verification/hs94.1x64x5/code/ini_theta.F |
70 |
INI_THETA |
term2=10. _d 0*log((rC(K)/atm_po)) |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
66 |
INI_THETA |
thetaLim = 200. _d 0/((rC(K)/atm_po)**atm_kappa) |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
70 |
INI_THETA |
term2=10. _d 0*log((rC(K)/atm_po)) |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
66 |
INI_THETA |
thetaLim = 200. _d 0/((rC(K)/atm_po)**atm_kappa) |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
70 |
INI_THETA |
term2=10. _d 0*log((rC(K)/atm_po)) |
|
./verification/internal_wave/code/obcs_calc.F |
55 |
OBCS_CALC |
vertStructWst(K)=cos(mz*PI* (rC(K)/rF(Nr+1)) ) |
|
./model/src/ini_vertical_grid.F |
133 |
INI_VERTICAL_GRID |
rC(1) = rF(1) + rkSign*drC(1) |
|
./model/src/ini_vertical_grid.F |
135 |
INI_VERTICAL_GRID |
rC(k) = rC(k-1) + rkSign*drC(k) |
|
./model/src/ini_vertical_grid.F |
143 |
INI_VERTICAL_GRID |
IF ( (rC(k)-rF(k+1)) .NE. 0. ) |
|
./model/src/ini_vertical_grid.F |
144 |
INI_VERTICAL_GRID |
& tmpRatio = (rF(k)-rC(k)) / (rC(k)-rF(k+1)) |
|
./model/src/ini_vertical_grid.F |
155 |
INI_VERTICAL_GRID |
& 'S/R INI_VERTICAL_GRID: rC=', rC(k), |
|
./model/src/ini_vertical_grid.F |
242 |
INI_VERTICAL_GRID |
tmpRS = MIN( rC(k), rSigBndRS ) |
|
./model/src/ini_vertical_grid.F |
243 |
INI_VERTICAL_GRID |
bHybSigmC(k) = ( rC(k) - tmpRS )/(rF(1)-rSigBndRS) |
|
./model/src/ini_vertical_grid.F |
277 |
INI_VERTICAL_GRID |
tmpRS = MAX( rC(k), rSigBndRS ) |
|
./model/src/ini_vertical_grid.F |
278 |
INI_VERTICAL_GRID |
bHybSigmC(k) = ( rC(k)-rF(Nr+1) )/( tmpRS-rF(Nr+1) ) |
|
./model/src/ini_vertical_grid.F |
328 |
INI_VERTICAL_GRID |
tmpError = ( rC(k)-rF(Nr+1) )*recip_fullDepth |
|
./model/src/ini_vertical_grid.F |
337 |
INI_VERTICAL_GRID |
& ' k=', k,' , err=', tmpError, ' ; rC=', rC(k), |
|
./model/src/pressure_for_eos.F |
61 |
PRESSURE_FOR_EOS |
& -rC(k)*gravity ) |
|
./model/src/pressure_for_eos.F |
68 |
PRESSURE_FOR_EOS |
locPres(i,j) = -rhoConst*rC(k)*gravity |
|
./model/src/pressure_for_eos.F |
78 |
PRESSURE_FOR_EOS |
locPres(i,j) = rC(k) |
|
./model/src/set_grid_factors.F |
67 |
SET_GRID_FACTORS |
deepFacC(k) = (rSphere+rC(k))*recip_rSphere |
|
./model/src/set_ref_state.F |
113 |
SET_REF_STATE |
pLoc = -rhoConst*rC(k)*gravity |
|
./model/src/set_ref_state.F |
145 |
SET_REF_STATE |
pLoc = rC(k) |
|
./model/src/set_ref_state.F |
187 |
SET_REF_STATE |
ddPI=atm_Cp*( ((rC(k-1)/atm_Po)**atm_kappa) |
|
./model/src/set_ref_state.F |
188 |
SET_REF_STATE |
& -((rC( k )/atm_Po)**atm_kappa) ) |
|
./model/src/set_ref_state.F |
233 |
SET_REF_STATE |
& -((rC(k)/atm_Po)**atm_kappa) ) |
|
./model/src/set_ref_state.F |
236 |
SET_REF_STATE |
ddPI=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa) |
|
./model/src/set_ref_state.F |
237 |
SET_REF_STATE |
& -((rC(k+1)/atm_Po)**atm_kappa) ) |
|
./model/src/set_ref_state.F |
243 |
SET_REF_STATE |
ddPI=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa) |
|
./model/src/set_ref_state.F |
260 |
SET_REF_STATE |
phiRef(2*k) = gravitySign*gravity*(rC(k) - Ro_SeaLevel) |
|
./model/src/set_ref_state.F |
269 |
SET_REF_STATE |
phiRef(2*k) = -recip_rhoConst*rC(k) |
|
./model/src/set_ref_state.F |
60 |
SET_REF_STATE |
rHalf(2*k) = rC(k) |
|
./model/src/write_grid.F |
110 |
WRITE_GRID |
CALL WRITE_GLVEC_RS( 'RC', ' ', rC, Nr, -1, myThid ) |
|
./model/src/write_grid.F |
150 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'RC',rC,myThid) |
|
./pkg/aim_v23/aim_aim2dyn.F |
95 |
AIM_AIM2DYN |
conv_T2theta = (atm_po/rC(k))**atm_kappa |
|
./pkg/aim_v23/aim_dyn2aim.F |
160 |
AIM_DYN2AIM |
conv_theta2T = (rC(K)/atm_po)**atm_kappa |
|
./pkg/diagnostics/diagnostics_fill_state.F |
330 |
DIAGNOSTICS_FILL_STATE |
& + (rF(k)-rC(k))*hFacC(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
140 |
DIAGNOSTICS_INTERP_VERT |
qtmp2(i,j,k,bi,bj) = rC(k) |
|
./pkg/diagnostics/diagnostics_out.F |
275 |
DIAGNOSTICS_OUT |
ztmp(j) = rC(NINT(levs(j,listId))) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
159 |
DIAGSTATS_MNC_OUT |
ztmp(j) = rC(NINT(levs(j,listId))) |
|
./pkg/dic/dic_init_fixed.F |
87 |
DIC_INIT_FIXED |
DO WHILE ( k .LT. Nr .AND. rC(k) .GE. -zcrit ) |
|
./model/inc/GRID.h |
425 |
NO PROCEDURE |
& drC, drF, recip_drC, recip_drF, rC, rF, |
|
./model/inc/GRID.h |
483 |
NO PROCEDURE |
_RS rC (Nr) |