| File |
Line number |
Procedure |
Code |
|
./pkg/ptracers/ptracers_calc_diff.F |
59 |
PTRACERS_CALC_DIFF |
& *( atan( -( rF(k)-diffKrBL79Ho )/diffKrBL79scl )/PI+0.5 _d 0) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
220 |
GMREDI_CALC_TENSOR |
I ldd97_LrhoC,rF(k),k, |
|
./pkg/gmredi/gmredi_calc_tensor.F |
261 |
GMREDI_CALC_TENSOR |
deltaH=abs(GM_Visbeck_depth)-abs(rF(k)) |
|
./pkg/gmredi/gmredi_calc_psi_b.F |
114 |
GMREDI_CALC_PSI_B |
I ldd97_LrhoW, ldd97_LrhoS, rF(k), k, |
|
./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/diagnostics/diagnostics_out.F |
177 |
DIAGNOSTICS_OUT |
ztmp(j) = rF(NINT(levs(j,listId)) + 1) |
|
./pkg/diagnostics/diagnostics_out.F |
184 |
DIAGNOSTICS_OUT |
ztmp(j) = rF(NINT(levs(j,listId))) |
|
./pkg/diagnostics/diagnostics_interp_vert.F |
162 |
DIAGNOSTICS_INTERP_VERT |
qtmpsrf(i,j,bi,bj) = rF(1) |
|
./pkg/aim_v23/aim_initialise.F |
82 |
AIM_INITIALISE |
HSG(Katm) = rF(k)/pGround |
|
./pkg/aim_v23/aim_initialise.F |
86 |
AIM_INITIALISE |
HSG(Katm) = rF(k)/pGround |
|
./pkg/autodiff/autodiff_ini_model_io.F |
308 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_RS_W('R','adstate',0,0,'RF',rF, myThid) |
|
./pkg/autodiff/autodiff_ini_model_io.F |
321 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_RS_W('R','adexf',0,0,'RF',rF, myThid) |
|
./pkg/autodiff/autodiff_ini_model_io.F |
335 |
AUTODIFF_INI_MODEL_IO |
CALL MNC_CW_RS_W('R','adseaice',0,0,'RF',rF, myThid) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
134 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'rF',rF,myThid) |
|
./pkg/mnc/mnc_cw_cvars.F |
152 |
MNC_CW_WRITE_CVAR |
rtmp(i) = rF(i) |
|
./pkg/mnc/mnc_cw_cvars.F |
160 |
MNC_CW_WRITE_CVAR |
rtmp(i) = rF(i + 1) |
|
./pkg/mnc/mnc_cw_cvars.F |
168 |
MNC_CW_WRITE_CVAR |
rtmp(i) = rF(i) |
|
./pkg/mnc/mnc_cw_cvars.F |
176 |
MNC_CW_WRITE_CVAR |
rtmp(i) = rF(i + 1) |
|
./pkg/profiles/profiles_interp.F |
292 |
PROFILES_INTERP |
elseif (prof_depth(file_cur,kk,bi,bj).LT.-rF(kcur+1)) then |
|
./pkg/dic/car_flux.F |
66 |
CAR_FLUX |
zbase=-rF(k+1) |
|
./pkg/dic/car_flux.F |
69 |
CAR_FLUX |
depth_u=-rF(ko) |
|
./pkg/dic/phos_flux.F |
69 |
PHOS_FLUX |
zbase=-rF(k+1) |
|
./pkg/dic/phos_flux.F |
72 |
PHOS_FLUX |
depth_u=-rF(ko) |
|
./model/src/ini_surf_dr.F |
67 |
INI_SURF_DR |
Rmin_tmp = rF(ks+1) |
|
./model/src/ini_surf_dr.F |
78 |
INI_SURF_DR |
& MAX( MAX(rF(ks+1),R_low(i,j,bi,bj)) + hFacInf*drF(ks), |
|
./model/src/external_forcing.F |
316 |
EXTERNAL_FORCING_T |
swfracb(1)=abs(rF(klev)) |
|
./model/src/external_forcing.F |
317 |
EXTERNAL_FORCING_T |
swfracb(2)=abs(rF(klev+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/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/rotating_tank/code/external_forcing.F |
335 |
EXTERNAL_FORCING_T |
swfracb(1)=abs(rF(klev)) |
|
./verification/rotating_tank/code/external_forcing.F |
336 |
EXTERNAL_FORCING_T |
swfracb(2)=abs(rF(klev+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 |
137 |
INI_MASKS_ETC |
hFacCtmp = (rF(k)-R_shelfIce(I,J,bi,bj))*recip_drF(K) |
|
./model/src/ini_masks_etc.F |
70 |
INI_MASKS_ETC |
hFacCtmp = (rF(K)-R_low(I,J,bi,bj))*recip_drF(K) |
|
./model/src/ini_masks_etc.F |
90 |
INI_MASKS_ETC |
R_low(I,J,bi,bj) = rF(1) |
|
./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 ) |
|
./model/src/write_grid.F |
105 |
WRITE_GRID |
CALL MDSWRITEVEC_LOC_RS('RF', writeBinaryPrec,1+Nr, rF, |
|
./model/src/write_grid.F |
128 |
WRITE_GRID |
CALL MNC_CW_RL_W('D',bfname,0,0,'RF',rF,myThid) |
|
./model/src/write_grid.F |
129 |
WRITE_GRID |
CALL MNC_CW_RL_W('D',bfname,0,0,'RU',rF(2),myThid) |
|
./model/src/write_grid.F |
130 |
WRITE_GRID |
CALL MNC_CW_RL_W('D',bfname,0,0,'RL',rF,myThid) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
128 |
EXTERNAL_FORCING_V |
termP=0.5 _d 0*( MIN(rF(kLev)*recip_P0g,1. _d 0) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
129 |
EXTERNAL_FORCING_V |
& +rF(kLev+1)*recip_P0g ) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
194 |
EXTERNAL_FORCING_T |
termP=0.5 _d 0*( rF(kLev) + rF(kLev+1) ) |
|
./verification/hs94.cs-32x32x5/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.cs-32x32x5/code/external_forcing.F |
60 |
EXTERNAL_FORCING_U |
termP=0.5 _d 0*( MIN(rF(kLev)*recip_P0g,1. _d 0) |
|
./verification/hs94.cs-32x32x5/code/external_forcing.F |
61 |
EXTERNAL_FORCING_U |
& +rF(kLev+1)*recip_P0g ) |
|
./model/src/calc_3d_diffusivity.F |
117 |
CALC_3D_DIFFUSIVITY |
& *( atan( -( rF(k)-diffKrBL79Ho )/diffKrBL79scl )/PI+0.5 _d 0) |
|
./model/src/calc_3d_diffusivity.F |
76 |
CALC_3D_DIFFUSIVITY |
& *( atan( -( rF(k)-diffKrBL79Ho )/diffKrBL79scl )/PI+0.5 _d 0) |
|
./model/src/calc_3d_diffusivity.F |
95 |
CALC_3D_DIFFUSIVITY |
& *( atan( -( rF(k)-diffKrBL79Ho )/diffKrBL79scl )/PI+0.5 _d 0) |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F |
113 |
INI_MASKS_ETC |
hFacCtmp = (rF(k)-Ro_surf(I,J,bi,bj))*recip_drF(K) |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F |
73 |
INI_MASKS_ETC |
hFacCtmp = (rF(K)-R_low(I,J,bi,bj))*recip_drF(K) |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F |
93 |
INI_MASKS_ETC |
R_low(I,J,bi,bj) = rF(1) |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F |
108 |
INI_MASKS_ETC |
hFacCtmp = (rF(k)-Ro_surf(I,J,bi,bj))*recip_drF(K) |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F |
68 |
INI_MASKS_ETC |
hFacCtmp = (rF(K)-R_low(I,J,bi,bj))*recip_drF(K) |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F |
88 |
INI_MASKS_ETC |
R_low(I,J,bi,bj) = rF(1) |
|
./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) |
|
./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/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 |
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 |
364 |
CALC_PHI_HYD |
ddPIm=atm_Cp*( ((rF( k )/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
372 |
CALC_PHI_HYD |
& -((rF(k+1)/atm_Po)**atm_kappa) ) |
|
./model/src/calc_phi_hyd.F |
397 |
CALC_PHI_HYD |
ddPIm=atm_Cp*( ((rF( k )/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
400 |
CALC_PHI_HYD |
& -((rF(k+1)/atm_Po)**atm_kappa) ) |
|
./model/src/calc_phi_hyd.F |
430 |
CALC_PHI_HYD |
ddPIm=atm_Cp*( ((rF( k )/atm_Po)**atm_kappa) |
|
./model/src/calc_phi_hyd.F |
438 |
CALC_PHI_HYD |
& -((rF(k+1)/atm_Po)**atm_kappa) ) |
|
./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/ini_depths.F |
222 |
INI_DEPTHS |
& Ro_surf(I,J,bi,bj) = rF(Nr+1) |
|
./model/src/ini_depths.F |
97 |
INI_DEPTHS |
R_low(i,j,bi,bj) = rF(Nr+1) |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
218 |
INI_DEPTHS |
& Ro_surf(I,J,bi,bj) = rF(Nr+1) |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
220 |
INI_DEPTHS |
& Ro_surf(I,J,bi,bj) = rF(Nr+1) |
|
./verification/aim.5l_Equatorial_Channel/code/ini_depths.F |
93 |
INI_DEPTHS |
R_low(i,j,bi,bj) = rF(Nr+1) |
|
./model/src/update_masks_etc.F |
136 |
UPDATE_MASKS_ETC |
R_low(I,J,bi,bj) = rF(1) |
|
./model/src/update_masks_etc.F |
85 |
UPDATE_MASKS_ETC |
hFacCtmp = (rF(K)-xx_r_low(I,J,bi,bj))*recip_drF(K) |
|
./model/src/update_masks_etc.F |
87 |
UPDATE_MASKS_ETC |
hFacCtmp = (rF(K)-R_low(I,J,bi,bj))*recip_drF(K) |
|
./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/config_summary.F |
574 |
CONFIG_SUMMARY |
rcoord(K) = rF(K) |
|
./model/src/ini_vertical_grid.F |
55 |
INI_VERTICAL_GRID |
rF(1) = Ro_SeaLevel |
|
./model/src/ini_vertical_grid.F |
56 |
INI_VERTICAL_GRID |
rC(1) = rF(1) + rkSign*delRc(1) |
|
./model/src/ini_vertical_grid.F |
64 |
INI_VERTICAL_GRID |
rF(K) = rF(K-1) + rkSign*drF(K-1) |
|
./model/src/ini_vertical_grid.F |
67 |
INI_VERTICAL_GRID |
rF(Nr+1) = rF(Nr) + rkSign*drF(Nr) |
|
./model/src/ini_vertical_grid.F |
86 |
INI_VERTICAL_GRID |
rF(1) = Ro_SeaLevel |
|
./model/src/ini_vertical_grid.F |
89 |
INI_VERTICAL_GRID |
rF(K+1) = rF(K) + rkSign*delR(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 |
236 |
INI_P_GROUND |
rMidKp1 = rF(k+1) |
|
./model/src/ini_p_ground.F |
314 |
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/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/ini_phiref.F |
130 |
INI_PHIREF |
pLoc = rF(k) |
|
./model/src/ini_phiref.F |
148 |
INI_PHIREF |
conv_theta2T = (rF(k)/atm_Po)**atm_kappa |
|
./model/src/ini_phiref.F |
175 |
INI_PHIREF |
ddPI=atm_Cp*( ((rF(k)/atm_Po)**atm_kappa) |
|
./model/src/ini_phiref.F |
187 |
INI_PHIREF |
& -((rF(k+1)/atm_Po)**atm_kappa) ) |
|
./model/src/ini_phiref.F |
56 |
INI_PHIREF |
rHalf(2*k-1) = rF(k) |
|
./model/src/ini_phiref.F |
59 |
INI_PHIREF |
rHalf(2*Nr+1) = rF(Nr+1) |
|
./model/src/ini_phiref.F |
97 |
INI_PHIREF |
pLoc = -rhoConst*rF(k)*gravity |
|
./model/src/calc_diffusivity.F |
60 |
CALC_DIFFUSIVITY |
& *( atan( -( rF(k)-diffKrBL79Ho )/diffKrBL79scl )/PI+0.5 _d 0) |
|
./pkg/kpp/kpp_calc.F |
456 |
KPP_CALC |
zRef(i,j) = rF(k) + drF(k) * (dB_dz - dBdz1) / |
|
./pkg/kpp/kpp_calc.F |
459 |
KPP_CALC |
zRef(i,j) = rF(k+1) |
|
./pkg/kpp/kpp_calc.F |
477 |
KPP_CALC |
z0(i,j) = rF(2) * |
|
./pkg/kpp/kpp_calc.F |
478 |
KPP_CALC |
& ( rF(3) * LOG ( rF(3) / rF(2) ) / |
|
./pkg/kpp/kpp_calc.F |
479 |
KPP_CALC |
& ( rF(3) - rF(2) ) - |
|
./pkg/kpp/kpp_calc.F |
507 |
KPP_CALC |
& ( LOG ( zRef(i,j) / rF(2) ) + |
|
./pkg/kpp/kpp_calc.F |
508 |
KPP_CALC |
& z0(i,j) / zRef(i,j) - z0(i,j) / rF(2) ) / |
|
./model/inc/GRID.h |
396 |
NO PROCEDURE |
& drC,drF,recip_drC,recip_drF,rC,rF, |
|
./model/inc/GRID.h |
460 |
NO PROCEDURE |
_RS rF (1:Nr+1) |
|
./pkg/my82/my82_calc.F |
143 |
MY82_CALC |
GM(I,J) = GM(I,J) + tke(I,J,K)*rF(K) |