| File |
Line number |
Procedure |
Code |
|
./model/inc/GRID.h |
426 |
NO PROCEDURE |
& drC, drF, recip_drC, recip_drF, rC, rF, |
|
./model/inc/GRID.h |
484 |
NO PROCEDURE |
_RS rF (Nr+1) |
|
./pkg/fizhi/getpwhere.F |
88 |
GETPWHERE |
dptry_pedge(1) = rF(1)*1. _d -2 |
|
./pkg/flt/flt_mapping.F |
197 |
FLT_MAP_IJLOCAL2XY |
IF ( rF(k) .GE. rr .AND. rr.GT.rF(k+1) ) THEN |
|
./pkg/flt/flt_mapping.F |
198 |
FLT_MAP_IJLOCAL2XY |
fm = ( rr - rF(k) ) * recip_drF(k)*rkSign |
|
./pkg/flt/flt_mapping.F |
242 |
FLT_MAP_IJLOCAL2XY |
FLT_MAP_K2R = rF(1) |
|
./pkg/flt/flt_mapping.F |
244 |
FLT_MAP_IJLOCAL2XY |
FLT_MAP_K2R = rF(Nr+1) |
|
./pkg/flt/flt_mapping.F |
247 |
FLT_MAP_IJLOCAL2XY |
FLT_MAP_K2R = rF(k) + ddz*drF(k)*rkSign |
|
./pkg/ggl90/ggl90_calc.F |
228 |
GGL90_CALC |
MaxLength=MIN(Ro_surf(i,j,bi,bj)-rF(k),rF(k)-R_low(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
268 |
GMREDI_CALC_EIGS |
drNr = rC(Nr)-rF(Nr+1) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
129 |
GMREDI_CALC_PSI_B |
I ldd97_LrhoW, ldd97_LrhoS, rF(k), k, |
|
./pkg/gmredi/gmredi_calc_tensor.F |
425 |
GMREDI_CALC_TENSOR |
I ldd97_LrhoC, locMixLayer, rF, |
|
./pkg/gmredi/gmredi_calc_tensor.F |
469 |
GMREDI_CALC_TENSOR |
deltaH=abs(GM_Visbeck_depth)-abs(rF(k)) |
|
./pkg/gmredi/gmredi_k3d.F |
486 |
GMREDI_K3D |
IF (-rF(k+1) .LE. GM_K3D_EadyMinDepth) CYCLE |
|
./pkg/gmredi/gmredi_k3d.F |
490 |
GMREDI_K3D |
IF (-rF(k).GE.GM_K3D_EadyMaxDepth) EXIT |
|
./pkg/gmredi/gmredi_k3d.F |
618 |
GMREDI_K3D |
IF (rF(k).GT.surfkz(i,j) .AND. surfkz(i,j).GE.rF(k+1)) |
|
./pkg/gmredi/submeso_calc_psi.F |
105 |
SUBMESO_CALC_PSI |
dzLoc = MAX( 0. _d 0, MIN( drF(k), mixLayerU(i,j)+rF(k) ) ) |
|
./pkg/gmredi/submeso_calc_psi.F |
111 |
SUBMESO_CALC_PSI |
dzLoc = MAX( 0. _d 0, MIN( drF(k), mixLayerV(i,j)+rF(k) ) ) |
|
./pkg/gmredi/submeso_calc_psi.F |
167 |
SUBMESO_CALC_PSI |
z2H = 2. _d 0*rF(k)/mixLayerU(i,j) |
|
./pkg/gmredi/submeso_calc_psi.F |
210 |
SUBMESO_CALC_PSI |
z2H = 2. _d 0*rF(k)/mixLayerV(i,j) |
|
./pkg/icefront/icefront_init_fixed.F |
65 |
ICEFRONT_INIT_FIXED |
IF ( R_icefront(I,J,bi,bj) .GT. ABS(rF(K))) |
|
./pkg/icefront/icefront_thermodynamics.F |
122 |
ICEFRONT_THERMODYNAMICS |
pLoc = 0.5*(ABS(R_icefront(I,J,bi,bj))+ABS(rF(K))) |
|
./pkg/icefront/icefront_thermodynamics.F |
171 |
ICEFRONT_THERMODYNAMICS |
& * (ABS(R_icefront(I,J,bi,bj))-ABS(rF(K))) |
|
./pkg/icefront/icefront_thermodynamics.F |
175 |
ICEFRONT_THERMODYNAMICS |
& * (ABS(R_icefront(I,J,bi,bj))-ABS(rF(K))) |
|
./pkg/kpp/kpp_forcing_surf.F |
319 |
KPP_FORCING_SURF |
zRef(i,j) = rF(k) + drF(k) * (dB_dz - dBdz1) / |
|
./pkg/kpp/kpp_forcing_surf.F |
322 |
KPP_FORCING_SURF |
zRef(i,j) = rF(k+1) |
|
./pkg/kpp/kpp_forcing_surf.F |
340 |
KPP_FORCING_SURF |
z0(i,j) = rF(2) * |
|
./pkg/kpp/kpp_forcing_surf.F |
341 |
KPP_FORCING_SURF |
& ( rF(3) * LOG ( rF(3) / rF(2) ) / |
|
./pkg/kpp/kpp_forcing_surf.F |
342 |
KPP_FORCING_SURF |
& ( rF(3) - rF(2) ) - |
|
./pkg/kpp/kpp_forcing_surf.F |
366 |
KPP_FORCING_SURF |
& ( LOG ( zRef(i,j) / rF(2) ) + |
|
./pkg/kpp/kpp_forcing_surf.F |
367 |
KPP_FORCING_SURF |
& z0(i,j) / zRef(i,j) - z0(i,j) / rF(2) ) / |
|
./model/src/add_walls2masks.F |
116 |
ADD_WALLS2MASKS |
rLowW (i,j,bi,bj) = rF(1) |
|
./model/src/add_walls2masks.F |
117 |
ADD_WALLS2MASKS |
rSurfW(i,j,bi,bj) = rF(1) |
|
./model/src/add_walls2masks.F |
123 |
ADD_WALLS2MASKS |
rLowS (i,j,bi,bj) = rF(1) |
|
./model/src/add_walls2masks.F |
124 |
ADD_WALLS2MASKS |
rSurfS(i,j,bi,bj) = rF(1) |
|
./model/src/add_walls2masks.F |
89 |
ADD_WALLS2MASKS |
rLowW (i,j,bi,bj) = rF(1) |
|
./model/src/add_walls2masks.F |
90 |
ADD_WALLS2MASKS |
rSurfW(i,j,bi,bj) = rF(1) |
|
./model/src/add_walls2masks.F |
96 |
ADD_WALLS2MASKS |
rLowS (i,j,bi,bj) = rF(1) |
|
./model/src/add_walls2masks.F |
97 |
ADD_WALLS2MASKS |
rSurfS(i,j,bi,bj) = rF(1) |
|
./model/src/apply_forcing.F |
662 |
APPLY_FORCING_T |
swfracb(1)=abs(rF(k)) |
|
./model/src/apply_forcing.F |
663 |
APPLY_FORCING_T |
swfracb(2)=abs(rF(k+1)) |
|
./model/src/calc_3d_diffusivity.F |
81 |
CALC_3D_DIFFUSIVITY |
& *(atan(-(rF(k)-diffKrBL79Ho)/diffKrBL79scl)/PI+0.5 _d 0) |
|
./model/src/calc_3d_diffusivity.F |
84 |
CALC_3D_DIFFUSIVITY |
& *(atan(-(rF(k)-diffKrBLEQHo)/diffKrBLEQscl)/PI+0.5 _d 0) |
|
./pkg/mnc/mnc_cw_cvars.F |
328 |
MNC_CW_WRITE_CVAR |
rtmp(i) = rF(i) |
|
./pkg/mnc/mnc_cw_cvars.F |
347 |
MNC_CW_WRITE_CVAR |
rtmp(i) = rF(i + 1) |
|
./pkg/mnc/mnc_cw_cvars.F |
367 |
MNC_CW_WRITE_CVAR |
rtmp(i) = rF(i) |
|
./pkg/mnc/mnc_cw_cvars.F |
387 |
MNC_CW_WRITE_CVAR |
rtmp(i) = rF(i + 1) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
139 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'rF',rF,myThid) |
|
./model/src/calc_oce_mxlayer.F |
105 |
CALC_OCE_MXLAYER |
hMixLayer(i,j,bi,bj) = rF(1)-R_low(i,j,bi,bj) |
|
./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 |
149 |
CALC_OCE_MXLAYER |
hMixLayer(i,j,bi,bj) = rF(1) |
|
./model/src/calc_oce_mxlayer.F |
178 |
CALC_OCE_MXLAYER |
hMixLayer(i,j,bi,bj) = rF(1)-rF(k+1) |
|
./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 |
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 |
468 |
CALC_PHI_HYD |
fullDepth = rF(1)-rF(Nr+1) |
|
./model/src/calc_phi_hyd.F |
507 |
CALC_PHI_HYD |
ddPIm=atm_Cp*( ((rF( k )/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
515 |
CALC_PHI_HYD |
& -((rF(k+1)/atm_Po)**atm_kappa) ) |
|
./model/src/calc_phi_hyd.F |
540 |
CALC_PHI_HYD |
ddPIm=atm_Cp*( ((rF( k )/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
543 |
CALC_PHI_HYD |
& -((rF(k+1)/atm_Po)**atm_kappa) ) |
|
./model/src/calc_phi_hyd.F |
573 |
CALC_PHI_HYD |
ddPIm=atm_Cp*( ((rF( k )/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
581 |
CALC_PHI_HYD |
& -((rF(k+1)/atm_Po)**atm_kappa) ) |
|
./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)) |
|
./pkg/my82/my82_calc.F |
138 |
MY82_CALC |
GM(I,J) = GM(I,J) + tke(I,J,K)*rF(K) |
|
./model/src/config_summary.F |
794 |
CONFIG_SUMMARY |
CALL WRITE_COPY1D_RS( bufRL, rF,Nr+1,INDEX_K, 'rF = ', |
|
./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)) |
|
./pkg/profiles/profiles_interp.F |
294 |
PROFILES_INTERP |
elseif (prof_depth(file_cur,kk,bi,bj).LT.-rF(kcur+1)) then |
|
./pkg/profiles/profiles_interp_gg.F |
162 |
PROFILES_INTERP_GG |
elseif (prof_depth(file_cur,kk,bi,bj).LT.-rF(kcur+1)) then |
|
./pkg/profiles/profiles_interp_mean.F |
258 |
PROFILES_INTERP_MEAN |
elseif (prof_depth(file_cur,kk,bi,bj).LT.-rF(kcur+1)) then |
|
./pkg/profiles/profiles_interp_mean_gg.F |
141 |
PROFILES_INTERP_MEAN_GG |
elseif (prof_depth(file_cur,kk,bi,bj).LT.-rF(kcur+1)) then |
|
./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 |
140 |
SALT_PLUME_CALC_DEPTH |
SaltPlumeDepth(i,j,bi,bj) = rF(1)-R_low(I,J,bi,bj) |
|
./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) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
176 |
SALT_PLUME_CALC_DEPTH |
& rF(1)-R_low(i,j,bi,bj) ) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
186 |
SALT_PLUME_CALC_DEPTH |
& rF(1)-R_low(i,j,bi,bj) ) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
79 |
SALT_PLUME_CALC_DEPTH |
SaltPlumeDepth(i,j,bi,bj) = rF(1)-R_low(I,J,bi,bj) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
92 |
SALT_PLUME_CALC_DEPTH |
SaltPlumeDepth(i,j,bi,bj) = rF(1)-R_low(I,J,bi,bj) |
|
./model/src/external_forcing.F |
534 |
EXTERNAL_FORCING_T |
swfracb(1)=abs(rF(kLev)) |
|
./model/src/external_forcing.F |
535 |
EXTERNAL_FORCING_T |
swfracb(2)=abs(rF(kLev+1)) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
103 |
SALT_PLUME_TENDENCY_APPLY_S |
IF ( SaltPlumeDepth(i,j,bi,bj) .GT. ABS(rF(k)) ) THEN |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
124 |
SALT_PLUME_TENDENCY_APPLY_S |
IF ( SaltPlumeDepth(i,j,bi,bj) .GT. ABS(rF(k)) ) THEN |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
127 |
SALT_PLUME_TENDENCY_APPLY_S |
plumekb(1)=ABS(rF(k)) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
128 |
SALT_PLUME_TENDENCY_APPLY_S |
plumekb(2)=ABS(rF(k+1)) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
76 |
SALT_PLUME_TENDENCY_APPLY_S |
plumekb2D(i,j)=ABS(rF(k)) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
89 |
SALT_PLUME_TENDENCY_APPLY_S |
plumekb2D(i,j) = ABS(rF(k+1)) |
|
./pkg/salt_plume/salt_plume_tendency_apply_t.F |
58 |
SALT_PLUME_TENDENCY_APPLY_T |
IF ( SaltPlumeDepth(i,j,bi,bj) .GT. ABS(rF(k)) ) THEN |
|
./pkg/salt_plume/salt_plume_volfrac.F |
97 |
SALT_PLUME_VOLFRAC |
dMbdt(i,j)=abs(rF(k)) |
|
./pkg/seaice/seaice_init_fixed.F |
77 |
SEAICE_INIT_FIXED |
swfracba(1) = ABS(rF(1)) |
|
./pkg/seaice/seaice_init_fixed.F |
78 |
SEAICE_INIT_FIXED |
swfracba(2) = ABS(rF(2)) |
|
./pkg/shelfice/shelfice_update_masks.F |
10 |
SHELFICE_UPDATE_MASKS |
I rF, recip_drF, |
|
./pkg/shelfice/shelfice_update_masks.F |
37 |
SHELFICE_UPDATE_MASKS |
_RS rF (1:Nr+1) |
|
./pkg/shelfice/shelfice_update_masks.F |
91 |
SHELFICE_UPDATE_MASKS |
hFacCtmp = (rF(k)-R_shelfIce(I,J,bi,bj))*recip_drF(K) |
|
./model/src/ini_depths.F |
101 |
INI_DEPTHS |
R_low(i,j,bi,bj) = rF(Nr+1) |
|
./model/src/ini_depths.F |
166 |
INI_DEPTHS |
Ro_surf(i,j,bi,bj) = rF(1) |
|
./model/src/ini_depths.F |
245 |
INI_DEPTHS |
& Ro_surf(i,j,bi,bj) = rF(Nr+1) |
|
./model/src/ini_depths.F |
267 |
INI_DEPTHS |
& R_low(i,j,bi,bj) = rF(1) |
|
./model/src/ini_masks_etc.F |
110 |
INI_MASKS_ETC |
hFacCtmp = (rF(k)-Ro_surf(i,j,bi,bj))*recip_drF(k) |
|
./model/src/ini_masks_etc.F |
136 |
INI_MASKS_ETC |
I rF, recip_drF, |
|
./model/src/ini_masks_etc.F |
66 |
INI_MASKS_ETC |
hFacCtmp = (rF(k)-R_low(i,j,bi,bj))*recip_drF(k) |
|
./model/src/ini_masks_etc.F |
86 |
INI_MASKS_ETC |
R_low(i,j,bi,bj) = rF(1) |
|
./model/src/ini_nlfs_vars.F |
142 |
INI_NLFS_VARS |
Rmin_tmp = rF(ks+1) |
|
./model/src/ini_nlfs_vars.F |
153 |
INI_NLFS_VARS |
& MAX( MAX(rF(ks+1),R_low(i,j,bi,bj)) + hFacInf*drF(ks), |
|
./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 |
236 |
INI_P_GROUND |
rMidKp1 = rF(k+1) |
|
./model/src/ini_p_ground.F |
277 |
INI_P_GROUND |
IF ( Pfld(i,j,bi,bj).LT.rF(k) ) ks = k |
|
./model/src/ini_p_ground.F |
320 |
INI_P_GROUND |
IF ( findPoSurf .AND. Po_surf.GE.rF(k+1) ) THEN |
|
./model/src/ini_p_ground.F |
89 |
INI_P_GROUND |
rHalf(2*K-1) = rF(K) |
|
./model/src/ini_p_ground.F |
92 |
INI_P_GROUND |
rHalf(2*Nr+1) = rF(Nr+1) |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
101 |
INI_DEPTHS |
R_low(i,j,bi,bj) = rF(Nr+1) |
|
./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 |
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 |
263 |
INI_DEPTHS |
& R_low(i,j,bi,bj) = rF(1) |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
266 |
INI_DEPTHS |
& R_low(i,j,bi,bj) = rF(1) |
|
./model/src/ini_sigma_hfac.F |
57 |
INI_SIGMA_HFAC |
IF ( usingPCoords ) rEmpty = rF(Nr+1) |
|
./model/src/ini_sigma_hfac.F |
58 |
INI_SIGMA_HFAC |
IF ( usingZCoords ) rEmpty = rF(1) |
|
./model/src/ini_sigma_hfac.F |
59 |
INI_SIGMA_HFAC |
rFullDepth = rF(1)-rF(Nr+1) |
|
./model/src/ini_vertical_grid.F |
134 |
INI_VERTICAL_GRID |
rF(1) = Ro_SeaLevel |
|
./model/src/ini_vertical_grid.F |
136 |
INI_VERTICAL_GRID |
rF(k+1) = rF(k) + rkSign*drF(k) |
|
./model/src/ini_vertical_grid.F |
138 |
INI_VERTICAL_GRID |
rC(1) = rF(1) + rkSign*drC(1) |
|
./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 |
161 |
INI_VERTICAL_GRID |
& ' , rF(k,k+1)=',rF(k),rF(k+1) |
|
./model/src/ini_vertical_grid.F |
190 |
INI_VERTICAL_GRID |
rFullDepth = rF(1) - rF(Nr+1) |
|
./model/src/ini_vertical_grid.F |
196 |
INI_VERTICAL_GRID |
IF ( usingPCoords ) rSigBndRS = rF(Nr+1) |
|
./model/src/ini_vertical_grid.F |
197 |
INI_VERTICAL_GRID |
IF ( usingZCoords ) rSigBndRS = rF(1) |
|
./model/src/ini_vertical_grid.F |
231 |
INI_VERTICAL_GRID |
tmpRS = MIN( rF(k), rSigBndRS ) |
|
./model/src/ini_vertical_grid.F |
232 |
INI_VERTICAL_GRID |
bHybSigmF(k) = ( rF(k) - tmpRS )/(rF(1)-rSigBndRS) |
|
./model/src/ini_vertical_grid.F |
234 |
INI_VERTICAL_GRID |
& *( tmpRS -rF(Nr+1) )*recip_fullDepth |
|
./model/src/ini_vertical_grid.F |
250 |
INI_VERTICAL_GRID |
bHybSigmC(k) = ( rC(k) - tmpRS )/(rF(1)-rSigBndRS) |
|
./model/src/ini_vertical_grid.F |
252 |
INI_VERTICAL_GRID |
& *( tmpRS -rF(Nr+1) )*recip_fullDepth |
|
./model/src/ini_vertical_grid.F |
268 |
INI_VERTICAL_GRID |
tmpRS = MAX( rF(k), rSigBndRS ) |
|
./model/src/ini_vertical_grid.F |
269 |
INI_VERTICAL_GRID |
bHybSigmF(k) = ( rF(k)-rF(Nr+1) )/( tmpRS-rF(Nr+1) ) |
|
./model/src/ini_vertical_grid.F |
270 |
INI_VERTICAL_GRID |
aHybSigmF(k) = bHybSigmF(k)*( tmpRS-rF(1) )*recip_fullDepth |
|
./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 |
286 |
INI_VERTICAL_GRID |
aHybSigmC(k) = bHybSigmC(k)*( tmpRS-rF(1) )*recip_fullDepth |
|
./model/src/ini_vertical_grid.F |
335 |
INI_VERTICAL_GRID |
tmpError = ( rC(k)-rF(Nr+1) )*recip_fullDepth |
|
./model/src/ini_vertical_grid.F |
351 |
INI_VERTICAL_GRID |
tmpError = ( rF(k)-rF(Nr+1) )*recip_fullDepth |
|
./model/src/ini_vertical_grid.F |
360 |
INI_VERTICAL_GRID |
& ' k=', k,' , err=', tmpError, ' ; rF=', rF(k), |
|
./verification/hs94.128x64x5/code/external_forcing.F |
128 |
EXTERNAL_FORCING_V |
termP=0.5 _d 0*( MIN(rF(kLev)*recip_P0g,1. _d 0) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
129 |
EXTERNAL_FORCING_V |
& +rF(kLev+1)*recip_P0g ) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
194 |
EXTERNAL_FORCING_T |
termP=0.5 _d 0*( rF(kLev) + rF(kLev+1) ) |
|
./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.128x64x5/code/external_forcing.F |
60 |
EXTERNAL_FORCING_U |
termP=0.5 _d 0*( MIN(rF(kLev)*recip_P0g,1. _d 0) |
|
./verification/hs94.128x64x5/code/external_forcing.F |
61 |
EXTERNAL_FORCING_U |
& +rF(kLev+1)*recip_P0g ) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
161 |
APPLY_FORCING_V |
rFullDepth = rF(1)-rF(Nr+1) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
169 |
APPLY_FORCING_V |
termP = 0.5 _d 0*( MIN( rF(k)*recip_P0g, oneRL ) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
170 |
APPLY_FORCING_V |
& +rF(k+1)*recip_P0g ) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
255 |
APPLY_FORCING_T |
rFullDepth = rF(1)-rF(Nr+1) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
259 |
APPLY_FORCING_T |
termP = 0.5 _d 0*( rF(k) + rF(k+1) ) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
266 |
APPLY_FORCING_T |
termP = 0.5 _d 0*( MIN(rF(k),Ro_surf(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
267 |
APPLY_FORCING_T |
& + rF(k+1) ) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
68 |
APPLY_FORCING_U |
rFullDepth = rF(1)-rF(Nr+1) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
76 |
APPLY_FORCING_U |
termP = 0.5 _d 0*( MIN( rF(k)*recip_P0g, oneRL ) |
|
./verification/hs94.1x64x5/code/apply_forcing.F |
77 |
APPLY_FORCING_U |
& +rF(k+1)*recip_P0g ) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
161 |
APPLY_FORCING_V |
rFullDepth = rF(1)-rF(Nr+1) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
169 |
APPLY_FORCING_V |
termP = 0.5 _d 0*( MIN( rF(k)*recip_P0g, oneRL ) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
170 |
APPLY_FORCING_V |
& +rF(k+1)*recip_P0g ) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
255 |
APPLY_FORCING_T |
rFullDepth = rF(1)-rF(Nr+1) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
259 |
APPLY_FORCING_T |
termP = 0.5 _d 0*( rF(k) + rF(k+1) ) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
266 |
APPLY_FORCING_T |
termP = 0.5 _d 0*( MIN(rF(k),Ro_surf(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
267 |
APPLY_FORCING_T |
& + rF(k+1) ) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
68 |
APPLY_FORCING_U |
rFullDepth = rF(1)-rF(Nr+1) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
76 |
APPLY_FORCING_U |
termP = 0.5 _d 0*( MIN( rF(k)*recip_P0g, oneRL ) |
|
./verification/hs94.1x64x5/code_ad/apply_forcing.F |
77 |
APPLY_FORCING_U |
& +rF(k+1)*recip_P0g ) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
161 |
APPLY_FORCING_V |
rFullDepth = rF(1)-rF(Nr+1) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
169 |
APPLY_FORCING_V |
termP = 0.5 _d 0*( MIN( rF(k)*recip_P0g, oneRL ) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
170 |
APPLY_FORCING_V |
& +rF(k+1)*recip_P0g ) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
255 |
APPLY_FORCING_T |
rFullDepth = rF(1)-rF(Nr+1) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
259 |
APPLY_FORCING_T |
termP = 0.5 _d 0*( rF(k) + rF(k+1) ) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
266 |
APPLY_FORCING_T |
termP = 0.5 _d 0*( MIN(rF(k),Ro_surf(i,j,bi,bj)) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
267 |
APPLY_FORCING_T |
& + rF(k+1) ) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
68 |
APPLY_FORCING_U |
rFullDepth = rF(1)-rF(Nr+1) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
76 |
APPLY_FORCING_U |
termP = 0.5 _d 0*( MIN( rF(k)*recip_P0g, oneRL ) |
|
./verification/hs94.1x64x5/code_oad/apply_forcing.F |
77 |
APPLY_FORCING_U |
& +rF(k+1)*recip_P0g ) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
161 |
APPLY_FORCING_V |
rFullDepth = rF(1)-rF(Nr+1) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
169 |
APPLY_FORCING_V |
termP = 0.5 _d 0*( MIN( rF(k)*recip_P0g, oneRL ) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
170 |
APPLY_FORCING_V |
& +rF(k+1)*recip_P0g ) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
255 |
APPLY_FORCING_T |
rFullDepth = rF(1)-rF(Nr+1) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
259 |
APPLY_FORCING_T |
termP = 0.5 _d 0*( rF(k) + rF(k+1) ) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
266 |
APPLY_FORCING_T |
termP = 0.5 _d 0*( MIN(rF(k),Ro_surf(i,j,bi,bj)) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
267 |
APPLY_FORCING_T |
& + rF(k+1) ) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
68 |
APPLY_FORCING_U |
rFullDepth = rF(1)-rF(Nr+1) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
76 |
APPLY_FORCING_U |
termP = 0.5 _d 0*( MIN( rF(k)*recip_P0g, oneRL ) |
|
./verification/hs94.cs-32x32x5/code/apply_forcing.F |
77 |
APPLY_FORCING_U |
& +rF(k+1)*recip_P0g ) |
|
./verification/internal_wave/code/obcs_calc.F |
64 |
OBCS_CALC |
vertStructWst(K)=cos(mz*PI* (rC(K)/rF(Nr+1)) ) |
|
./verification/internal_wave/code/obcs_calc.F |
67 |
OBCS_CALC |
tmpsum=tmpsum/rF(Nr+1) |
|
./verification/rotating_tank/code/apply_forcing.F |
664 |
APPLY_FORCING_T |
swfracb(1)=abs(rF(k)) |
|
./verification/rotating_tank/code/apply_forcing.F |
665 |
APPLY_FORCING_T |
swfracb(2)=abs(rF(k+1)) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
262 |
EXTERNAL_FORCING_T |
swfracb(1)=abs(rF(klev)) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
263 |
EXTERNAL_FORCING_T |
swfracb(2)=abs(rF(klev+1)) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
161 |
APPLY_FORCING_V |
rFullDepth = rF(1)-rF(Nr+1) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
169 |
APPLY_FORCING_V |
termP = 0.5 _d 0*( MIN( rF(k)*recip_P0g, oneRL ) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
170 |
APPLY_FORCING_V |
& +rF(k+1)*recip_P0g ) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
255 |
APPLY_FORCING_T |
rFullDepth = rF(1)-rF(Nr+1) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
259 |
APPLY_FORCING_T |
termP = 0.5 _d 0*( rF(k) + rF(k+1) ) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
266 |
APPLY_FORCING_T |
termP = 0.5 _d 0*( MIN(rF(k),Ro_surf(i,j,bi,bj)) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
267 |
APPLY_FORCING_T |
& + rF(k+1) ) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
68 |
APPLY_FORCING_U |
rFullDepth = rF(1)-rF(Nr+1) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
76 |
APPLY_FORCING_U |
termP = 0.5 _d 0*( MIN( rF(k)*recip_P0g, oneRL ) |
|
./verification/tutorial_held_suarez_cs/code/apply_forcing.F |
77 |
APPLY_FORCING_U |
& +rF(k+1)*recip_P0g ) |
|
./model/src/set_grid_factors.F |
71 |
SET_GRID_FACTORS |
deepFacF(k) = (rSphere+rF(k))*recip_rSphere |
|
./model/src/set_ref_state.F |
122 |
SET_REF_STATE |
pLoc = -rhoConst*rF(k)*gravity |
|
./model/src/set_ref_state.F |
154 |
SET_REF_STATE |
pLoc = rF(k) |
|
./model/src/set_ref_state.F |
184 |
SET_REF_STATE |
conv_theta2T = (rF(k)/atm_Po)**atm_kappa |
|
./model/src/set_ref_state.F |
206 |
SET_REF_STATE |
IF ( thetaLoc.GT.0. _d 0 .AND. rF(k).GT.0. _d 0 ) THEN |
|
./model/src/set_ref_state.F |
207 |
SET_REF_STATE |
conv_theta2T = (rF(k)/atm_Po)**atm_kappa |
|
./model/src/set_ref_state.F |
209 |
SET_REF_STATE |
& * rF(k)/(atm_Rd*conv_theta2T*thetaLoc) |
|
./model/src/set_ref_state.F |
243 |
SET_REF_STATE |
ddPI=atm_Cp*( ((rF(k)/atm_Po)**atm_kappa) |
|
./model/src/set_ref_state.F |
255 |
SET_REF_STATE |
& -((rF(k+1)/atm_Po)**atm_kappa) ) |
|
./model/src/set_ref_state.F |
272 |
SET_REF_STATE |
phiRef(2*k+1) = gravitySign*gravity*(rF(k+1)-Ro_SeaLevel) |
|
./model/src/set_ref_state.F |
278 |
SET_REF_STATE |
phiRef(1) = -recip_rhoConst*rF(1) |
|
./model/src/set_ref_state.F |
281 |
SET_REF_STATE |
phiRef(2*k+1) = -recip_rhoConst*rF(k+1) |
|
./model/src/set_ref_state.F |
59 |
SET_REF_STATE |
rHalf(2*k-1) = rF(k) |
|
./model/src/set_ref_state.F |
62 |
SET_REF_STATE |
rHalf(2*Nr+1) = rF(Nr+1) |
|
./model/src/update_masks_etc.F |
141 |
UPDATE_MASKS_ETC |
R_low(i,j,bi,bj) = rF(1) |
|
./model/src/update_masks_etc.F |
90 |
UPDATE_MASKS_ETC |
hFacCtmp = (rF(K)-xx_r_low(I,J,bi,bj))*recip_drF(K) |
|
./model/src/update_masks_etc.F |
92 |
UPDATE_MASKS_ETC |
hFacCtmp = (rF(K)-R_low(I,J,bi,bj))*recip_drF(K) |
|
./model/src/update_sigma.F |
65 |
UPDATE_SIGMA |
rFullDepth = rF(1)-rF(Nr+1) |
|
./model/src/write_grid.F |
125 |
WRITE_GRID |
CALL WRITE_GLVEC_RS( 'RF', ' ', rF, 1+Nr,-1, myThid ) |
|
./model/src/write_grid.F |
165 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'RF',rF,myThid) |
|
./model/src/write_grid.F |
166 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'RU',rF(2),myThid) |
|
./model/src/write_grid.F |
167 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'RL',rF,myThid) |
|
./pkg/aim_v23/aim_initialise.F |
61 |
AIM_INITIALISE |
HSG(Katm) = rF(k)/pGround |
|
./pkg/aim_v23/aim_initialise.F |
65 |
AIM_INITIALISE |
HSG(Katm) = rF(k)/pGround |
|
./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 |
185 |
ATM_PHYS_DRIVER |
pHalf3d(:,:,k) = rF(Nr+1) + ( rF(ki) - rF(Nr+1) ) |
|
./pkg/atm_phys/atm_phys_driver.F |
201 |
ATM_PHYS_DRIVER |
pHalf3d(:,:,k) = rF(ki) |
|
./pkg/diagnostics/diagnostics_check.F |
130 |
DIAGNOSTICS_CHECK |
margin = rkSign*(rF(Nr+1)-rF(1))*0.1 _d 0 |
|
./pkg/diagnostics/diagnostics_check.F |
132 |
DIAGNOSTICS_CHECK |
IF ( levs(k,ld)-MAX(rF(1),rF(Nr+1)).GT.margin |
|
./pkg/diagnostics/diagnostics_check.F |
133 |
DIAGNOSTICS_CHECK |
& .OR. levs(k,ld)-MIN(rF(1),rF(Nr+1)).LT.-margin |
|
./pkg/diagnostics/diagnostics_check.F |
142 |
DIAGNOSTICS_CHECK |
& ' not in the domain:',rF(1),' :',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_mnc_out.F |
173 |
DIAGNOSTICS_MNC_SET |
ztmp(j) = rF(NINT(levs(j,listId)) + 1) |
|
./pkg/diagnostics/diagnostics_mnc_out.F |
180 |
DIAGNOSTICS_MNC_SET |
ztmp(j) = rF(NINT(levs(j,listId))) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
166 |
DIAGSTATS_MNC_OUT |
ztmp(j) = rF(NINT(levs(j,listId)) + 1) |
|
./pkg/diagnostics/diagstats_mnc_out.F |
173 |
DIAGSTATS_MNC_OUT |
ztmp(j) = rF(NINT(levs(j,listId))) |
|
./pkg/dic/car_flux.F |
107 |
CAR_FLUX |
depth_l = -rF(ko) + drF(ko) * _hFacC(i,j,ko,bi,bj) |
|
./pkg/dic/car_flux.F |
82 |
CAR_FLUX |
zbase=-rF(k+1) |
|
./pkg/dic/car_flux.F |
99 |
CAR_FLUX |
depth_l = -rF(ko) + drF(ko) |
|
./pkg/dic/phos_flux.F |
101 |
PHOS_FLUX |
depth_l = -rF(ko) + drF(ko) |
|
./pkg/dic/phos_flux.F |
111 |
PHOS_FLUX |
depth_l = -rF(ko) + drF(ko) * _hFacC(i,j,ko,bi,bj) |
|
./pkg/dic/phos_flux.F |
84 |
PHOS_FLUX |
zbase=-rF(k+1) |