| 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 |
216 |
FLT_MAP_IJLOCAL2XY |
IF ( rF(k) .GE. rr .AND. rr.GT.rF(k+1) ) THEN |
|
./pkg/flt/flt_mapping.F |
217 |
FLT_MAP_IJLOCAL2XY |
fm = ( rr - rF(k) ) * recip_drF(k)*rkSign |
|
./pkg/flt/flt_mapping.F |
261 |
FLT_MAP_IJLOCAL2XY |
FLT_MAP_K2R = rF(1) |
|
./pkg/flt/flt_mapping.F |
263 |
FLT_MAP_IJLOCAL2XY |
FLT_MAP_K2R = rF(Nr+1) |
|
./pkg/flt/flt_mapping.F |
266 |
FLT_MAP_IJLOCAL2XY |
FLT_MAP_K2R = rF(k) + ddz*drF(k)*rkSign |
|
./pkg/ggl90/ggl90_calc.F |
267 |
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 |
266 |
GMREDI_CALC_EIGS |
drNr = rC(Nr)-rF(Nr+1) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
131 |
GMREDI_CALC_PSI_B |
I ldd97_LrhoW, ldd97_LrhoS, rF(k), k, |
|
./pkg/gmredi/gmredi_calc_tensor.F |
428 |
GMREDI_CALC_TENSOR |
I ldd97_LrhoC, locMixLayer, rF, |
|
./pkg/gmredi/gmredi_calc_tensor.F |
472 |
GMREDI_CALC_TENSOR |
deltaH=abs(GM_Visbeck_depth)-abs(rF(k)) |
|
./pkg/gmredi/gmredi_k3d.F |
499 |
GMREDI_K3D |
IF (-rF(k+1) .LE. GM_K3D_EadyMinDepth) CYCLE |
|
./pkg/gmredi/gmredi_k3d.F |
503 |
GMREDI_K3D |
IF (-rF(k).GE.GM_K3D_EadyMaxDepth) EXIT |
|
./pkg/gmredi/gmredi_k3d.F |
629 |
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 |
99 |
ICEFRONT_INIT_FIXED |
IF ( R_icefront(I,J,bi,bj) .GT. ABS(rF(K))) |
|
./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) |
|
./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))) |
|
./model/src/apply_forcing.F |
676 |
APPLY_FORCING_T |
swfracb(1)=abs(rF(k)) |
|
./model/src/apply_forcing.F |
677 |
APPLY_FORCING_T |
swfracb(2)=abs(rF(k+1)) |
|
./model/src/calc_3d_diffusivity.F |
86 |
CALC_3D_DIFFUSIVITY |
& *(atan(-(rF(k)-diffKrBL79Ho)/diffKrBL79scl)/PI+0.5 _d 0) |
|
./model/src/calc_3d_diffusivity.F |
89 |
CALC_3D_DIFFUSIVITY |
& *(atan(-(rF(k)-diffKrBLEQHo)/diffKrBLEQscl)/PI+0.5 _d 0) |
|
./pkg/kpp/kpp_forcing_surf.F |
322 |
KPP_FORCING_SURF |
zRef(i,j) = rF(k) + drF(k) * (dB_dz - dBdz1) / |
|
./pkg/kpp/kpp_forcing_surf.F |
325 |
KPP_FORCING_SURF |
zRef(i,j) = rF(k+1) |
|
./pkg/kpp/kpp_forcing_surf.F |
343 |
KPP_FORCING_SURF |
z0(i,j) = rF(2) * |
|
./pkg/kpp/kpp_forcing_surf.F |
344 |
KPP_FORCING_SURF |
& ( rF(3) * LOG ( rF(3) / rF(2) ) / |
|
./pkg/kpp/kpp_forcing_surf.F |
345 |
KPP_FORCING_SURF |
& ( rF(3) - rF(2) ) - |
|
./pkg/kpp/kpp_forcing_surf.F |
369 |
KPP_FORCING_SURF |
& ( LOG ( zRef(i,j) / rF(2) ) + |
|
./pkg/kpp/kpp_forcing_surf.F |
370 |
KPP_FORCING_SURF |
& z0(i,j) / zRef(i,j) - z0(i,j) / rF(2) ) / |
|
./pkg/layers/layers_thermodynamics.F |
129 |
LAYERS_CALC_RHS |
swfracb(1)=abs(rF(k)) |
|
./pkg/layers/layers_thermodynamics.F |
130 |
LAYERS_CALC_RHS |
swfracb(2)=abs(rF(k+1)) |
|
./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 |
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 |
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 |
473 |
CALC_PHI_HYD |
fullDepth = rF(1)-rF(Nr+1) |
|
./model/src/calc_phi_hyd.F |
512 |
CALC_PHI_HYD |
ddPIm=atm_Cp*( ((rF( k )/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
520 |
CALC_PHI_HYD |
& -((rF(k+1)/atm_Po)**atm_kappa) ) |
|
./model/src/calc_phi_hyd.F |
545 |
CALC_PHI_HYD |
ddPIm=atm_Cp*( ((rF( k )/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
548 |
CALC_PHI_HYD |
& -((rF(k+1)/atm_Po)**atm_kappa) ) |
|
./model/src/calc_phi_hyd.F |
578 |
CALC_PHI_HYD |
ddPIm=atm_Cp*( ((rF( k )/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
586 |
CALC_PHI_HYD |
& -((rF(k+1)/atm_Po)**atm_kappa) ) |
|
./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)) |
|
./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) |
|
./pkg/my82/my82_calc.F |
141 |
MY82_CALC |
GM(I,J) = GM(I,J) + tke(I,J,K)*rF(K) |
|
./model/src/config_summary.F |
888 |
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 |
171 |
PROFILES_INTERP |
elseif (prof_depth(file_cur,kk,bi,bj).LT.-rF(kcur+1)) then |
|
./model/src/external_forcing.F |
533 |
EXTERNAL_FORCING_T |
swfracb(1)=abs(rF(kLev)) |
|
./model/src/external_forcing.F |
534 |
EXTERNAL_FORCING_T |
swfracb(2)=abs(rF(kLev+1)) |
|
./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 |
143 |
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 |
164 |
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 |
179 |
SALT_PLUME_CALC_DEPTH |
& rF(1)-R_low(i,j,bi,bj) ) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
189 |
SALT_PLUME_CALC_DEPTH |
& rF(1)-R_low(i,j,bi,bj) ) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
82 |
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 |
95 |
SALT_PLUME_CALC_DEPTH |
SaltPlumeDepth(i,j,bi,bj) = rF(1)-R_low(I,J,bi,bj) |
|
./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)) |
|
./model/src/ini_depths.F |
101 |
INI_DEPTHS |
R_low(i,j,bi,bj) = rF(Nr+1) |
|
./model/src/ini_depths.F |
165 |
INI_DEPTHS |
Ro_surf(i,j,bi,bj) = rF(1) |
|
./model/src/ini_depths.F |
244 |
INI_DEPTHS |
& Ro_surf(i,j,bi,bj) = rF(Nr+1) |
|
./model/src/ini_depths.F |
266 |
INI_DEPTHS |
& R_low(i,j,bi,bj) = rF(1) |
|
./model/src/ini_masks_etc.F |
114 |
INI_MASKS_ETC |
hFacCtmp = (rF(k)-R_low(i,j,bi,bj))*recip_drF(k) |
|
./model/src/ini_masks_etc.F |
146 |
INI_MASKS_ETC |
R_low(i,j,bi,bj) = rF(1) - tmpVar1(i,j) |
|
./model/src/ini_masks_etc.F |
157 |
INI_MASKS_ETC |
hFacCtmp = (rF(k)-Ro_surf(i,j,bi,bj))*recip_drF(k) |
|
./model/src/ini_masks_etc.F |
285 |
INI_MASKS_ETC |
hFac1tmp = ( rF(k) - rLowW(i,j,bi,bj) )*recip_drF(k) |
|
./model/src/ini_masks_etc.F |
296 |
INI_MASKS_ETC |
hFac2tmp = ( rF(k) -rSurfW(i,j,bi,bj) )*recip_drF(k) |
|
./model/src/ini_masks_etc.F |
309 |
INI_MASKS_ETC |
hFac1tmp = ( rF(k) - rLowS(i,j,bi,bj) )*recip_drF(k) |
|
./model/src/ini_masks_etc.F |
320 |
INI_MASKS_ETC |
hFac2tmp = ( rF(k) -rSurfS(i,j,bi,bj) )*recip_drF(k) |
|
./model/src/ini_masks_etc.F |
73 |
INI_MASKS_ETC |
rLowW (i,j,bi,bj) = rF(1) |
|
./model/src/ini_masks_etc.F |
74 |
INI_MASKS_ETC |
rSurfW(i,j,bi,bj) = rF(1) |
|
./model/src/ini_masks_etc.F |
78 |
INI_MASKS_ETC |
rLowS (i,j,bi,bj) = rF(1) |
|
./model/src/ini_masks_etc.F |
79 |
INI_MASKS_ETC |
rSurfS(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 |
133 |
INI_P_GROUND |
pLevHvR(1)= rF(1)/atm_Po |
|
./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 |
181 |
INI_P_GROUND |
Pfld(i,j,bi,bj) = rF(1) |
|
./model/src/ini_p_ground.F |
237 |
INI_P_GROUND |
rMidKp1 = rF(k+1) |
|
./model/src/ini_p_ground.F |
278 |
INI_P_GROUND |
IF ( Pfld(i,j,bi,bj).LT.rF(k) ) ks = k |
|
./model/src/ini_p_ground.F |
308 |
INI_P_GROUND |
IF ( Pfld(i,j,bi,bj) .LT. rF(1) ) THEN |
|
./model/src/ini_p_ground.F |
321 |
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) |
|
./model/src/ini_parms.F |
1226 |
INI_PARMS |
rF(1) = Ro_SeaLevel |
|
./model/src/ini_parms.F |
1228 |
INI_PARMS |
rF(1) = UNSET_RS |
|
./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) |
|
./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_vertical_grid.F |
139 |
INI_VERTICAL_GRID |
IF ( rF(1).EQ.UNSET_RS .AND. |
|
./model/src/ini_vertical_grid.F |
141 |
INI_VERTICAL_GRID |
rF(1) = seaLev_Z |
|
./model/src/ini_vertical_grid.F |
143 |
INI_VERTICAL_GRID |
IF ( rF(1).NE.UNSET_RS ) THEN |
|
./model/src/ini_vertical_grid.F |
145 |
INI_VERTICAL_GRID |
rF(k+1) = rF(k) + rkSign*drF(k) |
|
./model/src/ini_vertical_grid.F |
147 |
INI_VERTICAL_GRID |
rC(1) = rF(1) + rkSign*drC(1) |
|
./model/src/ini_vertical_grid.F |
160 |
INI_VERTICAL_GRID |
rF(Nr+1) = top_Pres |
|
./model/src/ini_vertical_grid.F |
162 |
INI_VERTICAL_GRID |
rF(Nr+1) = seaLev_Z |
|
./model/src/ini_vertical_grid.F |
165 |
INI_VERTICAL_GRID |
rF(k) = rF(k+1) - rkSign*drF(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 |
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 |
191 |
INI_VERTICAL_GRID |
& ' , rF(k,k+1)=',rF(k),rF(k+1) |
|
./model/src/ini_vertical_grid.F |
220 |
INI_VERTICAL_GRID |
rFullDepth = rF(1) - rF(Nr+1) |
|
./model/src/ini_vertical_grid.F |
226 |
INI_VERTICAL_GRID |
IF ( usingPCoords ) rSigBndRS = rF(Nr+1) |
|
./model/src/ini_vertical_grid.F |
227 |
INI_VERTICAL_GRID |
IF ( usingZCoords ) rSigBndRS = rF(1) |
|
./model/src/ini_vertical_grid.F |
261 |
INI_VERTICAL_GRID |
tmpRS = MIN( rF(k), rSigBndRS ) |
|
./model/src/ini_vertical_grid.F |
262 |
INI_VERTICAL_GRID |
bHybSigmF(k) = ( rF(k) - tmpRS )/(rF(1)-rSigBndRS) |
|
./model/src/ini_vertical_grid.F |
264 |
INI_VERTICAL_GRID |
& *( tmpRS -rF(Nr+1) )*recip_fullDepth |
|
./model/src/ini_vertical_grid.F |
280 |
INI_VERTICAL_GRID |
bHybSigmC(k) = ( rC(k) - tmpRS )/(rF(1)-rSigBndRS) |
|
./model/src/ini_vertical_grid.F |
282 |
INI_VERTICAL_GRID |
& *( tmpRS -rF(Nr+1) )*recip_fullDepth |
|
./model/src/ini_vertical_grid.F |
298 |
INI_VERTICAL_GRID |
tmpRS = MAX( rF(k), rSigBndRS ) |
|
./model/src/ini_vertical_grid.F |
299 |
INI_VERTICAL_GRID |
bHybSigmF(k) = ( rF(k)-rF(Nr+1) )/( tmpRS-rF(Nr+1) ) |
|
./model/src/ini_vertical_grid.F |
300 |
INI_VERTICAL_GRID |
aHybSigmF(k) = bHybSigmF(k)*( tmpRS-rF(1) )*recip_fullDepth |
|
./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 |
316 |
INI_VERTICAL_GRID |
aHybSigmC(k) = bHybSigmC(k)*( tmpRS-rF(1) )*recip_fullDepth |
|
./model/src/ini_vertical_grid.F |
365 |
INI_VERTICAL_GRID |
tmpError = ( rC(k)-rF(Nr+1) )*recip_fullDepth |
|
./model/src/ini_vertical_grid.F |
381 |
INI_VERTICAL_GRID |
tmpError = ( rF(k)-rF(Nr+1) )*recip_fullDepth |
|
./model/src/ini_vertical_grid.F |
390 |
INI_VERTICAL_GRID |
& ' k=', k,' , err=', tmpError, ' ; rF=', rF(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 |
147 |
LOAD_REF_FILES |
gravFacF(Nr+1) = ( gravFacC(Nr)*(rF(Nr+1)-rF(Nr)) |
|
./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.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)) |
|
./model/src/set_grid_factors.F |
71 |
SET_GRID_FACTORS |
deepFacF(k) = (rSphere+rF(k))*recip_rSphere |
|
./model/src/set_ref_state.F |
100 |
SET_REF_STATE |
& + rhoConst*(rF(k+1)-rF(1))*gravity*gravitySign |
|
./model/src/set_ref_state.F |
128 |
SET_REF_STATE |
& - recip_rhoConst*( rC(k) - rF(Nr+1) ) |
|
./model/src/set_ref_state.F |
130 |
SET_REF_STATE |
& - recip_rhoConst*( rF(k) - rF(Nr+1) ) |
|
./model/src/set_ref_state.F |
223 |
SET_REF_STATE |
pLoc = rF(k) |
|
./model/src/set_ref_state.F |
253 |
SET_REF_STATE |
conv_theta2T = (rF(k)/atm_Po)**atm_kappa |
|
./model/src/set_ref_state.F |
275 |
SET_REF_STATE |
IF ( thetaLoc.GT.0. _d 0 .AND. rF(k).GT.0. _d 0 ) THEN |
|
./model/src/set_ref_state.F |
276 |
SET_REF_STATE |
conv_theta2T = (rF(k)/atm_Po)**atm_kappa |
|
./model/src/set_ref_state.F |
278 |
SET_REF_STATE |
& * rF(k)/(atm_Rd*conv_theta2T*thetaLoc) |
|
./model/src/set_ref_state.F |
312 |
SET_REF_STATE |
ddPI=atm_Cp*( ((rF(k)/atm_Po)**atm_kappa) |
|
./model/src/set_ref_state.F |
324 |
SET_REF_STATE |
& -((rF(k+1)/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 |
352 |
SET_REF_STATE |
rhoFacF(Nr+1) = ( rhoFacC(Nr)*(rF(Nr+1)-rF(Nr)) |
|
./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 |
63 |
SET_REF_STATE |
rHalf(2*k-1) = rF(k) |
|
./model/src/set_ref_state.F |
66 |
SET_REF_STATE |
rHalf(2*Nr+1) = rF(Nr+1) |
|
./model/src/set_ref_state.F |
91 |
SET_REF_STATE |
& + (rC(k) - rF(1))*gravity*gravitySign |
|
./model/src/set_ref_state.F |
93 |
SET_REF_STATE |
& + (rF(k+1)-rF(1))*gravity*gravitySign |
|
./model/src/set_ref_state.F |
98 |
SET_REF_STATE |
& + rhoConst*(rC(k) - rF(1))*gravity*gravitySign |
|
./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/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 |
128 |
WRITE_GRID |
CALL WRITE_GLVEC_RS( 'RF', ' ', rF, 1+Nr,-1, myThid ) |
|
./model/src/write_grid.F |
171 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'RF',rF,myThid) |
|
./model/src/write_grid.F |
172 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'RU',rF(2),myThid) |
|
./model/src/write_grid.F |
173 |
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_dyn2phys.F |
109 |
ATM_PHYS_DYN2PHYS |
pHalf3d(:,:,k) = rF(ki) |
|
./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 |
82 |
ATM_PHYS_DYN2PHYS |
pHalf3d(:,:,k) = rF(Nr+1) + ( rF(ki) - 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/atm_phys/atm_phys_dyn2phys.F |
93 |
ATM_PHYS_DYN2PHYS |
pHalf3d(:,:,k) = rF(Nr+1) + ( rF(ki) - rF(Nr+1) ) |
|
./pkg/bling/bling_dvm.F |
143 |
BLING_DVM |
depth_l=-rF(k+1) |
|
./pkg/bling/bling_remineralization.F |
164 |
BLING_REMIN |
depth_l=-rF(k+1) |
|
./pkg/diagnostics/diagnostics_check.F |
149 |
DIAGNOSTICS_CHECK |
margin = rkSign*(rF(Nr+1)-rF(1))*0.1 _d 0 |
|
./pkg/diagnostics/diagnostics_check.F |
151 |
DIAGNOSTICS_CHECK |
IF ( levs(k,ld)-MAX(rF(1),rF(Nr+1)).GT.margin |
|
./pkg/diagnostics/diagnostics_check.F |
152 |
DIAGNOSTICS_CHECK |
& .OR. levs(k,ld)-MIN(rF(1),rF(Nr+1)).LT.-margin |
|
./pkg/diagnostics/diagnostics_check.F |
161 |
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) |