| 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 |
266 |
GMREDI_CALC_EIGS |
drNr = rC(Nr)-rF(Nr+1) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
327 |
GMREDI_CALC_TENSOR |
& -rC(k-1).LT.GM_Visbeck_depth ) THEN |
|
./pkg/gmredi/gmredi_calc_tensor.F |
346 |
GMREDI_CALC_TENSOR |
integrDepth = -rC( kLowC(i,j,bi,bj) ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
352 |
GMREDI_CALC_TENSOR |
deltaH = integrDepth + rC(k-1) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
358 |
GMREDI_CALC_TENSOR |
deltaH = deltaH/( integrDepth+rC(1) ) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
707 |
GMREDI_CALC_TENSOR |
I ldd97_LrhoW, locMixLayer, rC, |
|
./pkg/gmredi/gmredi_calc_tensor.F |
922 |
GMREDI_CALC_TENSOR |
I ldd97_LrhoS, locMixLayer, rC, |
|
./pkg/gmredi/gmredi_k3d.F |
509 |
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 |
154 |
KL10_CALC |
KLviscTmp = MAX( viscArNr(K), 0.2*(RS(K)-rC(K))* |
|
./pkg/kl10/kl10_calc.F |
155 |
KL10_CALC |
& (RS(K)-rC(K))*sqrt(buoyFreqc)) |
|
./pkg/kl10/kl10_calc.F |
85 |
KL10_CALC |
RS(1)=rC(1) |
|
./model/src/apply_forcing.F |
546 |
APPLY_FORCING_T |
tmpFac = (atm_Po/rC(k))**atm_kappa |
|
./model/src/apply_forcing.F |
572 |
APPLY_FORCING_T |
tmpFac = (atm_Po/rC(k))**atm_kappa |
|
./model/src/apply_forcing.F |
585 |
APPLY_FORCING_T |
delPI = atm_Cp*( (rC(km)/atm_Po)**atm_kappa |
|
./model/src/apply_forcing.F |
586 |
APPLY_FORCING_T |
& - (rC(kc)/atm_Po)**atm_kappa ) |
|
./model/src/apply_forcing.F |
597 |
APPLY_FORCING_T |
delPI = atm_Cp*( (rC(kc)/atm_Po)**atm_kappa |
|
./model/src/apply_forcing.F |
598 |
APPLY_FORCING_T |
& - (rC(kp)/atm_Po)**atm_kappa ) |
|
./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/layers/layers_diagnostics_init.F |
72 |
LAYERS_DIAGNOSTICS_INIT |
rLoc = rC(kLoc) |
|
./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) ) |
|
./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 |
243 |
CALC_PHI_HYD |
ddRloc = Ro_surf(i,j,bi,bj)-rC(k) |
|
./model/src/calc_phi_hyd.F |
268 |
CALC_PHI_HYD |
IF (k.EQ.1) dRlocM = (rF(k)-rC(k))*gravFacF(k) |
|
./model/src/calc_phi_hyd.F |
270 |
CALC_PHI_HYD |
dRlocP = (rC(k)-rF(k+1))*gravFacF(k+1) |
|
./model/src/calc_phi_hyd.F |
284 |
CALC_PHI_HYD |
rec_dRm = oneRL/(rF(k)-rC(k)) |
|
./model/src/calc_phi_hyd.F |
285 |
CALC_PHI_HYD |
rec_dRp = oneRL/(rC(k)-rF(k+1)) |
|
./model/src/calc_phi_hyd.F |
289 |
CALC_PHI_HYD |
ddRloc = Ro_surf(i,j,bi,bj)-rC(k) |
|
./model/src/calc_phi_hyd.F |
374 |
CALC_PHI_HYD |
ddRloc = Ro_surf(i,j,bi,bj)-rC(k) |
|
./model/src/calc_phi_hyd.F |
398 |
CALC_PHI_HYD |
IF (k.EQ.1) dRlocM=rF(k)-rC(k) |
|
./model/src/calc_phi_hyd.F |
400 |
CALC_PHI_HYD |
dRlocP=rC(k)-rF(k+1) |
|
./model/src/calc_phi_hyd.F |
404 |
CALC_PHI_HYD |
rec_dRm = oneRL/(rF(k)-rC(k)) |
|
./model/src/calc_phi_hyd.F |
405 |
CALC_PHI_HYD |
rec_dRp = oneRL/(rC(k)-rF(k+1)) |
|
./model/src/calc_phi_hyd.F |
413 |
CALC_PHI_HYD |
ddRloc = Ro_surf(i,j,bi,bj)-rC(k) |
|
./model/src/calc_phi_hyd.F |
513 |
CALC_PHI_HYD |
& -((rC( k )/atm_Po)**atm_kappa) ) |
|
./model/src/calc_phi_hyd.F |
515 |
CALC_PHI_HYD |
ddPIm=atm_Cp*( ((rC(k-1)/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
516 |
CALC_PHI_HYD |
& -((rC( k )/atm_Po)**atm_kappa) )*halfRL |
|
./model/src/calc_phi_hyd.F |
519 |
CALC_PHI_HYD |
ddPIp=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
522 |
CALC_PHI_HYD |
ddPIp=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
523 |
CALC_PHI_HYD |
& -((rC(k+1)/atm_Po)**atm_kappa) )*halfRL |
|
./model/src/calc_phi_hyd.F |
546 |
CALC_PHI_HYD |
& -((rC( k )/atm_Po)**atm_kappa) ) |
|
./model/src/calc_phi_hyd.F |
547 |
CALC_PHI_HYD |
ddPIp=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
552 |
CALC_PHI_HYD |
ddRloc = Ro_surf(i,j,bi,bj)-rC(k) |
|
./model/src/calc_phi_hyd.F |
579 |
CALC_PHI_HYD |
& -((rC( k )/atm_Po)**atm_kappa) ) |
|
./model/src/calc_phi_hyd.F |
581 |
CALC_PHI_HYD |
ddPIm=atm_Cp*( ((rC(k-1)/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
582 |
CALC_PHI_HYD |
& -((rC( k )/atm_Po)**atm_kappa) )*halfRL |
|
./model/src/calc_phi_hyd.F |
585 |
CALC_PHI_HYD |
ddPIp=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
588 |
CALC_PHI_HYD |
ddPIp=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
589 |
CALC_PHI_HYD |
& -((rC(k+1)/atm_Po)**atm_kappa) )*halfRL |
|
./model/src/calc_phi_hyd.F |
591 |
CALC_PHI_HYD |
rec_dRm = oneRL/(rF(k)-rC(k)) |
|
./model/src/calc_phi_hyd.F |
592 |
CALC_PHI_HYD |
rec_dRp = oneRL/(rC(k)-rF(k+1)) |
|
./model/src/calc_phi_hyd.F |
596 |
CALC_PHI_HYD |
ddRloc = Ro_surf(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) |
|
./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 |
886 |
CONFIG_SUMMARY |
CALL WRITE_COPY1D_RS( bufRL, rC, Nr, INDEX_K, 'rcoord =', |
|
./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 |
109 |
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/opps/opps_calc.F |
507 |
OPPS_CALC |
pLoc = rC(kRef)* maskC(i,j,kRef,bi,bj) |
|
./pkg/profiles/profiles_interp.F |
133 |
PROFILES_INTERP |
if (prof_depth(file_cur,kk,bi,bj).LT.-rC(1)) then |
|
./pkg/profiles/profiles_interp.F |
137 |
PROFILES_INTERP |
elseif (prof_depth(file_cur,kk,bi,bj).GE.-rC(nr)) then |
|
./pkg/profiles/profiles_interp.F |
139 |
PROFILES_INTERP |
& (-rC(nr)+drC(nr)/2) ) then |
|
./pkg/profiles/profiles_interp.F |
147 |
PROFILES_INTERP |
if ((prof_depth(file_cur,kk,bi,bj).GE.-rC(k)).AND. |
|
./pkg/profiles/profiles_interp.F |
148 |
PROFILES_INTERP |
& (prof_depth(file_cur,kk,bi,bj).LT.-rC(k+1))) then |
|
./pkg/profiles/profiles_interp.F |
160 |
PROFILES_INTERP |
tmp_coeff=(prof_depth(file_cur,kk,bi,bj)+rC(kcur))/ |
|
./pkg/profiles/profiles_interp.F |
161 |
PROFILES_INTERP |
& (-rC(kcur+1)+rC(kcur)) |
|
./model/src/external_forcing.F |
418 |
EXTERNAL_FORCING_T |
tmpFac = (atm_Po/rC(kLev))**atm_kappa |
|
./model/src/external_forcing.F |
444 |
EXTERNAL_FORCING_T |
tmpFac = (atm_Po/rC(kLev))**atm_kappa |
|
./model/src/external_forcing.F |
457 |
EXTERNAL_FORCING_T |
delPI = atm_Cp*( (rC(km)/atm_Po)**atm_kappa |
|
./model/src/external_forcing.F |
458 |
EXTERNAL_FORCING_T |
& - (rC(kc)/atm_Po)**atm_kappa ) |
|
./model/src/external_forcing.F |
469 |
EXTERNAL_FORCING_T |
delPI = atm_Cp*( (rC(kc)/atm_Po)**atm_kappa |
|
./model/src/external_forcing.F |
470 |
EXTERNAL_FORCING_T |
& - (rC(kp)/atm_Po)**atm_kappa ) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
130 |
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 |
164 |
SALT_PLUME_CALC_DEPTH |
SaltPlumeDepth(i,j,bi,bj) = rF(1)-rC(k-1)+tmpFac*drC(k) |
|
./pkg/seaice/seaice_init_varia.F |
240 |
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 |
230 |
INI_P_GROUND |
IF ( Po_surf.LT.rC(1) .AND. Po_surf.GT.rC(Nr) ) THEN |
|
./model/src/ini_p_ground.F |
233 |
INI_P_GROUND |
IF ( findPoSurf .AND. Po_surf.GE.rC(k) ) THEN |
|
./model/src/ini_p_ground.F |
234 |
INI_P_GROUND |
Po_surf = rC(k) + (Po_surf-rC(k))/ratioRm(k) |
|
./model/src/ini_p_ground.F |
238 |
INI_P_GROUND |
IF (k.LT.Nr) rMidKp1 = (rC(k)+rC(k+1))*0.5 _d 0 |
|
./model/src/ini_p_ground.F |
240 |
INI_P_GROUND |
Po_surf = rC(k) + (Po_surf-rC(k))/ratioRp(k) |
|
./model/src/ini_p_ground.F |
281 |
INI_P_GROUND |
IF ( Pfld(i,j,bi,bj).GE.rC(ks) ) THEN |
|
./model/src/ini_p_ground.F |
284 |
INI_P_GROUND |
& *(Pfld(i,j,bi,bj)-rC(ks))/(rHalf(2*ks-1)-rHalf(2*ks)) |
|
./model/src/ini_p_ground.F |
288 |
INI_P_GROUND |
& *(Pfld(i,j,bi,bj)-rC(ks))/(rHalf(2*ks+1)-rHalf(2*ks)) |
|
./model/src/ini_p_ground.F |
314 |
INI_P_GROUND |
IF ( Po_surf.LT.rC(1) .AND. Po_surf.GT.rC(Nr) ) THEN |
|
./model/src/ini_p_ground.F |
317 |
INI_P_GROUND |
IF ( findPoSurf .AND. Po_surf.GE.rC(k) ) THEN |
|
./model/src/ini_p_ground.F |
318 |
INI_P_GROUND |
Po_surf = rC(k) + (Po_surf-rC(k))*ratioRm(k) |
|
./model/src/ini_p_ground.F |
322 |
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 |
147 |
INI_VERTICAL_GRID |
rC(1) = rF(1) + rkSign*drC(1) |
|
./model/src/ini_vertical_grid.F |
149 |
INI_VERTICAL_GRID |
rC(k) = rC(k-1) + rkSign*drC(k) |
|
./model/src/ini_vertical_grid.F |
167 |
INI_VERTICAL_GRID |
rC(Nr) = rF(Nr+1) - rkSign*drC(Nr+1) |
|
./model/src/ini_vertical_grid.F |
169 |
INI_VERTICAL_GRID |
rC(k-1) = rC(k) - rkSign*drC(k) |
|
./model/src/ini_vertical_grid.F |
178 |
INI_VERTICAL_GRID |
IF ( (rC(k)-rF(k+1)) .NE. 0. ) |
|
./model/src/ini_vertical_grid.F |
179 |
INI_VERTICAL_GRID |
& tmpRatio = (rF(k)-rC(k)) / (rC(k)-rF(k+1)) |
|
./model/src/ini_vertical_grid.F |
190 |
INI_VERTICAL_GRID |
& 'S/R INI_VERTICAL_GRID: rC=', rC(k), |
|
./model/src/ini_vertical_grid.F |
279 |
INI_VERTICAL_GRID |
tmpRS = MIN( rC(k), rSigBndRS ) |
|
./model/src/ini_vertical_grid.F |
280 |
INI_VERTICAL_GRID |
bHybSigmC(k) = ( rC(k) - tmpRS )/(rF(1)-rSigBndRS) |
|
./model/src/ini_vertical_grid.F |
314 |
INI_VERTICAL_GRID |
tmpRS = MAX( rC(k), rSigBndRS ) |
|
./model/src/ini_vertical_grid.F |
315 |
INI_VERTICAL_GRID |
bHybSigmC(k) = ( rC(k)-rF(Nr+1) )/( tmpRS-rF(Nr+1) ) |
|
./model/src/ini_vertical_grid.F |
365 |
INI_VERTICAL_GRID |
tmpError = ( rC(k)-rF(Nr+1) )*recip_fullDepth |
|
./model/src/ini_vertical_grid.F |
374 |
INI_VERTICAL_GRID |
& ' k=', k,' , err=', tmpError, ' ; rC=', rC(k), |
|
./model/src/load_ref_files.F |
143 |
LOAD_REF_FILES |
gravFacF(k) = ( gravFacC(k-1)*(rF(k)-rC(k)) |
|
./model/src/load_ref_files.F |
144 |
LOAD_REF_FILES |
& + gravFacC(k)*(rC(k-1)-rF(k)) )*recip_drC(k) |
|
./model/src/load_ref_files.F |
148 |
LOAD_REF_FILES |
& + gravFacF(Nr)*(rC(Nr)-rF(Nr+1)) |
|
./model/src/load_ref_files.F |
149 |
LOAD_REF_FILES |
& ) / (rC(Nr)-rF(Nr)) |
|
./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)) ) |
|
./model/src/pressure_for_eos.F |
109 |
PRESSURE_FOR_EOS |
locPres(i,j) = rC(k) |
|
./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/set_grid_factors.F |
67 |
SET_GRID_FACTORS |
deepFacC(k) = (rSphere+rC(k))*recip_rSphere |
|
./model/src/set_ref_state.F |
128 |
SET_REF_STATE |
& - recip_rhoConst*( rC(k) - rF(Nr+1) ) |
|
./model/src/set_ref_state.F |
214 |
SET_REF_STATE |
pLoc = rC(k) |
|
./model/src/set_ref_state.F |
256 |
SET_REF_STATE |
ddPI=atm_Cp*( ((rC(k-1)/atm_Po)**atm_kappa) |
|
./model/src/set_ref_state.F |
257 |
SET_REF_STATE |
& -((rC( k )/atm_Po)**atm_kappa) ) |
|
./model/src/set_ref_state.F |
313 |
SET_REF_STATE |
& -((rC(k)/atm_Po)**atm_kappa) ) |
|
./model/src/set_ref_state.F |
316 |
SET_REF_STATE |
ddPI=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa) |
|
./model/src/set_ref_state.F |
317 |
SET_REF_STATE |
& -((rC(k+1)/atm_Po)**atm_kappa) ) |
|
./model/src/set_ref_state.F |
323 |
SET_REF_STATE |
ddPI=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa) |
|
./model/src/set_ref_state.F |
348 |
SET_REF_STATE |
rhoFacF(k) = ( rhoFacC(k-1)*(rF(k)-rC(k)) |
|
./model/src/set_ref_state.F |
349 |
SET_REF_STATE |
& + rhoFacC(k)*(rC(k-1)-rF(k)) )*recip_drC(k) |
|
./model/src/set_ref_state.F |
353 |
SET_REF_STATE |
& + rhoFacF(Nr)*(rC(Nr)-rF(Nr+1)) |
|
./model/src/set_ref_state.F |
354 |
SET_REF_STATE |
& ) / (rC(Nr)-rF(Nr)) |
|
./model/src/set_ref_state.F |
64 |
SET_REF_STATE |
rHalf(2*k) = rC(k) |
|
./model/src/set_ref_state.F |
91 |
SET_REF_STATE |
& + (rC(k) - rF(1))*gravity*gravitySign |
|
./model/src/set_ref_state.F |
98 |
SET_REF_STATE |
& + rhoConst*(rC(k) - rF(1))*gravity*gravitySign |
|
./model/src/write_grid.F |
127 |
WRITE_GRID |
CALL WRITE_GLVEC_RS( 'RC', ' ', rC, Nr, -1, myThid ) |
|
./model/src/write_grid.F |
170 |
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 |
404 |
ATM_PHYS_DRIVER |
conv_T2theta = (atm_po/rC(kc))**atm_kappa |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
105 |
ATM_PHYS_DYN2PHYS |
pFull3d(:,:,k) = rC(kc) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
119 |
ATM_PHYS_DYN2PHYS |
conv_theta2T = (rC(kc)/atm_po)**atm_kappa |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
77 |
ATM_PHYS_DYN2PHYS |
pFull3d(:,:,k) = rF(Nr+1) + ( rC(kc) - rF(Nr+1) ) |
|
./pkg/atm_phys/atm_phys_dyn2phys.F |
88 |
ATM_PHYS_DYN2PHYS |
pFull3d(:,:,k) = rF(Nr+1) + ( rC(kc) - rF(Nr+1) ) |
|
./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 |
420 |
DIAGNOSTICS_FILL_STATE |
dummy1 = theta(i,j,k,bi,bj) * ((rC(k)/100.)/1000.)**kappa |
|
./pkg/diagnostics/diagnostics_fill_state.F |
421 |
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 |
83 |
DIC_INIT_FIXED |
DO WHILE ( k .LT. Nr .AND. rC(k) .GE. -zcrit ) |
|
./pkg/ecco/cost_averagesfields.F |
625 |
COST_AVERAGESFIELDS |
& -rC(k) |
|
./pkg/ecco/cost_averagesfields.F |
630 |
COST_AVERAGESFIELDS |
& -rC(k)*gravity ) |