| File |
Line number |
Procedure |
Code |
|
./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 |
226 |
GGL90_CALC |
MaxLength=MIN(Ro_surf(i,j,bi,bj)-rF(k),rF(k)-R_low(i,j,bi,bj)) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
115 |
GMREDI_CALC_PSI_B |
I ldd97_LrhoW, ldd97_LrhoS, rF(k), k, |
|
./pkg/gmredi/gmredi_calc_tensor.F |
387 |
GMREDI_CALC_TENSOR |
I ldd97_LrhoC, locMixLayer, rF, |
|
./pkg/gmredi/gmredi_calc_tensor.F |
431 |
GMREDI_CALC_TENSOR |
deltaH=abs(GM_Visbeck_depth)-abs(rF(k)) |
|
./pkg/icefront/icefront_init_fixed.F |
62 |
ICEFRONT_INIT_FIXED |
IF ( R_icefront(I,J,bi,bj) .GT. ABS(rF(K))) |
|
./pkg/icefront/icefront_thermodynamics.F |
116 |
ICEFRONT_THERMODYNAMICS |
pLoc = 0.5*(ABS(R_icefront(I,J,bi,bj))+ABS(rF(K))) |
|
./pkg/icefront/icefront_thermodynamics.F |
165 |
ICEFRONT_THERMODYNAMICS |
& * (ABS(R_icefront(I,J,bi,bj))-ABS(rF(K))) |
|
./pkg/icefront/icefront_thermodynamics.F |
169 |
ICEFRONT_THERMODYNAMICS |
& * (ABS(R_icefront(I,J,bi,bj))-ABS(rF(K))) |
|
./pkg/kpp/kpp_forcing_surf.F |
294 |
KPP_FORCING_SURF |
zRef(i,j) = rF(k) + drF(k) * (dB_dz - dBdz1) / |
|
./pkg/kpp/kpp_forcing_surf.F |
297 |
KPP_FORCING_SURF |
zRef(i,j) = rF(k+1) |
|
./pkg/kpp/kpp_forcing_surf.F |
315 |
KPP_FORCING_SURF |
z0(i,j) = rF(2) * |
|
./pkg/kpp/kpp_forcing_surf.F |
316 |
KPP_FORCING_SURF |
& ( rF(3) * LOG ( rF(3) / rF(2) ) / |
|
./pkg/kpp/kpp_forcing_surf.F |
317 |
KPP_FORCING_SURF |
& ( rF(3) - rF(2) ) - |
|
./pkg/kpp/kpp_forcing_surf.F |
341 |
KPP_FORCING_SURF |
& ( LOG ( zRef(i,j) / rF(2) ) + |
|
./pkg/kpp/kpp_forcing_surf.F |
342 |
KPP_FORCING_SURF |
& z0(i,j) / zRef(i,j) - z0(i,j) / rF(2) ) / |
|
./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 |
329 |
MNC_CW_WRITE_CVAR |
rtmp(i) = rF(i) |
|
./pkg/mnc/mnc_cw_cvars.F |
348 |
MNC_CW_WRITE_CVAR |
rtmp(i) = rF(i + 1) |
|
./pkg/mnc/mnc_cw_cvars.F |
368 |
MNC_CW_WRITE_CVAR |
rtmp(i) = rF(i) |
|
./pkg/mnc/mnc_cw_cvars.F |
388 |
MNC_CW_WRITE_CVAR |
rtmp(i) = rF(i + 1) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
131 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'rF',rF,myThid) |
|
./model/src/calc_diffusivity.F |
67 |
CALC_DIFFUSIVITY |
& *(atan(-(rF(k)-diffKrBL79Ho)/diffKrBL79scl)/PI+0.5 _d 0) |
|
./model/src/calc_diffusivity.F |
70 |
CALC_DIFFUSIVITY |
& *(atan(-(rF(k)-diffKrBLEQHo)/diffKrBLEQscl)/PI+0.5 _d 0) |
|
./model/src/calc_oce_mxlayer.F |
104 |
CALC_OCE_MXLAYER |
hMixLayer(i,j,bi,bj) = rF(1)-R_low(i,j,bi,bj) |
|
./model/src/calc_oce_mxlayer.F |
125 |
CALC_OCE_MXLAYER |
hMixLayer(i,j,bi,bj) = rF(1)-rC(k-1)+tmpFac*drC(k) |
|
./model/src/calc_oce_mxlayer.F |
148 |
CALC_OCE_MXLAYER |
hMixLayer(i,j,bi,bj) = rF(1) |
|
./model/src/calc_oce_mxlayer.F |
177 |
CALC_OCE_MXLAYER |
hMixLayer(i,j,bi,bj) = rF(1)-rF(k+1) |
|
./model/src/calc_phi_hyd.F |
227 |
CALC_PHI_HYD |
IF (k.EQ.1) dRlocM=rF(k)-rC(k) |
|
./model/src/calc_phi_hyd.F |
229 |
CALC_PHI_HYD |
dRlocP=rC(k)-rF(k+1) |
|
./model/src/calc_phi_hyd.F |
332 |
CALC_PHI_HYD |
IF (k.EQ.1) dRlocM=rF(k)-rC(k) |
|
./model/src/calc_phi_hyd.F |
334 |
CALC_PHI_HYD |
dRlocP=rC(k)-rF(k+1) |
|
./model/src/calc_phi_hyd.F |
338 |
CALC_PHI_HYD |
rec_dRm = one/(rF(k)-rC(k)) |
|
./model/src/calc_phi_hyd.F |
339 |
CALC_PHI_HYD |
rec_dRp = one/(rC(k)-rF(k+1)) |
|
./model/src/calc_phi_hyd.F |
390 |
CALC_PHI_HYD |
ddPIm=atm_Cp*( ((rF( k )/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
398 |
CALC_PHI_HYD |
& -((rF(k+1)/atm_Po)**atm_kappa) ) |
|
./model/src/calc_phi_hyd.F |
423 |
CALC_PHI_HYD |
ddPIm=atm_Cp*( ((rF( k )/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
426 |
CALC_PHI_HYD |
& -((rF(k+1)/atm_Po)**atm_kappa) ) |
|
./model/src/calc_phi_hyd.F |
456 |
CALC_PHI_HYD |
ddPIm=atm_Cp*( ((rF( k )/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
464 |
CALC_PHI_HYD |
& -((rF(k+1)/atm_Po)**atm_kappa) ) |
|
./model/src/calc_phi_hyd.F |
469 |
CALC_PHI_HYD |
rec_dRm = one/(rF(k)-rC(k)) |
|
./model/src/calc_phi_hyd.F |
470 |
CALC_PHI_HYD |
rec_dRp = one/(rC(k)-rF(k+1)) |
|
./pkg/my82/my82_calc.F |
137 |
MY82_CALC |
GM(I,J) = GM(I,J) + tke(I,J,K)*rF(K) |
|
./model/src/calc_surf_dr.F |
114 |
CALC_SURF_DR |
& ( rSurftmp(i,j) - MAX(rF(ks+1), R_low(i,j,bi,bj)) |
|
./model/src/calc_surf_dr.F |
141 |
CALC_SURF_DR |
hhm = rF(ks) |
|
./model/src/calc_surf_dr.F |
143 |
CALC_SURF_DR |
hhp = rF(ks) |
|
./model/src/calc_surf_dr.F |
147 |
CALC_SURF_DR |
& - MAX(rF(ks+1),R_low(i-1,j,bi,bj),R_low(i,j,bi,bj)) |
|
./model/src/calc_surf_dr.F |
157 |
CALC_SURF_DR |
hhm = rF(ks) |
|
./model/src/calc_surf_dr.F |
159 |
CALC_SURF_DR |
hhp = rF(ks) |
|
./model/src/calc_surf_dr.F |
163 |
CALC_SURF_DR |
& - MAX(rF(ks+1),R_low(i,j-1,bi,bj),R_low(i,j,bi,bj)) |
|
./model/src/calc_surf_dr.F |
80 |
CALC_SURF_DR |
hFactmp = ( rSurftmp(i,j)-MAX(rF(ks+1),R_low(i,j,bi,bj)) |
|
./model/src/config_summary.F |
665 |
CONFIG_SUMMARY |
CALL WRITE_COPY1D_RS( bufRL, rF,Nr+1,INDEX_K, 'rF = ', |
|
./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 |
240 |
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/ptracers/ptracers_calc_diff.F |
66 |
PTRACERS_CALC_DIFF |
& *(atan(-(rF(k)-diffKrBL79Ho)/diffKrBL79scl)/PI+0.5 _d 0) |
|
./pkg/ptracers/ptracers_calc_diff.F |
69 |
PTRACERS_CALC_DIFF |
& *(atan(-(rF(k)-diffKrBLEQHo)/diffKrBLEQscl)/PI+0.5 _d 0) |
|
./model/src/diags_phi_rlow.F |
100 |
DIAGS_PHI_RLOW |
IF (k.GT.1 ) ratioRm = half*drC(k)/(rF(k)-rC(k)) |
|
./model/src/diags_phi_rlow.F |
101 |
DIAGS_PHI_RLOW |
IF (k.LT.Nr) ratioRp = half*drC(k+1)/(rC(k)-rF(k+1)) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
115 |
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 |
130 |
SALT_PLUME_CALC_DEPTH |
& rF(1)-R_low(i,j,bi,bj) ) |
|
./pkg/salt_plume/salt_plume_calc_depth.F |
61 |
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 |
93 |
SALT_PLUME_CALC_DEPTH |
SaltPlumeDepth(i,j,bi,bj) = rF(1)-rC(k-1)+tmpFac*drC(k) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
47 |
SALT_PLUME_TENDENCY_APPLY_S |
plumekb(1)=abs(rF(klev)) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
48 |
SALT_PLUME_TENDENCY_APPLY_S |
plumekb(2)=abs(rF(klev+1)) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
58 |
SALT_PLUME_TENDENCY_APPLY_S |
plumekb(2)=abs(rF(klev)) |
|
./pkg/salt_plume/salt_plume_tendency_apply_s.F |
60 |
SALT_PLUME_TENDENCY_APPLY_S |
IF ( SaltPlumeDepth(i,j,bi,bj) .GT. -rF(kLev) ) THEN |
|
./pkg/seaice/seaice_init_fixed.F |
67 |
SEAICE_INIT_FIXED |
swfracba(1) = abs(rF(1)) |
|
./pkg/seaice/seaice_init_fixed.F |
68 |
SEAICE_INIT_FIXED |
swfracba(2) = abs(rF(2)) |
|
./model/src/external_forcing.F |
357 |
EXTERNAL_FORCING_T |
swfracb(1)=abs(rF(klev)) |
|
./model/src/external_forcing.F |
358 |
EXTERNAL_FORCING_T |
swfracb(2)=abs(rF(klev+1)) |
|
./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 |
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) |
|
./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_masks_etc.F |
118 |
INI_MASKS_ETC |
R_low(i,j,bi,bj) = rF(1) |
|
./model/src/ini_masks_etc.F |
138 |
INI_MASKS_ETC |
hFacCtmp = (rF(k)-Ro_surf(i,j,bi,bj))*recip_drF(k) |
|
./model/src/ini_masks_etc.F |
164 |
INI_MASKS_ETC |
I rF, recip_drF, |
|
./model/src/ini_masks_etc.F |
98 |
INI_MASKS_ETC |
hFacCtmp = (rF(k)-R_low(i,j,bi,bj))*recip_drF(k) |
|
./model/src/ini_nlfs_vars.F |
106 |
INI_NLFS_VARS |
Rmin_tmp = rF(ks+1) |
|
./model/src/ini_nlfs_vars.F |
117 |
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) |
|
./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/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/external_forcing.F |
128 |
EXTERNAL_FORCING_V |
termP=0.5 _d 0*( MIN(rF(kLev)*recip_P0g,1. _d 0) |
|
./verification/hs94.1x64x5/code/external_forcing.F |
129 |
EXTERNAL_FORCING_V |
& +rF(kLev+1)*recip_P0g ) |
|
./verification/hs94.1x64x5/code/external_forcing.F |
194 |
EXTERNAL_FORCING_T |
termP=0.5 _d 0*( rF(kLev) + rF(kLev+1) ) |
|
./verification/hs94.1x64x5/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.1x64x5/code/external_forcing.F |
60 |
EXTERNAL_FORCING_U |
termP=0.5 _d 0*( MIN(rF(kLev)*recip_P0g,1. _d 0) |
|
./verification/hs94.1x64x5/code/external_forcing.F |
61 |
EXTERNAL_FORCING_U |
& +rF(kLev+1)*recip_P0g ) |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
128 |
EXTERNAL_FORCING_V |
termP=0.5 _d 0*( MIN(rF(kLev)*recip_P0g,1. _d 0) |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
129 |
EXTERNAL_FORCING_V |
& +rF(kLev+1)*recip_P0g ) |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
194 |
EXTERNAL_FORCING_T |
termP=0.5 _d 0*( rF(kLev) + rF(kLev+1) ) |
|
./verification/hs94.1x64x5/code_ad/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.1x64x5/code_ad/external_forcing.F |
60 |
EXTERNAL_FORCING_U |
termP=0.5 _d 0*( MIN(rF(kLev)*recip_P0g,1. _d 0) |
|
./verification/hs94.1x64x5/code_ad/external_forcing.F |
61 |
EXTERNAL_FORCING_U |
& +rF(kLev+1)*recip_P0g ) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
140 |
EXTERNAL_FORCING_V |
rFullDepth = rF(1)-rF(Nr+1) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
148 |
EXTERNAL_FORCING_V |
termP=0.5 _d 0*( MIN(rF(kLev)*recip_P0g,1. _d 0) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
149 |
EXTERNAL_FORCING_V |
& +rF(kLev+1)*recip_P0g ) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
224 |
EXTERNAL_FORCING_T |
rFullDepth = rF(1)-rF(Nr+1) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
228 |
EXTERNAL_FORCING_T |
termP=0.5 _d 0*( rF(kLev) + rF(kLev+1) ) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
235 |
EXTERNAL_FORCING_T |
termP=0.5 _d 0*( MIN(rF(kLev),Ro_surf(i,j,bi,bj))+rF(kLev+1) ) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
56 |
EXTERNAL_FORCING_U |
rFullDepth = rF(1)-rF(Nr+1) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
64 |
EXTERNAL_FORCING_U |
termP=0.5 _d 0*( MIN(rF(kLev)*recip_P0g,1. _d 0) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
65 |
EXTERNAL_FORCING_U |
& +rF(kLev+1)*recip_P0g ) |
|
./verification/internal_wave/code/obcs_calc.F |
55 |
OBCS_CALC |
vertStructWst(K)=cos(mz*PI* (rC(K)/rF(Nr+1)) ) |
|
./verification/internal_wave/code/obcs_calc.F |
58 |
OBCS_CALC |
tmpsum=tmpsum/rF(Nr+1) |
|
./model/src/ini_vertical_grid.F |
129 |
INI_VERTICAL_GRID |
rF(1) = Ro_SeaLevel |
|
./model/src/ini_vertical_grid.F |
131 |
INI_VERTICAL_GRID |
rF(k+1) = rF(k) + rkSign*drF(k) |
|
./model/src/ini_vertical_grid.F |
133 |
INI_VERTICAL_GRID |
rC(1) = rF(1) + rkSign*drC(1) |
|
./model/src/ini_vertical_grid.F |
143 |
INI_VERTICAL_GRID |
IF ( (rC(k)-rF(k+1)) .NE. 0. ) |
|
./model/src/ini_vertical_grid.F |
144 |
INI_VERTICAL_GRID |
& tmpRatio = (rF(k)-rC(k)) / (rC(k)-rF(k+1)) |
|
./model/src/ini_vertical_grid.F |
156 |
INI_VERTICAL_GRID |
& ' , rF(k,k+1)=',rF(k),rF(k+1) |
|
./model/src/ini_vertical_grid.F |
183 |
INI_VERTICAL_GRID |
rFullDepth = rF(1) - rF(Nr+1) |
|
./model/src/ini_vertical_grid.F |
189 |
INI_VERTICAL_GRID |
IF ( usingPCoords ) rSigBndRS = rF(Nr+1) |
|
./model/src/ini_vertical_grid.F |
190 |
INI_VERTICAL_GRID |
IF ( usingZCoords ) rSigBndRS = rF(1) |
|
./model/src/ini_vertical_grid.F |
224 |
INI_VERTICAL_GRID |
tmpRS = MIN( rF(k), rSigBndRS ) |
|
./model/src/ini_vertical_grid.F |
225 |
INI_VERTICAL_GRID |
bHybSigmF(k) = ( rF(k) - tmpRS )/(rF(1)-rSigBndRS) |
|
./model/src/ini_vertical_grid.F |
227 |
INI_VERTICAL_GRID |
& *( tmpRS -rF(Nr+1) )*recip_fullDepth |
|
./model/src/ini_vertical_grid.F |
243 |
INI_VERTICAL_GRID |
bHybSigmC(k) = ( rC(k) - tmpRS )/(rF(1)-rSigBndRS) |
|
./model/src/ini_vertical_grid.F |
245 |
INI_VERTICAL_GRID |
& *( tmpRS -rF(Nr+1) )*recip_fullDepth |
|
./model/src/ini_vertical_grid.F |
261 |
INI_VERTICAL_GRID |
tmpRS = MAX( rF(k), rSigBndRS ) |
|
./model/src/ini_vertical_grid.F |
262 |
INI_VERTICAL_GRID |
bHybSigmF(k) = ( rF(k)-rF(Nr+1) )/( tmpRS-rF(Nr+1) ) |
|
./model/src/ini_vertical_grid.F |
263 |
INI_VERTICAL_GRID |
aHybSigmF(k) = bHybSigmF(k)*( tmpRS-rF(1) )*recip_fullDepth |
|
./model/src/ini_vertical_grid.F |
278 |
INI_VERTICAL_GRID |
bHybSigmC(k) = ( rC(k)-rF(Nr+1) )/( tmpRS-rF(Nr+1) ) |
|
./model/src/ini_vertical_grid.F |
279 |
INI_VERTICAL_GRID |
aHybSigmC(k) = bHybSigmC(k)*( tmpRS-rF(1) )*recip_fullDepth |
|
./model/src/ini_vertical_grid.F |
328 |
INI_VERTICAL_GRID |
tmpError = ( rC(k)-rF(Nr+1) )*recip_fullDepth |
|
./model/src/ini_vertical_grid.F |
344 |
INI_VERTICAL_GRID |
tmpError = ( rF(k)-rF(Nr+1) )*recip_fullDepth |
|
./model/src/ini_vertical_grid.F |
353 |
INI_VERTICAL_GRID |
& ' k=', k,' , err=', tmpError, ' ; rF=', rF(k), |
|
./verification/rotating_tank/code/external_forcing.F |
334 |
EXTERNAL_FORCING_T |
swfracb(1)=abs(rF(klev)) |
|
./verification/rotating_tank/code/external_forcing.F |
335 |
EXTERNAL_FORCING_T |
swfracb(2)=abs(rF(klev+1)) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
322 |
EXTERNAL_FORCING_T |
swfracb(1)=abs(rF(klev)) |
|
./verification/tidal_basin_2d/code/external_forcing.F |
323 |
EXTERNAL_FORCING_T |
swfracb(2)=abs(rF(klev+1)) |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
128 |
EXTERNAL_FORCING_V |
termP=0.5 _d 0*( MIN(rF(kLev)*recip_P0g,1. _d 0) |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
129 |
EXTERNAL_FORCING_V |
& +rF(kLev+1)*recip_P0g ) |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
194 |
EXTERNAL_FORCING_T |
termP=0.5 _d 0*( rF(kLev) + rF(kLev+1) ) |
|
./verification/tutorial_held_suarez_cs/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/tutorial_held_suarez_cs/code/external_forcing.F |
60 |
EXTERNAL_FORCING_U |
termP=0.5 _d 0*( MIN(rF(kLev)*recip_P0g,1. _d 0) |
|
./verification/tutorial_held_suarez_cs/code/external_forcing.F |
61 |
EXTERNAL_FORCING_U |
& +rF(kLev+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 |
232 |
SET_REF_STATE |
ddPI=atm_Cp*( ((rF(k)/atm_Po)**atm_kappa) |
|
./model/src/set_ref_state.F |
244 |
SET_REF_STATE |
& -((rF(k+1)/atm_Po)**atm_kappa) ) |
|
./model/src/set_ref_state.F |
261 |
SET_REF_STATE |
phiRef(2*k+1) = gravitySign*gravity*(rF(k+1)-Ro_SeaLevel) |
|
./model/src/set_ref_state.F |
267 |
SET_REF_STATE |
phiRef(1) = -recip_rhoConst*rF(1) |
|
./model/src/set_ref_state.F |
270 |
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 |
124 |
UPDATE_MASKS_ETC |
R_low(I,J,bi,bj) = rF(1) |
|
./model/src/update_masks_etc.F |
73 |
UPDATE_MASKS_ETC |
hFacCtmp = (rF(K)-xx_r_low(I,J,bi,bj))*recip_drF(K) |
|
./model/src/update_masks_etc.F |
75 |
UPDATE_MASKS_ETC |
hFacCtmp = (rF(K)-R_low(I,J,bi,bj))*recip_drF(K) |
|
./model/src/update_sigma.F |
62 |
UPDATE_SIGMA |
rFullDepth = rF(1)-rF(Nr+1) |
|
./model/src/write_grid.F |
111 |
WRITE_GRID |
CALL WRITE_GLVEC_RS( 'RF', ' ', rF, 1+Nr,-1, myThid ) |
|
./model/src/write_grid.F |
151 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'RF',rF,myThid) |
|
./model/src/write_grid.F |
152 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'RU',rF(2),myThid) |
|
./model/src/write_grid.F |
153 |
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/diagnostics/diagnostics_check.F |
123 |
DIAGNOSTICS_CHECK |
margin = rkSign*(rF(Nr+1)-rF(1))*0.1 _d 0 |
|
./pkg/diagnostics/diagnostics_check.F |
125 |
DIAGNOSTICS_CHECK |
IF ( levs(k,ld)-MAX(rF(1),rF(Nr+1)).GT.margin |
|
./pkg/diagnostics/diagnostics_check.F |
126 |
DIAGNOSTICS_CHECK |
& .OR. levs(k,ld)-MIN(rF(1),rF(Nr+1)).LT.-margin |
|
./pkg/diagnostics/diagnostics_check.F |
135 |
DIAGNOSTICS_CHECK |
& ' not in the domain:',rF(1),' :',rF(Nr+1) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
330 |
DIAGNOSTICS_FILL_STATE |
& + (rF(k)-rC(k))*hFacC(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_out.F |
282 |
DIAGNOSTICS_OUT |
ztmp(j) = rF(NINT(levs(j,listId)) + 1) |
|
./pkg/diagnostics/diagnostics_out.F |
289 |
DIAGNOSTICS_OUT |
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) |
|
./model/inc/GRID.h |
425 |
NO PROCEDURE |
& drC, drF, recip_drC, recip_drF, rC, rF, |
|
./model/inc/GRID.h |
484 |
NO PROCEDURE |
_RS rF (Nr+1) |