| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_calc_tensor.F |
371 |
GMREDI_CALC_TENSOR |
I ldd97_LrhoW,rC(k),k, |
|
./pkg/gmredi/gmredi_calc_tensor.F |
491 |
GMREDI_CALC_TENSOR |
I ldd97_LrhoS,rC(k),k, |
|
./pkg/diagnostics/diagstats_mnc_out.F |
159 |
DIAGSTATS_MNC_OUT |
ztmp(j) = rC(NINT(levs(j,listId))) |
|
./pkg/diagnostics/diagnostics_out.F |
170 |
DIAGNOSTICS_OUT |
ztmp(j) = rC(NINT(levs(j,listId))) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
168 |
DIAGNOSTICS_INTERP_VERT |
qtmp2(i,j,k,bi,bj) = rC(k) |
|
./pkg/aim_v23/aim_dyn2aim.F |
160 |
AIM_DYN2AIM |
conv_theta2T = (rC(K)/atm_po)**atm_kappa |
|
./pkg/aim_v23/aim_aim2dyn.F |
83 |
AIM_AIM2DYN |
conv_T2theta = (atm_po/rC(k))**atm_kappa |
|
./pkg/flt/flt_functions.F |
167 |
NO PROCEDURE |
zlo = rC(k) |
|
./pkg/flt/flt_functions.F |
168 |
NO PROCEDURE |
if (k.eq.0) zlo = rC(k)-drF(1)*0.5 |
|
./pkg/flt/flt_functions.F |
169 |
NO PROCEDURE |
zhi = rC(k+1) |
|
./pkg/flt/flt_functions.F |
170 |
NO PROCEDURE |
if (k.eq.Nr) zhi = rC(k)+drF(Nr)*0.5 |
|
./pkg/autodiff/autodiff_ini_model_io.F |
307 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_RS_W('R','adstate',0,0,'RC',rC, myThid) |
|
./pkg/autodiff/autodiff_ini_model_io.F |
320 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_RS_W('R','adexf',0,0,'RC',rC, myThid) |
|
./pkg/autodiff/autodiff_ini_model_io.F |
334 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_RS_W('R','adseaice',0,0,'RC',rC, myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
133 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'rC',rC,myThid) |
|
./pkg/mnc/mnc_cw_cvars.F |
144 |
MNC_CW_WRITE_CVAR |
rtmp(i) = rC(i) |
|
./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 |
283 |
PROFILES_INTERP |
tmp_coeff=(prof_depth(file_cur,kk,bi,bj)+rC(kcur))/ |
|
./pkg/profiles/profiles_interp.F |
284 |
PROFILES_INTERP |
& (-rC(kcur+1)+rC(kcur)) |
|
./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 |
|
./verification/hs94.1x64x5/code/ini_theta.F |
68 |
INI_THETA |
thetaLim = 200. _d 0/((rC(K)/atm_po)**atm_kappa) |
|
./verification/hs94.1x64x5/code/ini_theta.F |
72 |
INI_THETA |
term2=10. _d 0*log((rC(K)/atm_po)) |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
68 |
INI_THETA |
thetaLim = 200. _d 0/((rC(K)/atm_po)**atm_kappa) |
|
./verification/hs94.1x64x5/code_ad/ini_theta.F |
72 |
INI_THETA |
term2=10. _d 0*log((rC(K)/atm_po)) |
|
./model/src/write_grid.F |
103 |
WRITE_GRID |
CALL MDSWRITEVEC_LOC_RS('RC', writeBinaryPrec, Nr, rC, |
|
./model/src/write_grid.F |
127 |
WRITE_GRID |
CALL MNC_CW_RL_W('D',bfname,0,0,'RC',rC,myThid) |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
68 |
INI_THETA |
thetaLim = 200. _d 0/((rC(K)/atm_po)**atm_kappa) |
|
./verification/hs94.cs-32x32x5/code/ini_theta.F |
72 |
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/calc_phi_hyd.F |
210 |
CALC_PHI_HYD |
IF (k.EQ.1) dRlocM=rF(k)-rC(k) |
|
./model/src/calc_phi_hyd.F |
212 |
CALC_PHI_HYD |
dRlocP=rC(k)-rF(k+1) |
|
./model/src/calc_phi_hyd.F |
282 |
CALC_PHI_HYD |
ddRloc = Ro_surf(i,j,bi,bj)-rC(k) |
|
./model/src/calc_phi_hyd.F |
306 |
CALC_PHI_HYD |
IF (k.EQ.1) dRlocM=rF(k)-rC(k) |
|
./model/src/calc_phi_hyd.F |
308 |
CALC_PHI_HYD |
dRlocP=rC(k)-rF(k+1) |
|
./model/src/calc_phi_hyd.F |
312 |
CALC_PHI_HYD |
rec_dRm = one/(rF(k)-rC(k)) |
|
./model/src/calc_phi_hyd.F |
313 |
CALC_PHI_HYD |
rec_dRp = one/(rC(k)-rF(k+1)) |
|
./model/src/calc_phi_hyd.F |
321 |
CALC_PHI_HYD |
ddRloc = Ro_surf(i,j,bi,bj)-rC(k) |
|
./model/src/calc_phi_hyd.F |
365 |
CALC_PHI_HYD |
& -((rC( k )/atm_Po)**atm_kappa) ) |
|
./model/src/calc_phi_hyd.F |
367 |
CALC_PHI_HYD |
ddPIm=atm_Cp*( ((rC(k-1)/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
368 |
CALC_PHI_HYD |
& -((rC( k )/atm_Po)**atm_kappa) )*half |
|
./model/src/calc_phi_hyd.F |
371 |
CALC_PHI_HYD |
ddPIp=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
374 |
CALC_PHI_HYD |
ddPIp=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
375 |
CALC_PHI_HYD |
& -((rC(k+1)/atm_Po)**atm_kappa) )*half |
|
./model/src/calc_phi_hyd.F |
398 |
CALC_PHI_HYD |
& -((rC( k )/atm_Po)**atm_kappa) ) |
|
./model/src/calc_phi_hyd.F |
399 |
CALC_PHI_HYD |
ddPIp=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
404 |
CALC_PHI_HYD |
ddRloc = Ro_surf(i,j,bi,bj)-rC(k) |
|
./model/src/calc_phi_hyd.F |
431 |
CALC_PHI_HYD |
& -((rC( k )/atm_Po)**atm_kappa) ) |
|
./model/src/calc_phi_hyd.F |
433 |
CALC_PHI_HYD |
ddPIm=atm_Cp*( ((rC(k-1)/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
434 |
CALC_PHI_HYD |
& -((rC( k )/atm_Po)**atm_kappa) )*half |
|
./model/src/calc_phi_hyd.F |
437 |
CALC_PHI_HYD |
ddPIp=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
440 |
CALC_PHI_HYD |
ddPIp=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
441 |
CALC_PHI_HYD |
& -((rC(k+1)/atm_Po)**atm_kappa) )*half |
|
./model/src/calc_phi_hyd.F |
443 |
CALC_PHI_HYD |
rec_dRm = one/(rF(k)-rC(k)) |
|
./model/src/calc_phi_hyd.F |
444 |
CALC_PHI_HYD |
rec_dRp = one/(rC(k)-rF(k+1)) |
|
./model/src/calc_phi_hyd.F |
448 |
CALC_PHI_HYD |
ddRloc = Ro_surf(i,j,bi,bj)-rC(k) |
|
./model/src/calc_grad_phi_hyd.F |
100 |
CALC_GRAD_PHI_HYD |
& -( rC(k) /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 |
160 |
CALC_GRAD_PHI_HYD |
& *(1. _d 0 + rC(k)*recip_Rcol(i,j,bi,bj)) |
|
./model/src/calc_grad_phi_hyd.F |
183 |
CALC_GRAD_PHI_HYD |
& *rC(k)*recip_dxC(i,j,bi,bj) |
|
./model/src/calc_grad_phi_hyd.F |
187 |
CALC_GRAD_PHI_HYD |
& *rC(k)*recip_dyC(i,j,bi,bj) |
|
./model/src/calc_grad_phi_hyd.F |
192 |
CALC_GRAD_PHI_HYD |
conv_theta2T = (rC(k)/atm_Po)**atm_kappa |
|
./model/src/calc_grad_phi_hyd.F |
193 |
CALC_GRAD_PHI_HYD |
factorP = (atm_Rd/rC(k))*conv_theta2T*0.5 _d 0 |
|
./model/src/calc_grad_phi_hyd.F |
199 |
CALC_GRAD_PHI_HYD |
& *rC(k)*recip_dxC(i,j,bi,bj) |
|
./model/src/calc_grad_phi_hyd.F |
203 |
CALC_GRAD_PHI_HYD |
& *rC(k)*recip_dyC(i,j,bi,bj) |
|
./model/src/calc_grad_phi_hyd.F |
98 |
CALC_GRAD_PHI_HYD |
IF (Ro_surf(i,j,bi,bj).EQ.rC(k)) THEN |
|
./model/src/calc_grad_phi_hyd.F |
99 |
CALC_GRAD_PHI_HYD |
factPI=atm_Cp*( ((etaH(i,j,bi,bj)+rC(k))/atm_Po)**atm_kappa |
|
./model/src/diags_phi_rlow.F |
79 |
DIAGS_PHI_RLOW |
ddRloc = rC(k)-R_low(i,j,bi,bj) |
|
./model/src/diags_phi_rlow.F |
91 |
DIAGS_PHI_RLOW |
IF (k.GT.1 ) ratioRm = half*drC(k)/(rF(k)-rC(k)) |
|
./model/src/diags_phi_rlow.F |
92 |
DIAGS_PHI_RLOW |
IF (k.LT.Nr) ratioRp = half*drC(k+1)/(rC(k)-rF(k+1)) |
|
./model/src/diags_phi_rlow.F |
97 |
DIAGS_PHI_RLOW |
ddRloc = rC(k)-R_low(i,j,bi,bj) |
|
./model/src/config_summary.F |
569 |
CONFIG_SUMMARY |
rcoord(K) = rC(K) |
|
./model/src/ini_vertical_grid.F |
56 |
INI_VERTICAL_GRID |
rC(1) = rF(1) + rkSign*delRc(1) |
|
./model/src/ini_vertical_grid.F |
63 |
INI_VERTICAL_GRID |
rC(K) = rC(K-1) + rkSign*drC(K) |
|
./model/src/ini_vertical_grid.F |
92 |
INI_VERTICAL_GRID |
rC(1) = rf(1) + rkSign*delR(1) * 0.5 _d 0 |
|
./model/src/ini_vertical_grid.F |
95 |
INI_VERTICAL_GRID |
rC(K) = rC(K-1) + rkSign*drC(K) |
|
./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 |
274 |
INI_P_GROUND |
IF ( Pfld(i,j,bi,bj).GE.rC(ks) ) THEN |
|
./model/src/ini_p_ground.F |
277 |
INI_P_GROUND |
& *(Pfld(i,j,bi,bj)-rC(ks))/(rHalf(2*ks-1)-rHalf(2*ks)) |
|
./model/src/ini_p_ground.F |
281 |
INI_P_GROUND |
& *(Pfld(i,j,bi,bj)-rC(ks))/(rHalf(2*ks+1)-rHalf(2*ks)) |
|
./model/src/ini_p_ground.F |
307 |
INI_P_GROUND |
IF ( Po_surf.LT.rC(1) .AND. Po_surf.GT.rC(Nr) ) THEN |
|
./model/src/ini_p_ground.F |
310 |
INI_P_GROUND |
IF ( findPoSurf .AND. Po_surf.GE.rC(k) ) THEN |
|
./model/src/ini_p_ground.F |
311 |
INI_P_GROUND |
Po_surf = rC(k) + (Po_surf-rC(k))*ratioRm(k) |
|
./model/src/ini_p_ground.F |
315 |
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) |
|
./model/src/ini_phiref.F |
120 |
INI_PHIREF |
pLoc = rC(k) |
|
./model/src/ini_phiref.F |
151 |
INI_PHIREF |
ddPI=atm_Cp*( ((rC(k-1)/atm_Po)**atm_kappa) |
|
./model/src/ini_phiref.F |
152 |
INI_PHIREF |
& -((rC( k )/atm_Po)**atm_kappa) ) |
|
./model/src/ini_phiref.F |
176 |
INI_PHIREF |
& -((rC(k)/atm_Po)**atm_kappa) ) |
|
./model/src/ini_phiref.F |
179 |
INI_PHIREF |
ddPI=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa) |
|
./model/src/ini_phiref.F |
180 |
INI_PHIREF |
& -((rC(k+1)/atm_Po)**atm_kappa) ) |
|
./model/src/ini_phiref.F |
186 |
INI_PHIREF |
ddPI=atm_Cp*( ((rC( k )/atm_Po)**atm_kappa) |
|
./model/src/ini_phiref.F |
57 |
INI_PHIREF |
rHalf(2*k) = rC(k) |
|
./model/src/ini_phiref.F |
87 |
INI_PHIREF |
pLoc = -rhoConst*rC(k)*gravity |
|
./model/src/pressure_for_eos.F |
62 |
PRESSURE_FOR_EOS |
& -rC(k)*gravity |
|
./model/src/pressure_for_eos.F |
69 |
PRESSURE_FOR_EOS |
locPres(i,j) = -rhoConst*rC(k)*gravity |
|
./model/src/pressure_for_eos.F |
79 |
PRESSURE_FOR_EOS |
locPres(i,j) = rC(k) |
|
./pkg/kpp/kpp_init.F |
116 |
KPP_INIT |
zgrid(k) = rC(k) |
|
./pkg/kpp/kpp_routines.F |
1576 |
STATEKPP |
& ABS(((WORK3(I,J)-WORK1(I,J))*rC(k)+ |
|
./pkg/kpp/kpp_routines.F |
1577 |
STATEKPP |
& (WORK2(I,J)-WORK3(I,J))*rC(k-1))/ |
|
./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) |
|
./pkg/monitor/mon_surfcor.F |
120 |
MON_SURFCOR |
ddPI=atm_cp*( (rC(K-1)/atm_po)**atm_kappa |
|
./pkg/monitor/mon_surfcor.F |
121 |
MON_SURFCOR |
& -(rC( K )/atm_po)**atm_kappa ) |
|
./pkg/monitor/mon_surfcor.F |
143 |
MON_SURFCOR |
& atm_cp*((rC(k)/atm_po)**atm_kappa) |
|
./pkg/monitor/mon_surfcor.F |
92 |
MON_SURFCOR |
& + tmpVal*atm_cp*((rC(ks)/atm_po)**atm_kappa) |
|
./pkg/sbo/sbo_calc.F |
236 |
SBO_CALC |
radius = ae - abs(rC(K)) |
|
./model/inc/GRID.h |
396 |
NO PROCEDURE |
& drC,drF,recip_drC,recip_drF,rC,rF, |
|
./model/inc/GRID.h |
459 |
NO PROCEDURE |
_RS rC (1:Nr) |
|
./pkg/generic_advdiff/salt_fill.F |
81 |
SALT_FILL |
dpratio= rC(L)/rC(LM1) |
|
./pkg/seaice/seaice_init.F |
181 |
SEAICE_INIT |
DO WHILE ( abs(rC(KGEO(I,J,bi,bj))) .LT. 50.0 .AND. |