| File |
Line number |
Procedure |
Code |
|
./model/inc/GRID.h |
426 |
NO PROCEDURE |
& drC, drF, recip_drC, recip_drF, rC, rF, |
|
./model/inc/GRID.h |
483 |
NO PROCEDURE |
_RS rC (Nr) |
|
./pkg/fizhi/fizhi_tendency_apply.F |
132 |
FIZHI_TENDENCY_APPLY_V |
IF ( klev.EQ.Nr .OR. rC(klev).LT.1000. ) THEN |
|
./pkg/fizhi/fizhi_tendency_apply.F |
214 |
FIZHI_TENDENCY_APPLY_T |
IF ( klev.EQ.Nr .OR. rC(klev).LT.1000. ) THEN |
|
./pkg/fizhi/fizhi_tendency_apply.F |
217 |
FIZHI_TENDENCY_APPLY_T |
pNrkappa = (rC(klev)/100000.)**kappa |
|
./pkg/fizhi/fizhi_tendency_apply.F |
49 |
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_eigs.F |
268 |
GMREDI_CALC_EIGS |
drNr = rC(Nr)-rF(Nr+1) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
325 |
GMREDI_CALC_TENSOR |
& -rC(k-1).LT.GM_Visbeck_depth ) THEN |
|
./pkg/gmredi/gmredi_calc_tensor.F |
344 |
GMREDI_CALC_TENSOR |
integrDepth = -rC( kLowC(i,j,bi,bj) ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
350 |
GMREDI_CALC_TENSOR |
deltaH = integrDepth + rC(k-1) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
356 |
GMREDI_CALC_TENSOR |
deltaH = deltaH/( integrDepth+rC(1) ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
691 |
GMREDI_CALC_TENSOR |
I ldd97_LrhoW, locMixLayer, rC, |
|
./pkg/gmredi/gmredi_calc_tensor.F |
889 |
GMREDI_CALC_TENSOR |
I ldd97_LrhoS, locMixLayer, rC, |
|
./pkg/gmredi/gmredi_k3d.F |
496 |
GMREDI_K3D |
& (-hMixLayer(i,j,bi,bj).LE.-rC(k)) ) THEN |
|
./pkg/gmredi/submeso_calc_psi.F |
120 |
SUBMESO_CALC_PSI |
IF ( locMixLayer(i,j)+rC(k-1).GE.0. ) dzLoc = drC(k) |
|
./pkg/icefront/icefront_thermodynamics.F |
112 |
ICEFRONT_THERMODYNAMICS |
pLoc = ABS(rC(k)) |
|
./pkg/kl10/kl10_calc.F |
100 |
KL10_CALC |
RS(K)=rC(K) |
|
./pkg/kl10/kl10_calc.F |
150 |
KL10_CALC |
KLviscTmp = MAX( viscArNr(K), 0.2*(RS(K)-rC(K))* |
|
./pkg/kl10/kl10_calc.F |
151 |
KL10_CALC |
& (RS(K)-rC(K))*sqrt(buoyFreqc)) |
|
./pkg/kl10/kl10_calc.F |
85 |
KL10_CALC |
RS(1)=rC(1) |
|
./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) |
|
./model/src/apply_forcing.F |
531 |
APPLY_FORCING_T |
tmpFac = (atm_Po/rC(k))**atm_kappa |
|
./model/src/apply_forcing.F |
558 |
APPLY_FORCING_T |
tmpFac = (atm_Po/rC(k))**atm_kappa |
|
./model/src/apply_forcing.F |
571 |
APPLY_FORCING_T |
delPI = atm_Cp*( (rC(km)/atm_Po)**atm_kappa |
|
./model/src/apply_forcing.F |
572 |
APPLY_FORCING_T |
& - (rC(kc)/atm_Po)**atm_kappa ) |
|
./model/src/apply_forcing.F |
583 |
APPLY_FORCING_T |
delPI = atm_Cp*( (rC(kc)/atm_Po)**atm_kappa |
|
./model/src/apply_forcing.F |
584 |
APPLY_FORCING_T |
& - (rC(kp)/atm_Po)**atm_kappa ) |
|
./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 |
171 |
CALC_GRAD_PHI_HYD |
& *(1. _d 0 + rC(k)*recip_Rcol(i,j,bi,bj)) |
|
./model/src/calc_grad_phi_hyd.F |
198 |
CALC_GRAD_PHI_HYD |
& *rC(k)*recip_dxC(i,j,bi,bj)*recip_deepFacC(k) |
|
./model/src/calc_grad_phi_hyd.F |
206 |
CALC_GRAD_PHI_HYD |
& *rC(k)*recip_dyC(i,j,bi,bj)*recip_deepFacC(k) |
|
./model/src/calc_grad_phi_hyd.F |
215 |
CALC_GRAD_PHI_HYD |
factorP = (rC(k)/atm_Po)**atm_kappa |
|
./model/src/calc_grad_phi_hyd.F |
216 |
CALC_GRAD_PHI_HYD |
factorP = (atm_Rd/rC(k))*factorP*0.5 _d 0 |
|
./model/src/calc_grad_phi_hyd.F |
221 |
CALC_GRAD_PHI_HYD |
factorP = halfRL*atm_Cp*(rC(k)/atm_Po)**atm_kappa |
|
./model/src/calc_grad_phi_hyd.F |
229 |
CALC_GRAD_PHI_HYD |
& *rC(k)*recip_dxC(i,j,bi,bj)*recip_deepFacC(k) |
|
./model/src/calc_grad_phi_hyd.F |
242 |
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 |
200 |
CALC_GW |
& ( MIN( Ro_surf(i,j,bi,bj),rC(k-1) ) |
|
./model/src/calc_gw.F |
201 |
CALC_GW |
& - MAX( R_low(i,j,bi,bj), rC(k) ) |
|
./model/src/calc_gw.F |
210 |
CALC_GW |
& MIN( Ro_surf(i,j,bi,bj), rC(k-1) ) |
|
./model/src/calc_gw.F |
211 |
CALC_GW |
& -MAX( R_low(i,j,bi,bj), rC(k) ) |
|
./model/src/calc_gw.F |
218 |
CALC_GW |
& MIN( rSurfW(i,j,bi,bj), rC(k-1) ) |
|
./model/src/calc_gw.F |
219 |
CALC_GW |
& -MAX( rLowW(i,j,bi,bj), rC(k) ) |
|
./model/src/calc_gw.F |
229 |
CALC_GW |
& MIN( rSurfS(i,j,bi,bj), rC(k-1) ) |
|
./model/src/calc_gw.F |
230 |
CALC_GW |
& -MAX( rLowS(i,j,bi,bj), rC(k) ) |
|
./pkg/mnc/mnc_cw_cvars.F |
309 |
MNC_CW_WRITE_CVAR |
rtmp(i) = rC(i) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
138 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'rC',rC,myThid) |
|
./model/src/calc_oce_mxlayer.F |
126 |
CALC_OCE_MXLAYER |
hMixLayer(i,j,bi,bj) = rF(1)-rC(k-1)+tmpFac*drC(k) |
|
./model/src/calc_oce_mxlayer.F |
167 |
CALC_OCE_MXLAYER |
& / ( rC(1)-rC(k) ) |
|
./model/src/calc_phi_hyd.F |
241 |
CALC_PHI_HYD |
ddRloc = Ro_surf(i,j,bi,bj)-rC(k) |
|
./model/src/calc_phi_hyd.F |
263 |
CALC_PHI_HYD |
IF (k.EQ.1) dRlocM=rF(k)-rC(k) |
|
./model/src/calc_phi_hyd.F |
265 |
CALC_PHI_HYD |
dRlocP=rC(k)-rF(k+1) |
|
./model/src/calc_phi_hyd.F |
279 |
CALC_PHI_HYD |
rec_dRm = oneRL/(rF(k)-rC(k)) |
|
./model/src/calc_phi_hyd.F |
280 |
CALC_PHI_HYD |
rec_dRp = oneRL/(rC(k)-rF(k+1)) |
|
./model/src/calc_phi_hyd.F |
284 |
CALC_PHI_HYD |
ddRloc = Ro_surf(i,j,bi,bj)-rC(k) |
|
./model/src/calc_phi_hyd.F |
369 |
CALC_PHI_HYD |
ddRloc = Ro_surf(i,j,bi,bj)-rC(k) |
|
./model/src/calc_phi_hyd.F |
393 |
CALC_PHI_HYD |
IF (k.EQ.1) dRlocM=rF(k)-rC(k) |
|
./model/src/calc_phi_hyd.F |
395 |
CALC_PHI_HYD |
dRlocP=rC(k)-rF(k+1) |
|
./model/src/calc_phi_hyd.F |
399 |
CALC_PHI_HYD |
rec_dRm = oneRL/(rF(k)-rC(k)) |
|
./model/src/calc_phi_hyd.F |
400 |
CALC_PHI_HYD |
rec_dRp = oneRL/(rC(k)-rF(k+1)) |
|
./model/src/calc_phi_hyd.F |
408 |
CALC_PHI_HYD |
ddRloc = Ro_surf(i,j,bi,bj)-rC(k) |
|
./model/src/calc_phi_hyd.F |
508 |
CALC_PHI_HYD |
& -((rC( k )/atm_Po)**atm_kappa) ) |
|
./model/src/calc_phi_hyd.F |
510 |
CALC_PHI_HYD |
ddPIm=atm_Cp*( ((rC(k-1)/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
511 |
CALC_PHI_HYD |
& -((rC( k )/atm_Po)**atm_kappa) )*halfRL |
|
./model/src/calc_phi_hyd.F |
514 |
CALC_PHI_HYD |
ddPIp=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
517 |
CALC_PHI_HYD |
ddPIp=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
518 |
CALC_PHI_HYD |
& -((rC(k+1)/atm_Po)**atm_kappa) )*halfRL |
|
./model/src/calc_phi_hyd.F |
541 |
CALC_PHI_HYD |
& -((rC( k )/atm_Po)**atm_kappa) ) |
|
./model/src/calc_phi_hyd.F |
542 |
CALC_PHI_HYD |
ddPIp=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
547 |
CALC_PHI_HYD |
ddRloc = Ro_surf(i,j,bi,bj)-rC(k) |
|
./model/src/calc_phi_hyd.F |
574 |
CALC_PHI_HYD |
& -((rC( k )/atm_Po)**atm_kappa) ) |
|
./model/src/calc_phi_hyd.F |
576 |
CALC_PHI_HYD |
ddPIm=atm_Cp*( ((rC(k-1)/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
577 |
CALC_PHI_HYD |
& -((rC( k )/atm_Po)**atm_kappa) )*halfRL |
|
./model/src/calc_phi_hyd.F |
580 |
CALC_PHI_HYD |
ddPIp=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
583 |
CALC_PHI_HYD |
ddPIp=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
584 |
CALC_PHI_HYD |
& -((rC(k+1)/atm_Po)**atm_kappa) )*halfRL |
|
./model/src/calc_phi_hyd.F |
586 |
CALC_PHI_HYD |
rec_dRm = oneRL/(rF(k)-rC(k)) |
|
./model/src/calc_phi_hyd.F |
587 |
CALC_PHI_HYD |
rec_dRp = oneRL/(rC(k)-rF(k+1)) |
|
./model/src/calc_phi_hyd.F |
591 |
CALC_PHI_HYD |
ddRloc = Ro_surf(i,j,bi,bj)-rC(k) |
|
./pkg/monitor/mon_surfcor.F |
127 |
MON_SURFCOR |
ddPI=atm_cp*( (rC(K-1)/atm_po)**atm_kappa |
|
./pkg/monitor/mon_surfcor.F |
128 |
MON_SURFCOR |
& -(rC( K )/atm_po)**atm_kappa ) |
|
./pkg/monitor/mon_surfcor.F |
151 |
MON_SURFCOR |
& atm_cp*((rC(k)/atm_po)**atm_kappa) |
|
./pkg/monitor/mon_surfcor.F |
98 |
MON_SURFCOR |
& + tmpVal*atm_cp*((rC(ks)/atm_po)**atm_kappa) |
|
./model/src/config_summary.F |
792 |
CONFIG_SUMMARY |
CALL WRITE_COPY1D_RS( bufRL, rC, Nr, INDEX_K, 'rcoord =', |
|
./pkg/opps/opps_calc.F |
484 |
OPPS_CALC |
& -rC(kRef)*gravity |
|
./pkg/opps/opps_calc.F |
487 |
OPPS_CALC |
pLoc = -rhoConst*rC(kRef)*gravity*maskC(i,j,kRef,bi,bj) |
|
./pkg/opps/opps_calc.F |
492 |
OPPS_CALC |
pLoc = rC(kRef)* maskC(i,j,kRef,bi,bj) |
|
./model/src/diags_phi_hyd.F |
100 |
DIAGS_PHI_HYD |
dPhiRef =( Ro_surf(i,j,bi,bj)-rC(k) )*recip_rhoConst |
|
./model/src/diags_phi_hyd.F |
112 |
DIAGS_PHI_HYD |
dPhiRef =( Ro_surf(i,j,bi,bj)-rC(k) )*gravity |
|
./model/src/diags_phi_rlow.F |
101 |
DIAGS_PHI_RLOW |
IF (k.GT.1 ) ratioRm = halfRL*drC(k)/(rF(k)-rC(k)) |
|
./model/src/diags_phi_rlow.F |
102 |
DIAGS_PHI_RLOW |
IF (k.LT.Nr) ratioRp = halfRL*drC(k+1)/(rC(k)-rF(k+1)) |
|
./model/src/diags_phi_rlow.F |
107 |
DIAGS_PHI_RLOW |
ddRloc = rC(k)-R_low(i,j,bi,bj) |
|
./model/src/diags_phi_rlow.F |
89 |
DIAGS_PHI_RLOW |
ddRloc = rC(k)-R_low(i,j,bi,bj) |
|
./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 |
222 |
PROFILES_INTERP_MEAN |
if (prof_depth(file_cur,kk,bi,bj).LT.-rC(1)) then |
|
./pkg/profiles/profiles_interp_mean.F |
226 |
PROFILES_INTERP_MEAN |
elseif (prof_depth(file_cur,kk,bi,bj).GE.-rC(nr)) then |
|
./pkg/profiles/profiles_interp_mean.F |
228 |
PROFILES_INTERP_MEAN |
& (-rC(nr)+drC(nr)/2) ) then |
|
./pkg/profiles/profiles_interp_mean.F |
236 |
PROFILES_INTERP_MEAN |
if ((prof_depth(file_cur,kk,bi,bj).GE.-rC(k)).AND. |
|
./pkg/profiles/profiles_interp_mean.F |
237 |
PROFILES_INTERP_MEAN |
& (prof_depth(file_cur,kk,bi,bj).LT.-rC(k+1))) then |
|
./pkg/profiles/profiles_interp_mean.F |
248 |
PROFILES_INTERP_MEAN |
tmp_coeff=(prof_depth(file_cur,kk,bi,bj)+rC(kcur))/ |
|
./pkg/profiles/profiles_interp_mean.F |
249 |
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)) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
127 |
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 |
161 |
SALT_PLUME_CALC_DEPTH |
SaltPlumeDepth(i,j,bi,bj) = rF(1)-rC(k-1)+tmpFac*drC(k) |
|
./model/src/external_forcing.F |
418 |
EXTERNAL_FORCING_T |
tmpFac = (atm_Po/rC(kLev))**atm_kappa |
|
./model/src/external_forcing.F |
445 |
EXTERNAL_FORCING_T |
tmpFac = (atm_Po/rC(kLev))**atm_kappa |
|
./model/src/external_forcing.F |
458 |
EXTERNAL_FORCING_T |
delPI = atm_Cp*( (rC(km)/atm_Po)**atm_kappa |
|
./model/src/external_forcing.F |
459 |
EXTERNAL_FORCING_T |
& - (rC(kc)/atm_Po)**atm_kappa ) |
|
./model/src/external_forcing.F |
470 |
EXTERNAL_FORCING_T |
delPI = atm_Cp*( (rC(kc)/atm_Po)**atm_kappa |
|
./model/src/external_forcing.F |
471 |
EXTERNAL_FORCING_T |
& - (rC(kp)/atm_Po)**atm_kappa ) |
|
./pkg/seaice/seaice_init_varia.F |
238 |
SEAICE_INIT_VARIA |
DO WHILE ( abs(rC(KGEO(i,j,bi,bj))) .LT. 50.0 _d 0 .AND. |
|
./model/src/ini_eos.F |
468 |
EOS_CHECK |
rC_Save = rC(k) |
|
./model/src/ini_eos.F |
474 |
EOS_CHECK |
rC(k) = -pLoc(kcheck)*recip_rhoConst*recip_gravity |
|
./model/src/ini_eos.F |
476 |
EOS_CHECK |
rC(k) = pLoc(kcheck) |
|
./model/src/ini_eos.F |
549 |
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/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_vertical_grid.F |
138 |
INI_VERTICAL_GRID |
rC(1) = rF(1) + rkSign*drC(1) |
|
./model/src/ini_vertical_grid.F |
140 |
INI_VERTICAL_GRID |
rC(k) = rC(k-1) + rkSign*drC(k) |
|
./model/src/ini_vertical_grid.F |
148 |
INI_VERTICAL_GRID |
IF ( (rC(k)-rF(k+1)) .NE. 0. ) |
|
./model/src/ini_vertical_grid.F |
149 |
INI_VERTICAL_GRID |
& tmpRatio = (rF(k)-rC(k)) / (rC(k)-rF(k+1)) |
|
./model/src/ini_vertical_grid.F |
160 |
INI_VERTICAL_GRID |
& 'S/R INI_VERTICAL_GRID: rC=', rC(k), |
|
./model/src/ini_vertical_grid.F |
249 |
INI_VERTICAL_GRID |
tmpRS = MIN( rC(k), rSigBndRS ) |
|
./model/src/ini_vertical_grid.F |
250 |
INI_VERTICAL_GRID |
bHybSigmC(k) = ( rC(k) - tmpRS )/(rF(1)-rSigBndRS) |
|
./model/src/ini_vertical_grid.F |
284 |
INI_VERTICAL_GRID |
tmpRS = MAX( rC(k), rSigBndRS ) |
|
./model/src/ini_vertical_grid.F |
285 |
INI_VERTICAL_GRID |
bHybSigmC(k) = ( rC(k)-rF(Nr+1) )/( tmpRS-rF(Nr+1) ) |
|
./model/src/ini_vertical_grid.F |
335 |
INI_VERTICAL_GRID |
tmpError = ( rC(k)-rF(Nr+1) )*recip_fullDepth |
|
./model/src/ini_vertical_grid.F |
344 |
INI_VERTICAL_GRID |
& ' k=', k,' , err=', tmpError, ' ; rC=', 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.1x64x5/code_oad/ini_theta.F |
66 |
INI_THETA |
thetaLim = 200. _d 0/((rC(K)/atm_po)**atm_kappa) |
|
./verification/hs94.1x64x5/code_oad/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 |
64 |
OBCS_CALC |
vertStructWst(K)=cos(mz*PI* (rC(K)/rF(Nr+1)) ) |
|
./verification/rotating_tank/code/apply_forcing.F |
548 |
APPLY_FORCING_T |
tmpFac = (atm_Po/rC(k))**atm_kappa |
|
./verification/rotating_tank/code/apply_forcing.F |
575 |
APPLY_FORCING_T |
tmpFac = (atm_Po/rC(k))**atm_kappa |
|
./verification/rotating_tank/code/apply_forcing.F |
588 |
APPLY_FORCING_T |
delPI = atm_Cp*( (rC(km)/atm_Po)**atm_kappa |
|
./verification/rotating_tank/code/apply_forcing.F |
589 |
APPLY_FORCING_T |
& - (rC(kc)/atm_Po)**atm_kappa ) |
|
./verification/rotating_tank/code/apply_forcing.F |
600 |
APPLY_FORCING_T |
delPI = atm_Cp*( (rC(kc)/atm_Po)**atm_kappa |
|
./verification/rotating_tank/code/apply_forcing.F |
601 |
APPLY_FORCING_T |
& - (rC(kp)/atm_Po)**atm_kappa ) |
|
./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 |
244 |
SET_REF_STATE |
& -((rC(k)/atm_Po)**atm_kappa) ) |
|
./model/src/set_ref_state.F |
247 |
SET_REF_STATE |
ddPI=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa) |
|
./model/src/set_ref_state.F |
248 |
SET_REF_STATE |
& -((rC(k+1)/atm_Po)**atm_kappa) ) |
|
./model/src/set_ref_state.F |
254 |
SET_REF_STATE |
ddPI=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa) |
|
./model/src/set_ref_state.F |
271 |
SET_REF_STATE |
phiRef(2*k) = gravitySign*gravity*(rC(k) - Ro_SeaLevel) |
|
./model/src/set_ref_state.F |
280 |
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 |
124 |
WRITE_GRID |
CALL WRITE_GLVEC_RS( 'RC', ' ', rC, Nr, -1, myThid ) |
|
./model/src/write_grid.F |
164 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'RC',rC,myThid) |
|
./pkg/aim_v23/aim_aim2dyn.F |
106 |
AIM_AIM2DYN |
conv_T2theta = (atm_Po/rC(k))**atm_kappa |
|
./pkg/aim_v23/aim_dyn2aim.F |
163 |
AIM_DYN2AIM |
conv_theta2T = (rC(k)/atm_Po)**atm_kappa |
|
./pkg/atm_phys/atm_phys_driver.F |
180 |
ATM_PHYS_DRIVER |
pFull3d(:,:,k) = rF(Nr+1) + ( rC(kc) - rF(Nr+1) ) |
|
./pkg/atm_phys/atm_phys_driver.F |
197 |
ATM_PHYS_DRIVER |
pFull3d(:,:,k) = rC(kc) |
|
./pkg/atm_phys/atm_phys_driver.F |
210 |
ATM_PHYS_DRIVER |
conv_theta2T = (rC(kc)/atm_po)**atm_kappa |
|
./pkg/atm_phys/atm_phys_driver.F |
441 |
ATM_PHYS_DRIVER |
conv_T2theta = (atm_po/rC(kc))**atm_kappa |
|
./pkg/diagnostics/diagnostics_fill_state.F |
336 |
DIAGNOSTICS_FILL_STATE |
& + (rF(k+1)-rC(k))*hFacC(i,j,k,bi,bj)*rkSign |
|
./pkg/diagnostics/diagnostics_fill_state.F |
410 |
DIAGNOSTICS_FILL_STATE |
dummy1 = theta(i,j,k,bi,bj) * ((rC(k)/100.)/1000.)**kappa |
|
./pkg/diagnostics/diagnostics_fill_state.F |
411 |
DIAGNOSTICS_FILL_STATE |
dummy2 = rC(k) / 100. |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
138 |
DIAGNOSTICS_INTERP_VERT |
qtmp2(i,j,k,bi,bj) = rC(k) |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
166 |
DIAGNOSTICS_MNC_SET |
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 ) |
|
./pkg/ecco/cost_averagesfields.F |
611 |
COST_AVERAGESFIELDS |
& -rC(k) |
|
./pkg/ecco/cost_averagesfields.F |
616 |
COST_AVERAGESFIELDS |
& -rC(k)*gravity ) |