| File |
Line number |
Procedure |
Code |
|
./pkg/ecco/ecco_phys.F |
100 |
ECCO_PHYS |
& hFacC(i,j,k,bi,bj)*drF(k)*rA(i,j,bi,bj) |
|
./pkg/ecco/ecco_phys.F |
195 |
ECCO_PHYS |
& *dyG(i,j,bi,bj)*drF(k)*msktrVolW(i,j,bi,bj) |
|
./pkg/ecco/ecco_phys.F |
199 |
ECCO_PHYS |
& *dxG(i,j,bi,bj)*drF(k)*msktrVolS(i,j,bi,bj) |
|
./pkg/ecco/ecco_phys.F |
248 |
ECCO_PHYS |
tmpvol=hFacC(i,j,k,bi,bj)*drF(k)*rA(i,j,bi,bj) |
|
./pkg/ecco/ecco_phys.F |
316 |
ECCO_PHYS |
tmpmskW=tmpmskW*hFacW(i,j,k,bi,bj)*dyG(i,j,bi,bj)*drF(k) |
|
./pkg/ecco/ecco_phys.F |
317 |
ECCO_PHYS |
tmpmskS=tmpmskS*hFacS(i,j,k,bi,bj)*dxG(i,j,bi,bj)*drF(k) |
|
./pkg/ecco/ecco_phys.F |
98 |
ECCO_PHYS |
& hFacC(i,j,k,bi,bj)*drF(k)*rA(i,j,bi,bj) |
|
./model/inc/GRID.h |
426 |
NO PROCEDURE |
& drC, drF, recip_drC, recip_drF, rC, rF, |
|
./model/inc/GRID.h |
480 |
NO PROCEDURE |
_RS drF (Nr) |
|
./pkg/exf/exf_monitor.F |
114 |
EXF_MONITOR |
& maskInW, maskInW, rAw, drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor.F |
116 |
EXF_MONITOR |
& maskInS, maskInS, rAs, drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor.F |
119 |
EXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor.F |
121 |
EXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor.F |
125 |
EXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor.F |
129 |
EXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor.F |
133 |
EXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor.F |
135 |
EXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor.F |
139 |
EXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor.F |
144 |
EXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor.F |
148 |
EXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor.F |
152 |
EXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor.F |
156 |
EXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor.F |
160 |
EXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor.F |
164 |
EXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor.F |
170 |
EXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor.F |
176 |
EXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor.F |
180 |
EXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor.F |
186 |
EXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor.F |
192 |
EXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor.F |
197 |
EXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor.F |
204 |
EXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor.F |
210 |
EXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor.F |
216 |
EXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor.F |
222 |
EXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor.F |
228 |
EXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor.F |
234 |
EXF_MONITOR |
& maskInW, maskInW, rAw, drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor.F |
238 |
EXF_MONITOR |
& maskInS, maskInS, rAs, drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor_ad.F |
115 |
ADEXF_MONITOR |
& maskInW, maskInW, rAw, drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor_ad.F |
117 |
ADEXF_MONITOR |
& maskInS, maskInS, rAs, drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor_ad.F |
120 |
ADEXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor_ad.F |
122 |
ADEXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor_ad.F |
125 |
ADEXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor_ad.F |
127 |
ADEXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor_ad.F |
129 |
ADEXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor_ad.F |
136 |
ADEXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor_ad.F |
138 |
ADEXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor_ad.F |
143 |
ADEXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor_ad.F |
145 |
ADEXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor_ad.F |
147 |
ADEXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor_ad.F |
149 |
ADEXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor_ad.F |
153 |
ADEXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor_ad.F |
157 |
ADEXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor_ad.F |
159 |
ADEXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor_ad.F |
167 |
ADEXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor_ad.F |
191 |
ADEXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor_ad.F |
193 |
ADEXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor_ad.F |
195 |
ADEXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor_ad.F |
197 |
ADEXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/fizhi/fizhi_init_vars.F |
119 |
FIZHI_INIT_VARS |
& drF(L-1)*hfacC(i,j,L-1,bi,bj) |
|
./pkg/fizhi/fizhi_wrapper.F |
196 |
FIZHI_WRAPPER |
& drF(L-1)* rStarExpC(i,j,bi,bj)*hfacC(i,j,L-1,bi,bj) |
|
./pkg/fizhi/getpwhere.F |
131 |
GETPWHERE |
rF_edge(L) = rF_edge(L-1) - (drF(L-1)/100.) |
|
./pkg/fizhi/step_fizhi_corr.F |
98 |
STEP_FIZHI_CORR |
. drF(L-1)* rStarExpC(i,j,bi,bj)*hfacC(i,j,L-1,bi,bj) |
|
./pkg/flt/flt_mapping.F |
266 |
FLT_MAP_IJLOCAL2XY |
FLT_MAP_K2R = rF(k) + ddz*drF(k)*rkSign |
|
./pkg/frazil/frazil_calc_rhs.F |
95 |
FRAZIL_CALC_RHS |
& * drF(k) * _hFacC(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
282 |
GAD_ADVECTION |
& *drF(k)*_hFacW(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
284 |
GAD_ADVECTION |
& *drF(k)*_hFacS(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
302 |
GAD_ADVECTION |
& *rhoFacC(k)*drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
385 |
GAD_IMPLICIT_R |
div(i,j) = div(i,j)*h0FacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
393 |
GAD_IMPLICIT_R |
& _hFacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
402 |
GAD_IMPLICIT_R |
div(i,j) = div(i,j)*hFac_surfC(i,j,bi,bj)*drF(k) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
404 |
GAD_IMPLICIT_R |
div(i,j) = div(i,j)*_hFacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
416 |
GAD_IMPLICIT_R |
div(i,j) = div(i,j)*_hFacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/generic_advdiff/gad_pqm_hat_r.F |
78 |
GAD_PQM_HAT_R |
rhat = drF(ir) * .5 _d 0 |
|
./pkg/generic_advdiff/gad_som_advect.F |
247 |
GAD_SOM_ADVECT |
& *drF(k)*_hFacW(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_som_advect.F |
249 |
GAD_SOM_ADVECT |
& *drF(k)*_hFacS(i,j,k,bi,bj) |
|
./pkg/generic_advdiff/gad_som_advect.F |
265 |
GAD_SOM_ADVECT |
& *drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/ggl90/ggl90_calc.F |
233 |
GGL90_CALC |
GGL90mixingLength(i,j,2)=drF(1) |
|
./pkg/ggl90/ggl90_calc.F |
291 |
GGL90_CALC |
& GGL90mixingLength(i,j,k-1)+drF(k-1)) |
|
./pkg/ggl90/ggl90_calc.F |
298 |
GGL90_CALC |
& GGL90mixingLengthMin+drF(Nr)) |
|
./pkg/ggl90/ggl90_calc.F |
305 |
GGL90_CALC |
& GGL90mixingLength(i,j,k+1)+drF(k)) |
|
./pkg/ggl90/ggl90_calc.F |
326 |
GGL90_CALC |
& mxLength_Dn(i,j,k-1)+drF(k-1)) |
|
./pkg/ggl90/ggl90_calc.F |
333 |
GGL90_CALC |
& GGL90mixingLengthMin+drF(Nr)) |
|
./pkg/ggl90/ggl90_calc.F |
340 |
GGL90_CALC |
& GGL90mixingLength(i,j,k+1)+drF(k)) |
|
./pkg/ggl90/ggl90_idemix.F |
182 |
GGL90_IDEMIX |
& +GM_EG_diss(i,j,k,bi,bj)*drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
329 |
GMREDI_CALC_EIGS |
vecint(m,i,j) = vecint(m,i,j) + hfac(i,j,k)*vec(m,i,j,k)*drF(k) |
|
./pkg/gmredi/gmredi_calc_eigs.F |
366 |
GMREDI_CALC_EIGS |
& mask(i,j,k)*drF(k)*hfac(i,j,k) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1055 |
GMREDI_CALC_TENSOR |
tmp1k(i,j) = dxG(i,j,bi,bj)*drF(k) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
474 |
GMREDI_CALC_TENSOR |
integrDepth = drF(k) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
837 |
GMREDI_CALC_TENSOR |
tmp1k(i,j) = dyG(i,j,bi,bj)*drF(k) |
|
./pkg/gmredi/gmredi_k3d.F |
1060 |
GMREDI_K3D |
psistar(i,j,Nr) = -hfacS(i,j,k,bi,bj)*drF(k)*vstar(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
1067 |
GMREDI_K3D |
& - hfacS(i,j,k,bi,bj)*drF(k)*vstar(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
1078 |
GMREDI_K3D |
GM_PsiX(i,j,k,bi,bj) = -hfacW(i,j,k,bi,bj)*drF(k)*ustar(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
1079 |
GMREDI_K3D |
GM_PsiY(i,j,k,bi,bj) = -hfacS(i,j,k,bi,bj)*drF(k)*vstar(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
1086 |
GMREDI_K3D |
& - hfacW(i,j,k,bi,bj)*drF(k)*ustar(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
1088 |
GMREDI_K3D |
& - hfacS(i,j,k,bi,bj)*drF(k)*vstar(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
404 |
GMREDI_K3D |
& drF(k)*hfacC(i,j,k,bi,bj)*ubar(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
447 |
GMREDI_K3D |
BVint(i,j) = BVint(i,j) + hFacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/gmredi/gmredi_k3d.F |
520 |
GMREDI_K3D |
& + hfacC(i,j,k,bi,bj)*drF(k)*M4onN2(i,j,k) |
|
./pkg/gmredi/gmredi_k3d.F |
521 |
GMREDI_K3D |
deltaH(i,j) = deltaH(i,j) + drF(k) |
|
./pkg/gmredi/gmredi_k3d.F |
874 |
GMREDI_K3D |
& - maskW(i,j,k,bi,bj)*drF(k)*hfacW(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
925 |
GMREDI_K3D |
& - drF(k)*hfacS(i,j,k,bi,bj) |
|
./pkg/gmredi/gmredi_k3d.F |
977 |
GMREDI_K3D |
& + centreX*hfacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/gmredi/gmredi_k3d.F |
979 |
GMREDI_K3D |
& + centreY*hfacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/gmredi/gmredi_k3d.F |
981 |
GMREDI_K3D |
& + centreX*centreY*hfacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/gmredi/gmredi_k3d.F |
985 |
GMREDI_K3D |
& + centreX*centreY*hfacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/gmredi/gmredi_k3d.F |
991 |
GMREDI_K3D |
& + centreY*hfacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/gmredi/gmredi_k3d.F |
993 |
GMREDI_K3D |
& + CentreX*hfacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/gmredi/gmredi_k3d.F |
995 |
GMREDI_K3D |
& + centreY*centreX*hfacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/gmredi/gmredi_k3d.F |
999 |
GMREDI_K3D |
& + centreY*centreX*hfacC(i,j,k,bi,bj)*drF(k) |
|
./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/gridalt/gridalt_initialise.F |
47 |
GRIDALT_INITIALISE |
call MAKE_PHYS_GRID(drF,hfacC,im1,im2,jm1,jm2,Nr,Nsx,Nsy, |
|
./pkg/gridalt/make_phys_grid.F |
110 |
MAKE_PHYS_GRID |
dpstar_accum = dpstar_accum + drF(L) |
|
./pkg/gridalt/make_phys_grid.F |
130 |
MAKE_PHYS_GRID |
& (dptry_accum(Lnew).gt.(hfacC(i,j,Lbotij,bi,bj)*drF(Lbotij))))then |
|
./pkg/gridalt/make_phys_grid.F |
144 |
MAKE_PHYS_GRID |
if((hfacC(i,j,Lbotij,bi,bj)*drF(Lbotij)).ge. |
|
./pkg/gridalt/make_phys_grid.F |
153 |
MAKE_PHYS_GRID |
& drF(Lbotij)-deltap)) .gt. (dptry(Lnew-1)*1.5) ) then |
|
./pkg/gridalt/make_phys_grid.F |
157 |
MAKE_PHYS_GRID |
& (hfacC(i,j,Lbotij,bi,bj)*drF(Lbotij))-deltap |
|
./pkg/gridalt/make_phys_grid.F |
161 |
MAKE_PHYS_GRID |
& (hfacC(i,j,Lbotij,bi,bj)*drF(Lbotij)-deltap) |
|
./pkg/gridalt/make_phys_grid.F |
163 |
MAKE_PHYS_GRID |
deltap = deltap+(hfacC(i,j,Lbotij,bi,bj)*drF(Lbotij)-deltap) |
|
./pkg/gridalt/make_phys_grid.F |
178 |
MAKE_PHYS_GRID |
if((hfacC(i,j,L,bi,bj)*drF(L)).ge.deltap+dptry(Lnew))then |
|
./pkg/gridalt/make_phys_grid.F |
187 |
MAKE_PHYS_GRID |
if( (dptry(Lnew-1)+(hfacC(i,j,L,bi,bj)*drF(L)-deltap)) |
|
./pkg/gridalt/make_phys_grid.F |
192 |
MAKE_PHYS_GRID |
& (hfacC(i,j,L,bi,bj)*drF(L))-deltap |
|
./pkg/gridalt/make_phys_grid.F |
193 |
MAKE_PHYS_GRID |
deltap = hfacC(i,j,L,bi,bj)*drF(L) |
|
./pkg/gridalt/make_phys_grid.F |
197 |
MAKE_PHYS_GRID |
& (hfacC(i,j,L,bi,bj)*drF(L)-deltap) |
|
./pkg/gridalt/make_phys_grid.F |
198 |
MAKE_PHYS_GRID |
deltap = hfacC(i,j,L,bi,bj)*drF(L) |
|
./pkg/gridalt/make_phys_grid.F |
207 |
MAKE_PHYS_GRID |
if(abs(deltap-hfacC(i,j,L-1,bi,bj)*drF(L-1)).gt.0.001)then |
|
./pkg/gridalt/make_phys_grid.F |
209 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = hfacC(i,j,L-1,bi,bj)*drF(L-1) |
|
./pkg/gridalt/make_phys_grid.F |
217 |
MAKE_PHYS_GRID |
if(abs(deltap-hfacC(i,j,L-1,bi,bj)*drF(L-1)).gt.0.001)then |
|
./pkg/gridalt/make_phys_grid.F |
219 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = hfacC(i,j,L-1,bi,bj)*drF(L-1) |
|
./pkg/gridalt/make_phys_grid.F |
222 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = hfacC(i,j,L,bi,bj)*drF(L) |
|
./pkg/gridalt/make_phys_grid.F |
225 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = hfacC(i,j,L,bi,bj)*drF(L) |
|
./pkg/gridalt/make_phys_grid.F |
231 |
MAKE_PHYS_GRID |
dpphys(i,j,nlphys,bi,bj) = hfacC(i,j,L,bi,bj)*drF(L) |
|
./pkg/gridalt/make_phys_grid.F |
52 |
MAKE_PHYS_GRID |
_RS drF(Nr) |
|
./pkg/gridalt/make_phys_grid.F |
6 |
MAKE_PHYS_GRID |
SUBROUTINE MAKE_PHYS_GRID(drF,hfacC,im1,im2,jm1,jm2,Nr, |
|
./pkg/kl10/kl10_calc.F |
188 |
KL10_CALC |
dz = 0.5*(drF(K)*hfacW(I+di,J-1,K,bi,bj) |
|
./pkg/kl10/kl10_calc.F |
189 |
KL10_CALC |
& +drF(Km1)*hfacW(I+di,J-1,Km1,bi,bj)) |
|
./pkg/kl10/kl10_calc.F |
201 |
KL10_CALC |
dz=0.5*(drF(Km1)*hfacW(I+di,J-1,Km1,bi ,bj)) |
|
./pkg/kl10/kl10_calc.F |
207 |
KL10_CALC |
dz = 0.5*(drF(K)*hfacS(I-1,J+di,K,bi,bj) |
|
./pkg/kl10/kl10_calc.F |
208 |
KL10_CALC |
& +drF(Km1)*hfacS(I-1,J+di,Km1,bi,bj)) |
|
./pkg/kl10/kl10_calc.F |
220 |
KL10_CALC |
dz=+0.5*(drF(Km1)*hfacS(I-1,J+di,Km1 ,bi,bj)) |
|
./model/src/calc_3d_diffusivity.F |
270 |
CALC_3D_DIFFUSIVITY |
IF ( pCellMix_delR.LT.drF(k) ) |
|
./model/src/calc_3d_diffusivity.F |
317 |
CALC_3D_DIFFUSIVITY |
IF ( pCellMix_delR.LT.drF(km) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
198 |
KPP_FORCING_SURF |
if ( work3(i,j) .lt. (phepsi*phepsi*drF(1)*drF(1)) ) then |
|
./pkg/kpp/kpp_forcing_surf.F |
199 |
KPP_FORCING_SURF |
ustar(i,j) = SQRT( phepsi * p5 * drF(1) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
318 |
KPP_FORCING_SURF |
zRef(i,j) = drF(1) * dB_dz / dBdz2 |
|
./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 |
352 |
KPP_FORCING_SURF |
zRef(i,j) = MIN ( zRef(i,j), drF(1) ) |
|
./pkg/kpp/kpp_forcing_surf.F |
357 |
KPP_FORCING_SURF |
IF ( zRef(i,j) .LT. drF(1) ) THEN |
|
./pkg/kpp/kpp_init_fixed.F |
179 |
KPP_INIT_FIXED |
hwide(k) = drF(k) |
|
./model/src/calc_adv_flow.F |
76 |
CALC_ADV_FLOW |
& *drF(k)*_hFacW(i,j,k,bi,bj) |
|
./model/src/calc_adv_flow.F |
78 |
CALC_ADV_FLOW |
& *drF(k)*_hFacS(i,j,k,bi,bj) |
|
./model/src/calc_div_ghat.F |
68 |
CALC_DIV_GHAT |
& *drF(k)*_hFacW(i,j,k,bi,bj)*rhoFacC(k) |
|
./model/src/calc_div_ghat.F |
70 |
CALC_DIV_GHAT |
& *drF(k)*_hFacS(i,j,k,bi,bj)*rhoFacC(k) |
|
./pkg/layers/layers_init_fixed.F |
78 |
LAYERS_INIT_FIXED |
Zf(k) = Zf(k-1) + drF(k-1) |
|
./pkg/layers/layers_init_fixed.F |
81 |
LAYERS_INIT_FIXED |
Zf(Nr+1) = Zf(Nr) + drF(Nr) |
|
./model/src/calc_gw.F |
248 |
CALC_GW |
& ( drF(k-1)*halfRS |
|
./model/src/calc_gw.F |
249 |
CALC_GW |
& + drF( k )*MIN( _hFacC(i,j, k ,bi,bj), halfRS ) |
|
./model/src/calc_gw.F |
255 |
CALC_GW |
& drF(k-1)*MAX( h0FacC(i,j,k-1,bi,bj)-halfRS, zeroRS ) |
|
./model/src/calc_gw.F |
256 |
CALC_GW |
& + drF( k )*MIN( h0FacC(i,j,k ,bi,bj), halfRS ) |
|
./model/src/calc_gw.F |
259 |
CALC_GW |
& drF(k-1)*MAX( _hFacC(i,j,k-1,bi,bj)-halfRS, zeroRS ) |
|
./model/src/calc_gw.F |
260 |
CALC_GW |
& + drF( k )*MIN( _hFacC(i,j,k ,bi,bj), halfRS ) |
|
./model/src/calc_gw.F |
263 |
CALC_GW |
& drF(k-1)*MAX( _hFacW(i,j,k-1,bi,bj)-halfRS, zeroRS ) |
|
./model/src/calc_gw.F |
264 |
CALC_GW |
& + drF( k )*MIN( _hFacW(i,j,k ,bi,bj), halfRS ) |
|
./model/src/calc_gw.F |
266 |
CALC_GW |
& drF(k-1)*MAX( _hFacS(i,j,k-1,bi,bj)-halfRS, zeroRS ) |
|
./model/src/calc_gw.F |
267 |
CALC_GW |
& + drF( k )*MIN( _hFacS(i,j, k ,bi,bj), halfRS ) |
|
./model/src/calc_gw.F |
500 |
CALC_GW |
& drF(km1)*_hFacW(i,j,km1,bi,bj)*uVel(i,j,km1,bi,bj) |
|
./model/src/calc_gw.F |
502 |
CALC_GW |
& + drF( k )*_hFacW(i,j, k ,bi,bj)*uVel(i,j, k ,bi,bj) |
|
./model/src/calc_gw.F |
515 |
CALC_GW |
& drF(km1)*_hFacS(i,j,km1,bi,bj)*vVel(i,j,km1,bi,bj) |
|
./model/src/calc_gw.F |
517 |
CALC_GW |
& +drF( k )*_hFacS(i,j, k ,bi,bj)*vVel(i,j, k ,bi,bj) |
|
./model/src/calc_oce_mxlayer.F |
146 |
CALC_OCE_MXLAYER |
hMixLayer(i,j,bi,bj) = drF(1) |
|
./model/src/calc_oce_mxlayer.F |
179 |
CALC_OCE_MXLAYER |
& - drF(k)*tmpFac*0.5 _d 0 |
|
./model/src/calc_phi_hyd.F |
232 |
CALC_PHI_HYD |
& + halfRL*drF(k)*gravFacC(k)*gravity |
|
./model/src/calc_phi_hyd.F |
235 |
CALC_PHI_HYD |
& + drF(k)*gravFacC(k)*gravity |
|
./model/src/calc_phi_hyd.F |
251 |
CALC_PHI_HYD |
& + halfRL*drF(k)*gravFacC(k)*gravity |
|
./model/src/calc_phi_hyd.F |
255 |
CALC_PHI_HYD |
& + halfRL*drF(k)*gravFacC(k)*gravity |
|
./model/src/calc_phi_hyd.F |
385 |
CALC_PHI_HYD |
phiHydC(i,j) = phiHydF(i,j) + halfRL*drF(k)*alphaRho(i,j) |
|
./model/src/calc_phi_hyd.F |
389 |
CALC_PHI_HYD |
phiHydF(i,j) = phiHydC(i,j) + halfRL*drF(k)*alphaRho(i,j) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
141 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'drF',drF,myThid) |
|
./model/src/calc_viscosity.F |
163 |
CALC_VISCOSITY |
IF ( pCellMix_delR.LT.drF(k) ) |
|
./model/src/calc_viscosity.F |
253 |
CALC_VISCOSITY |
IF ( pCellMix_delR.LT.drF(km) ) |
|
./pkg/mom_common/mom_calc_smag_3d.F |
123 |
MOM_CALC_SMAG_3D |
tmpFac = smag3D_coeff*twoRL*SQRT(twoRL)*drF(kl)**twoThird |
|
./pkg/mom_common/mom_u_sidedrag.F |
143 |
MOM_U_SIDEDRAG |
& )*drF(k)*sideDragFactor |
|
./pkg/mom_common/mom_u_sidedrag.F |
87 |
MOM_U_SIDEDRAG |
& *drF(k)*2.*( |
|
./pkg/mom_common/mom_v_sidedrag.F |
130 |
MOM_V_SIDEDRAG |
& )*drF(k)*sideDragFactor |
|
./pkg/mom_common/mom_v_sidedrag.F |
89 |
MOM_V_SIDEDRAG |
& *drF(k)*2.*( |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
140 |
MOM_CALC_RTRANS |
& - rStarDhCDt(i,j,bi,bj)*drF(k-1)*h0FacC(i,j,k-1,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
147 |
MOM_CALC_RTRANS |
& - rStarDhWDt(i,j,bi,bj)*drF(k-1)*h0FacW(i,j,k-1,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
150 |
MOM_CALC_RTRANS |
& - rStarDhSDt(i,j,bi,bj)*drF(k-1)*h0FacS(i,j,k-1,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
272 |
MOM_FLUXFORM |
& *drF(k)*_hFacW(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_fluxform.F |
274 |
MOM_FLUXFORM |
& *drF(k)*_hFacS(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
55 |
MOM_U_DEL2U |
fZon(i,j) = drF(k)*_hFacC(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_del2u.F |
73 |
MOM_U_DEL2U |
fMer(i,j) = drF(k)*hFacZ(i,j) |
|
./pkg/mom_fluxform/mom_u_xviscflux.F |
57 |
MOM_U_XVISCFLUX |
& _dyF(i,j,bi,bj)*drF(k)*_hFacC(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_u_yviscflux.F |
58 |
MOM_U_YVISCFLUX |
& _dxV(i,j,bi,bj)*drF(k)*hFacZ(i,j) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
100 |
MOM_UV_BOUNDARY |
& * drF(k)*hFacS(i,j,k,bi,bj)*rhoFacC(k) |
|
./pkg/mom_fluxform/mom_uv_boundary.F |
97 |
MOM_UV_BOUNDARY |
& * drF(k)*hFacW(i,j,k,bi,bj)*rhoFacC(k) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
54 |
MOM_V_DEL2V |
fZon(i,j) = drF(k)*hFacZ(i,j) |
|
./pkg/mom_fluxform/mom_v_del2v.F |
69 |
MOM_V_DEL2V |
fMer(i,j) = drF(k)*_hFacC(i,j,k,bi,bj) |
|
./pkg/mom_fluxform/mom_v_xviscflux.F |
58 |
MOM_V_XVISCFLUX |
& _dyU(i,j,bi,bj)*drF(k)*hFacZ(i,j) |
|
./pkg/mom_fluxform/mom_v_yviscflux.F |
57 |
MOM_V_YVISCFLUX |
& _dxF(i,j,bi,bj)*drF(k)*_hFacC(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
186 |
CG3D |
& +cg3d_x(i,j,k,bi,bj)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
223 |
CG3D |
& -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
368 |
CG3D |
& +cg3d_s(i,j,k,bi,bj)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
398 |
CG3D |
& -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
418 |
CG3D |
& -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
440 |
CG3D |
& -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d.F |
462 |
CG3D |
& -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
179 |
CG3D_EX0 |
& +cg3d_x(i,j,k,bi,bj)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
216 |
CG3D_EX0 |
& -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
352 |
CG3D_EX0 |
& +cg3d_s(i,j,k,bi,bj)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
382 |
CG3D_EX0 |
& -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
402 |
CG3D_EX0 |
& -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
424 |
CG3D_EX0 |
& -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/cg3d_ex0.F |
446 |
CG3D_EX0 |
& -surfFac*surfTerm(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
107 |
MON_KE |
& + tmpVal*deepFac2C(k)*rhoFacC(k)*drF(k) |
|
./pkg/monitor/mon_ke.F |
119 |
MON_KE |
& + tmpWke*rA(i,j,bi,bj)*drF(k)*_hFacC(i,j,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
191 |
MON_KE |
& *rhoFacC(k)*drF(k) |
|
./pkg/monitor/mon_ke.F |
230 |
MON_KE |
& *rhoFacC(k)*drF(k) |
|
./pkg/monitor/mon_ke.F |
82 |
MON_KE |
& *rhoFacC(k)*drF(k)*_hFacC(i,j,k,bi,bj) |
|
./pkg/monitor/mon_solution.F |
45 |
MON_SOLUTION |
I Nr, theta, hFacC, maskInC, rA, drF, |
|
./pkg/monitor/mon_surfcor.F |
111 |
MON_SURFCOR |
& + salt(i,j,Nr,bi,bj)*drF(Nr)*recip_drF(ks) |
|
./pkg/monitor/mon_surfcor.F |
154 |
MON_SURFCOR |
tmpVol = rA(i,j,bi,bj)*h0FacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/monitor/mon_vort3.F |
291 |
MON_VORT3 |
tmpAre = rAz(i,j,bi,bj)*drF(k) |
|
./pkg/monitor/mon_vort3.F |
292 |
MON_VORT3 |
tmpVol = rAz(i,j,bi,bj)*drF(k)*hFacZ(i,j) |
|
./pkg/monitor/monitor.F |
110 |
MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor.F |
131 |
MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor.F |
133 |
MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor.F |
140 |
MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor.F |
142 |
MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor.F |
144 |
MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor.F |
146 |
MONITOR |
& maskInW, maskInW, rAw, drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor.F |
148 |
MONITOR |
& maskInS, maskInS, rAs, drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor.F |
97 |
MONITOR |
thickFacC(k) = drF(k)*deepFac2C(k)*rhoFacC(k) |
|
./pkg/monitor/monitor_ad.F |
128 |
ADMONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_ad.F |
130 |
ADMONITOR |
& hFacW, maskInW, rAw, drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_ad.F |
132 |
ADMONITOR |
& hFacS, maskInS, rAs, drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_ad.F |
136 |
ADMONITOR |
& hFacC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_ad.F |
138 |
ADMONITOR |
& hFacC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_ad.F |
145 |
ADMONITOR |
& '_adsst', maskInC, maskInC, rA, drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_ad.F |
147 |
ADMONITOR |
& '_adsss', maskInC, maskInC, rA, drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_ad.F |
153 |
ADMONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_ad.F |
158 |
ADMONITOR |
& hFacW, maskInW, rAw, drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_ad.F |
160 |
ADMONITOR |
& hFacS, maskInS, rAs, drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_ad.F |
168 |
ADMONITOR |
& hFacC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_ad.F |
170 |
ADMONITOR |
& hFacC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_ad.F |
177 |
ADMONITOR |
& '_adsst', maskInC, maskInC, rA, drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_ad.F |
179 |
ADMONITOR |
& '_adsss', maskInC, maskInC, rA, drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_ad.F |
188 |
ADMONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_ad.F |
191 |
ADMONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_ad.F |
194 |
ADMONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_ad.F |
196 |
ADMONITOR |
& maskInW, maskInW, rAw, drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_ad.F |
198 |
ADMONITOR |
& maskInS, maskInS, rAs, drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_ad.F |
203 |
ADMONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_ad.F |
207 |
ADMONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_ad.F |
211 |
ADMONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_ad.F |
215 |
ADMONITOR |
& maskInW, maskInW, rAw, drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_ad.F |
217 |
ADMONITOR |
& maskInS, maskInS, rAs, drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_g.F |
115 |
G_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_g.F |
117 |
G_MONITOR |
& hFacW, maskInW, rAw, drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_g.F |
119 |
G_MONITOR |
& hFacS, maskInS, rAs, drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_g.F |
123 |
G_MONITOR |
& hFacC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_g.F |
125 |
G_MONITOR |
& hFacC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_g.F |
131 |
G_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_g.F |
133 |
G_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_g.F |
140 |
G_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_g.F |
143 |
G_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_g.F |
146 |
G_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_g.F |
148 |
G_MONITOR |
& maskInW, maskInW, rAw, drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_g.F |
150 |
G_MONITOR |
& maskInS, maskInS, rAs, drF, dummyRL, myThid ) |
|
./model/src/config_summary.F |
854 |
CONFIG_SUMMARY |
CALL WRITE_COPY1D_RS( bufRL, drF, Nr, INDEX_K, 'drF = ', |
|
./model/src/convective_weights.F |
65 |
CONVECTIVE_WEIGHTS |
d1 = _hFacC(i,j,k-1,bi,bj)*drF(k-1) |
|
./model/src/convective_weights.F |
66 |
CONVECTIVE_WEIGHTS |
d2 = _hFacC(i,j, k ,bi,bj)*drF( k ) |
|
./pkg/obcs/obcs_balance_flow.F |
101 |
OBCS_BALANCE_FLOW |
tmpA = drF(k)*hFacW(iB,j,k,bi,bj)*dyG(iB,j,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
150 |
OBCS_BALANCE_FLOW |
tmpA = drF(k)*hFacW(1+iB,j,k,bi,bj)*dyG(1+iB,j,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
199 |
OBCS_BALANCE_FLOW |
tmpA = drF(k)*hFacS(i,jB,k,bi,bj)*dxG(i,jB,bi,bj) |
|
./pkg/obcs/obcs_balance_flow.F |
248 |
OBCS_BALANCE_FLOW |
tmpA = drF(k)*hFacS(i,1+jB,k,bi,bj)*dxG(i,1+jB,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
189 |
OBCS_CALC_STEVENS |
& *drF(K)* _hFacW(I,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
190 |
OBCS_CALC_STEVENS |
drFBar = drFBar + drF(K)* _hFacW(I,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
206 |
OBCS_CALC_STEVENS |
& *drF(K)* _hFacW(I,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
207 |
OBCS_CALC_STEVENS |
drFBar = drFBar + drF(K)* _hFacW(I,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
316 |
OBCS_CALC_STEVENS |
& *drF(K)* _hFacW(I+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
317 |
OBCS_CALC_STEVENS |
drFBar = drFBar + drF(K)* _hFacW(I+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
333 |
OBCS_CALC_STEVENS |
& *drF(K)* _hFacW(I+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
334 |
OBCS_CALC_STEVENS |
drFBar = drFBar + drF(K)* _hFacW(I+1,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
427 |
OBCS_CALC_STEVENS |
& *drF(K)* _hFacS(I,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
428 |
OBCS_CALC_STEVENS |
drFBar = drFBar + drF(K)* _hFacS(I,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
444 |
OBCS_CALC_STEVENS |
& *drF(K)* _hFacS(I,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
445 |
OBCS_CALC_STEVENS |
drFBar = drFBar + drF(K)* _hFacS(I,J,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
539 |
OBCS_CALC_STEVENS |
& *drF(K)* _hFacS(I,J+1,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
540 |
OBCS_CALC_STEVENS |
drFBar = drFBar + drF(K)* _hFacS(I,J+1,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
556 |
OBCS_CALC_STEVENS |
& *drF(K)* _hFacS(I,J+1,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
557 |
OBCS_CALC_STEVENS |
drFBar = drFBar + drF(K)* _hFacS(I,J+1,K,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
642 |
OBCS_CALC_STEVENS |
& *drF(k)* _hFacW(I,J,K,bi,bj)*dyG(I,J,bi,bj) |
|
./pkg/obcs/obcs_calc_stevens.F |
646 |
OBCS_CALC_STEVENS |
& *drF(k)* _hFacW(I+1,J,K,bi,bj)*dyG(I+1,J,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
120 |
OBCS_DIAG_BALANCE |
tmpA = drF(k)*hFacW(iB,j,k,bi,bj)*dyG(iB,j,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
142 |
OBCS_DIAG_BALANCE |
tmpA = drF(k)*hFacS(i,jB,k,bi,bj)*dxG(i,jB,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
165 |
OBCS_DIAG_BALANCE |
tmpA = drF(k)*hFacS(i,jB,k,bi,bj)*dxG(i,jB,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
214 |
OBCS_DIAG_BALANCE |
& + inFlow(n)*drF(k)*hFacW(iB,j,k,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
235 |
OBCS_DIAG_BALANCE |
& + inFlow(n)*drF(k)*hFacW(iB,j,k,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
255 |
OBCS_DIAG_BALANCE |
& + inFlow(n)*drF(k)*hFacS(i,jB,k,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
276 |
OBCS_DIAG_BALANCE |
& + inFlow(n)*drF(k)*hFacS(i,jB,k,bi,bj) |
|
./pkg/obcs/obcs_diag_balance.F |
97 |
OBCS_DIAG_BALANCE |
tmpA = drF(k)*hFacW(iB,j,k,bi,bj)*dyG(iB,j,bi,bj) |
|
./pkg/obcs/obcs_monitor.F |
110 |
OBCS_MONITOR |
I Nr, Nr, 1, uVel, hFacW, dyG, drF, maskInC, |
|
./pkg/obcs/obcs_monitor.F |
116 |
OBCS_MONITOR |
I Nr, Nr, 2, vVel, hFacS, dxG, drF, maskInC, |
|
./pkg/obcs/obcs_monitor.F |
132 |
OBCS_MONITOR |
I Nr, Nr, 0, theta, hFacW, dyG, drF, maskInC, |
|
./pkg/obcs/obcs_monitor.F |
138 |
OBCS_MONITOR |
I Nr, Nr, 0, theta, hFacS, dxG, drF, maskInC, |
|
./pkg/obcs/obcs_monitor.F |
154 |
OBCS_MONITOR |
I Nr, Nr, 0, salt, hFacW, dyG, drF, maskInC, |
|
./pkg/obcs/obcs_monitor.F |
160 |
OBCS_MONITOR |
I Nr, Nr, 0, salt, hFacS, dxG, drF, maskInC, |
|
./pkg/ocn_compon_interf/ocn_export_ocnconfig.F |
45 |
OCN_EXPORT_OCNCONFIG |
ocMxlD2cpl(i,j,bi,bj) = hFacC(i,j,1,bi,bj)*drF(1) |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
77 |
OCN_STORE_MY_DATA |
& h0FacC(i,j,1,bi,bj)*rStarFacC(i,j,bi,bj)*drF(1) |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
83 |
OCN_STORE_MY_DATA |
ocMxlD2cpl(i,j,bi,bj) = hFac_surfC(i,j,bi,bj)*drF(1) |
|
./pkg/ocn_compon_interf/ocn_store_my_data.F |
93 |
OCN_STORE_MY_DATA |
ocMxlD2cpl(i,j,bi,bj) = hFacC(i,j,1,bi,bj)*drF(1) |
|
./pkg/opps/opps_calc.F |
328 |
OPPS_CALC |
IF ( Wd(K2) .NE. 0. _d 0 ) dt = min(dt,drF(k2)/Wd(k2)) |
|
./pkg/opps/opps_calc.F |
342 |
OPPS_CALC |
mda(k2) = (md(k2)*drF(k2)+md(k2+1)*drF(k2+1))/ |
|
./pkg/opps/opps_calc.F |
343 |
OPPS_CALC |
* (drF(k2)+drF(k2+1)) |
|
./pkg/opps/opps_calc.F |
345 |
OPPS_CALC |
wda(k2) = (wd(k2)*drF(k2)+wd(k2+1)*drF(k2+1))/ |
|
./pkg/opps/opps_calc.F |
346 |
OPPS_CALC |
* (drF(k2)+drF(k2+1)) |
|
./pkg/ptracers/ptracers_forcing_surf.F |
82 |
PTRACERS_FORCING_SURF |
cutoff = 0.1 _d 0 *drF(ks)/PTRACERS_dTLev(ks) |
|
./pkg/ptracers/ptracers_monitor.F |
116 |
PTRACERS_MONITOR |
& hFacC, maskInC, rA ,drF, dummyRL, myThid ) |
|
./pkg/ptracers/ptracers_monitor_ad.F |
113 |
ADPTRACERS_MONITOR |
& hFacC, maskInC, rA ,drF, dummyRL, myThid ) |
|
./model/src/find_hyd_press_1d.F |
93 |
FIND_HYD_PRESS_1D |
& + rhoCen(k)*gravity*gravFacC(k)*drF(k)*halfRL |
|
./model/src/find_hyd_press_1d.F |
95 |
FIND_HYD_PRESS_1D |
& + rhoCen(k)*gravity*gravFacC(k)*drF(k) |
|
./model/src/forcing_surf_relax.F |
102 |
FORCING_SURF_RELAX |
& *drF(ks)*_hFacC(i,j,ks,bi,bj) |
|
./model/src/forcing_surf_relax.F |
107 |
FORCING_SURF_RELAX |
& *drF(ks)*_hFacC(i,j,ks,bi,bj) |
|
./model/src/forcing_surf_relax.F |
86 |
FORCING_SURF_RELAX |
& *drF(ks)*_hFacC(i,j,ks,bi,bj) |
|
./model/src/forcing_surf_relax.F |
91 |
FORCING_SURF_RELAX |
& *drF(ks)*_hFacC(i,j,ks,bi,bj) |
|
./pkg/sbo/sbo_calc.F |
236 |
SBO_CALC |
dvolume = rA(i,j,bi,bj)*drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/sbo/sbo_calc.F |
260 |
SBO_CALC |
& rhoInSitu(i,j,k,bi,bj)*drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/sbo/sbo_calc.F |
347 |
SBO_CALC |
dvolume = rA(i,j,bi,bj)*drF(k) |
|
./pkg/seaice/cost_ice_test.F |
151 |
COST_ICE_TEST |
& drF(1) * 3996. _d 0 * 1026. _d 0 - |
|
./pkg/seaice/cost_ice_test.F |
167 |
COST_ICE_TEST |
& drF(1) * 3996. _d 0 * 1026. _d 0 ) |
|
./pkg/seaice/cost_ice_test.F |
182 |
COST_ICE_TEST |
& drF(1) * 3996. _d 0 * 1026. _d 0 + |
|
./model/src/freeze_surface.F |
61 |
FREEZE_SURFACE |
& *drF(k)*_hFacC(i,j,k,bi,bj) / dTtracerLev(k) |
|
./pkg/seaice/seaice_check.F |
122 |
SEAICE_CHECK |
SEAICE_mcphee_max=drF(kSurface)/SEAICE_deltaTtherm |
|
./pkg/seaice/seaice_fake.F |
76 |
SEAICE_FAKE |
& SEAICE_mcPheePiston/drF(1)*SEAICE_deltaTtherm |
|
./pkg/seaice/seaice_growth.F |
1045 |
SEAICE_GROWTH |
tmpscal1 =SEAICE_frazilFrac*drF(kSurface)/SEAICE_deltaTtherm |
|
./pkg/seaice/seaice_growth.F |
343 |
SEAICE_GROWTH |
heffTooHeavy=drF(kSurface) / 5. _d 0 |
|
./pkg/seaice/seaice_init_fixed.F |
92 |
SEAICE_INIT_FIXED |
& * drF(kSurface)/SEAICE_deltaTtherm |
|
./pkg/seaice/seaice_init_fixed.F |
97 |
SEAICE_INIT_FIXED |
& drF(kSurface)/SEAICE_deltaTtherm ) |
|
./model/src/ini_cg2d.F |
103 |
INI_CG2D |
faceArea = _dyG(i,j,bi,bj)*drF(k) |
|
./model/src/ini_cg2d.F |
108 |
INI_CG2D |
faceArea = _dxG(i,j,bi,bj)*drF(k) |
|
./pkg/seaice/seaice_monitor.F |
105 |
SEAICE_MONITOR |
& maskInW, maskInW, rAw, drF, dummyRL, myThid ) |
|
./pkg/seaice/seaice_monitor.F |
108 |
SEAICE_MONITOR |
& UVM, UVM, rAz, drF, dummyRL, myThid ) |
|
./pkg/seaice/seaice_monitor.F |
112 |
SEAICE_MONITOR |
& maskInS, maskInS, rAs, drF, dummyRL, myThid ) |
|
./pkg/seaice/seaice_monitor.F |
115 |
SEAICE_MONITOR |
& UVM, UVM, rAz, drF, dummyRL, myThid ) |
|
./pkg/seaice/seaice_monitor.F |
119 |
SEAICE_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/seaice/seaice_monitor.F |
121 |
SEAICE_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/seaice/seaice_monitor.F |
123 |
SEAICE_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/seaice/seaice_monitor.F |
126 |
SEAICE_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/seaice/seaice_monitor.F |
134 |
SEAICE_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/seaice/seaice_monitor_ad.F |
114 |
ADSEAICE_MONITOR |
& maskInW, maskInW, rAw, drF, dummyRL, myThid ) |
|
./pkg/seaice/seaice_monitor_ad.F |
117 |
ADSEAICE_MONITOR |
& UVM, UVM, rAz, drF, dummyRL, myThid ) |
|
./pkg/seaice/seaice_monitor_ad.F |
121 |
ADSEAICE_MONITOR |
& maskInS, maskInS, rAs, drF, dummyRL, myThid ) |
|
./pkg/seaice/seaice_monitor_ad.F |
124 |
ADSEAICE_MONITOR |
& UVM, UVM, rAz, drF, dummyRL, myThid ) |
|
./pkg/seaice/seaice_monitor_ad.F |
127 |
ADSEAICE_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/seaice/seaice_monitor_ad.F |
129 |
ADSEAICE_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/seaice/seaice_monitor_ad.F |
131 |
ADSEAICE_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/seaice/seaice_monitor_ad.F |
134 |
ADSEAICE_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./model/src/ini_cg3d.F |
111 |
INI_CG3D |
faceArea = _dyG(i,j,bi,bj)*drF(k) |
|
./model/src/ini_cg3d.F |
124 |
INI_CG3D |
faceArea = _dxG(i,j,bi,bj)*drF(K) |
|
./pkg/shap_filt/shap_filt_apply_uv.F |
172 |
SHAP_FILT_APPLY_UV |
& - dKE_shap(i,j)*drF(k)*rUnit2mass |
|
./pkg/shelfice/shelfice_forcing.F |
168 |
SHELFICE_FORCING_S |
drLoc = drF(kLev)*( 1. _d 0 - _hFacC(I,J,kLev,bi,bj) ) |
|
./pkg/shelfice/shelfice_forcing.F |
169 |
SHELFICE_FORCING_S |
drLoc = MIN( drLoc, drF(Kp1) * _hFacC(I,J,Kp1,bi,bj) ) |
|
./pkg/shelfice/shelfice_forcing.F |
172 |
SHELFICE_FORCING_S |
& /( drF(kLev)*_hFacC(I,J,kLev,bi,bj)+drLoc ) |
|
./pkg/shelfice/shelfice_forcing.F |
176 |
SHELFICE_FORCING_S |
drLoc = drF(km1)*( 1. _d 0 - _hFacC(I,J,km1,bi,bj) ) |
|
./pkg/shelfice/shelfice_forcing.F |
177 |
SHELFICE_FORCING_S |
drLoc = MIN( drLoc, drF(kLev) * _hFacC(I,J,kLev,bi,bj) ) |
|
./pkg/shelfice/shelfice_forcing.F |
180 |
SHELFICE_FORCING_S |
& /( drF(km1)*_hFacC(I,J,km1,bi,bj)+drLoc ) |
|
./pkg/shelfice/shelfice_forcing.F |
76 |
SHELFICE_FORCING_T |
drLoc = drF(kLev)*( 1. _d 0 - _hFacC(I,J,kLev,bi,bj) ) |
|
./pkg/shelfice/shelfice_forcing.F |
77 |
SHELFICE_FORCING_T |
drLoc = MIN( drLoc, drF(Kp1) * _hFacC(I,J,Kp1,bi,bj) ) |
|
./pkg/shelfice/shelfice_forcing.F |
80 |
SHELFICE_FORCING_T |
& /( drF(kLev)*_hFacC(I,J,kLev,bi,bj)+drLoc ) |
|
./pkg/shelfice/shelfice_forcing.F |
84 |
SHELFICE_FORCING_T |
drLoc = drF(km1)*( 1. _d 0 - _hFacC(I,J,km1,bi,bj) ) |
|
./pkg/shelfice/shelfice_forcing.F |
85 |
SHELFICE_FORCING_T |
drLoc = MIN( drLoc, drF(kLev) * _hFacC(I,J,kLev,bi,bj) ) |
|
./pkg/shelfice/shelfice_forcing.F |
88 |
SHELFICE_FORCING_T |
& /( drF(km1)*_hFacC(I,J,km1,bi,bj)+drLoc ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
312 |
SHELFICE_THERMODYNAMICS |
drKp1 = drF(K)*( 1. _d 0 - _hFacC(I,J,K,bi,bj) ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
314 |
SHELFICE_THERMODYNAMICS |
drKp1 = MIN( drKp1, drF(Kp1) * _hFacC(I,J,Kp1,bi,bj) ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
317 |
SHELFICE_THERMODYNAMICS |
& ( drF(K)*_hFacC(I,J,K,bi,bj) + drKp1 ) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
318 |
SHELFICE_THERMODYNAMICS |
tLoc(I,J) = ( tLoc(I,J) * drF(K)*_hFacC(I,J,K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
321 |
SHELFICE_THERMODYNAMICS |
sLoc(I,J) = ( sLoc(I,J) * drF(K)*_hFacC(I,J,K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
324 |
SHELFICE_THERMODYNAMICS |
uLoc(I,J) = ( uLoc(I,J) * drF(K)*_hFacC(I,J,K,bi,bj) |
|
./pkg/shelfice/shelfice_thermodynamics.F |
329 |
SHELFICE_THERMODYNAMICS |
vLoc(I,J) = ( vLoc(I,J) * drF(K)*_hFacC(I,J,K,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
97 |
SMOOTH_RHS |
& *drF(k)*smooth_hFacW(i,j,k,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
99 |
SMOOTH_RHS |
& *drF(k)*smooth_hFacS(i,j,k,bi,bj) |
|
./model/src/ini_masks_etc.F |
140 |
INI_MASKS_ETC |
tmpVar1(i,j) = tmpVar1(i,j) + drF(k)*hFacC(i,j,k,bi,bj) |
|
./model/src/ini_masks_etc.F |
190 |
INI_MASKS_ETC |
tmpVar2(i,j) = tmpVar2(i,j) + drF(k)*hFacC(i,j,k,bi,bj) |
|
./model/src/ini_masks_etc.F |
372 |
INI_MASKS_ETC |
tmpVar1(i,j) = tmpVar1(i,j) + drF(k)*hFacW(i,j,k,bi,bj) |
|
./model/src/ini_masks_etc.F |
373 |
INI_MASKS_ETC |
tmpVar2(i,j) = tmpVar2(i,j) + drF(k)*hFacS(i,j,k,bi,bj) |
|
./model/src/ini_nh_fields.F |
109 |
INI_NH_FIELDS |
& + phi_nh(i,j,k,bi,bj)*drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/thsice/thsice_get_ocean.F |
68 |
THSICE_GET_OCEAN |
hOceMxL(i,j,bi,bj) = drF(ks)*h0FacC(i,j,ks,bi,bj) |
|
./pkg/thsice/thsice_get_ocean.F |
76 |
THSICE_GET_OCEAN |
hOceMxL(i,j,bi,bj) = drF(ks)*hFac_surfC(i,j,bi,bj) |
|
./pkg/thsice/thsice_get_ocean.F |
78 |
THSICE_GET_OCEAN |
hOceMxL(i,j,bi,bj) = drF(ks)*hFacC(i,j,ks,bi,bj) |
|
./pkg/thsice/thsice_get_ocean.F |
89 |
THSICE_GET_OCEAN |
hOceMxL(i,j,bi,bj) = drF(ks)*hFacC(i,j,ks,bi,bj) |
|
./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_nlfs_vars.F |
154 |
INI_NLFS_VARS |
& Rmin_tmp + hFacInfMOM*drF(ks) |
|
./model/src/ini_vertical_grid.F |
100 |
INI_VERTICAL_GRID |
drF( k ) = 0.5 _d 0 *delRc(k) |
|
./model/src/ini_vertical_grid.F |
101 |
INI_VERTICAL_GRID |
drF(k-1) = 0.5 _d 0 *delRc(k) + drF(k-1) |
|
./model/src/ini_vertical_grid.F |
103 |
INI_VERTICAL_GRID |
drF(Nr) = delRc(Nr+1) + drF(Nr) |
|
./model/src/ini_vertical_grid.F |
145 |
INI_VERTICAL_GRID |
rF(k+1) = rF(k) + rkSign*drF(k) |
|
./model/src/ini_vertical_grid.F |
165 |
INI_VERTICAL_GRID |
rF(k) = rF(k+1) - rkSign*drF(k) |
|
./model/src/ini_vertical_grid.F |
202 |
INI_VERTICAL_GRID |
recip_drF(k) = 1. _d 0/drF(k) |
|
./model/src/ini_vertical_grid.F |
77 |
INI_VERTICAL_GRID |
drF(k) = delR(k) |
|
./model/src/ini_vertical_grid.F |
94 |
INI_VERTICAL_GRID |
drF(1) = delRc(1) |
|
./verification/bottom_ctrl_5x5/code_ad/cost_test.F |
60 |
COST_TEST |
& *dyG(I,J,BI,BJ)*drF(K) |
|
./model/src/integr_continuity.F |
111 |
INTEGR_CONTINUITY |
& *drF(k)*_hFacW(i,j,k,bi,bj) |
|
./model/src/integr_continuity.F |
114 |
INTEGR_CONTINUITY |
& *drF(k)*_hFacS(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
131 |
INTEGRATE_FOR_W |
& -rStarDhDt(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
142 |
INTEGRATE_FOR_W |
& -rStarDhDt(i,j)*drF(k)*h0FacC(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
68 |
INTEGRATE_FOR_W |
& *drF(k)*_hFacW(i,j,k,bi,bj) |
|
./model/src/integrate_for_w.F |
71 |
INTEGRATE_FOR_W |
& *drF(k)*_hFacS(i,j,k,bi,bj) |
|
./verification/fizhi-cs-aqualev20/code/ini_salt.F |
61 |
INI_SALT |
pedyn(K) = pedyn(K-1) - drF(K-1) |
|
./verification/fizhi-gridalt-hs/code/fizhi_init_vars.F |
99 |
FIZHI_INIT_VARS |
& drF(L-1)*hfacC(i,j,L-1,bi,bj) |
|
./verification/internal_wave/code/obcs_calc.F |
65 |
OBCS_CALC |
tmpsum=tmpsum+vertStructWst(K)*drF(K) |
|
./model/src/pre_cg3d.F |
198 |
PRE_CG3D |
& +drF(k)*dyG(i+1,j,bi,bj)*_hFacW(i+1,j,k,bi,bj)*uf(i+1,j) |
|
./model/src/pre_cg3d.F |
199 |
PRE_CG3D |
& -drF(k)*dyG( i ,j,bi,bj)*_hFacW( i ,j,k,bi,bj)*uf( i ,j) |
|
./model/src/pre_cg3d.F |
200 |
PRE_CG3D |
& +drF(k)*dxG(i,j+1,bi,bj)*_hFacS(i,j+1,k,bi,bj)*vf(i,j+1) |
|
./model/src/pre_cg3d.F |
201 |
PRE_CG3D |
& -drF(k)*dxG(i, j ,bi,bj)*_hFacS(i, j ,k,bi,bj)*vf(i, j ) |
|
./model/src/pre_cg3d.F |
217 |
PRE_CG3D |
& +drF(k)*dyG(i+1,j,bi,bj)*_hFacW(i+1,j,k,bi,bj)*uf(i+1,j) |
|
./model/src/pre_cg3d.F |
218 |
PRE_CG3D |
& -drF(k)*dyG( i ,j,bi,bj)*_hFacW( i ,j,k,bi,bj)*uf( i ,j) |
|
./model/src/pre_cg3d.F |
219 |
PRE_CG3D |
& +drF(k)*dxG(i,j+1,bi,bj)*_hFacS(i,j+1,k,bi,bj)*vf(i,j+1) |
|
./model/src/pre_cg3d.F |
220 |
PRE_CG3D |
& -drF(k)*dxG(i, j ,bi,bj)*_hFacS(i, j ,k,bi,bj)*vf(i, j ) |
|
./verification/rotating_tank/code/apply_forcing.F |
715 |
APPLY_FORCING_T |
faceArea = drF(k)*dyG(i,j,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
722 |
APPLY_FORCING_T |
faceArea = drF(k)*dyG(i+1,j,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
729 |
APPLY_FORCING_T |
faceArea = drF(k)*dxG(i,j+1,bi,bj) |
|
./verification/rotating_tank/code/apply_forcing.F |
736 |
APPLY_FORCING_T |
faceArea = drF(k)*dxG(i,j,bi,bj) |
|
./verification/tutorial_global_oce_biogeo/code_ad/cost_tracer.F |
57 |
COST_TRACER |
& rA(i,j,bi,bj)*drF(k) |
|
./model/src/set_ref_state.F |
105 |
SET_REF_STATE |
& + halfRL*drF(k)*gravity*gravFacC(k) |
|
./model/src/set_ref_state.F |
106 |
SET_REF_STATE |
phiRef(2*k+1) = phiRef(2*k-1) + drF(k)*gravity*gravFacC(k) |
|
./verification/tutorial_global_oce_biogeo/code_oad/cost_tracer.F |
57 |
COST_TRACER |
& rA(i,j,bi,bj)*drF(k) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
73 |
PTRACERS_FORCING_SURF |
& * drF(ks) * _hFacC(i,j,ks,bi,bj) |
|
./verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F |
85 |
PTRACERS_FORCING_SURF |
cutoff = 0.1 _d 0 *drF(ks)/PTRACERS_dTLev(ks) |
|
./verification/tutorial_tracer_adjsens/code_ad/ptracers_forcing_surf.F |
80 |
PTRACERS_FORCING_SURF |
cutoff = 0.1 _d 0 *drF(ks)/PTRACERS_dTLev(ks) |
|
./verification/tutorial_tracer_adjsens/code_oad/ptracers_forcing_surf.F |
80 |
PTRACERS_FORCING_SURF |
cutoff = 0.1 _d 0 *drF(ks)/PTRACERS_dTLev(ks) |
|
./model/src/update_cg2d.F |
105 |
UPDATE_CG2D |
faceArea = _dyG(i,j,bi,bj)*drF(k) |
|
./model/src/update_cg2d.F |
109 |
UPDATE_CG2D |
faceArea = _dxG(i,j,bi,bj)*drF(k) |
|
./model/src/update_cg2d.F |
86 |
UPDATE_CG2D |
faceArea = _dyG(i,j,bi,bj)*drF(k)*deepFacC(k)*rhoFacC(k) |
|
./model/src/update_cg2d.F |
91 |
UPDATE_CG2D |
faceArea = _dxG(i,j,bi,bj)*drF(k)*deepFacC(k)*rhoFacC(k) |
|
./model/src/update_masks_etc.F |
148 |
UPDATE_MASKS_ETC |
& - drF(K)*hFacC(I,J,K,bi,bj) |
|
./model/src/update_sigma.F |
121 |
UPDATE_SIGMA |
recip_hFacC(i,j,k,bi,bj) = maskC(i,j,k,bi,bj)*drF(k) |
|
./model/src/update_sigma.F |
147 |
UPDATE_SIGMA |
recip_hFacW(i,j,k,bi,bj) = maskW(i,j,k,bi,bj)*drF(k) |
|
./model/src/update_sigma.F |
173 |
UPDATE_SIGMA |
recip_hFacS(i,j,k,bi,bj) = maskS(i,j,k,bi,bj)*drF(k) |
|
./model/src/write_grid.F |
130 |
WRITE_GRID |
CALL WRITE_GLVEC_RS( 'DRF',' ', drF, Nr, -1, myThid ) |
|
./model/src/write_grid.F |
175 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'drF',drF,myThid) |
|
./pkg/aim_v23/aim_do_physics.F |
101 |
AIM_DO_PHYSICS |
& + salt(i,j,Nr,bi,bj)*drF(Nr)*recip_drF(k) |
|
./pkg/aim_v23/aim_tendency_apply.F |
102 |
AIM_TENDENCY_APPLY_U |
& *hFacW(i,j,k,bi,bj)*drF(k)*rUnit2mass |
|
./pkg/aim_v23/aim_tendency_apply.F |
290 |
AIM_TENDENCY_APPLY_V |
& *hFacS(i,j,k,bi,bj)*drF(k)*rUnit2mass |
|
./pkg/atm2d/get_ocnvars.F |
100 |
GET_OCNVARS |
mlDepth(i,j) = hFacC(i,j,1,1,1)*drF(1) |
|
./pkg/atm2d/get_ocnvars.F |
84 |
GET_OCNVARS |
& h0FacC(i,j,1,1,1)*rStarFacC(i,j,1,1)*drF(1) |
|
./pkg/atm2d/get_ocnvars.F |
90 |
GET_OCNVARS |
mlDepth(i,j) = hFac_surfC(i,j,1,1)*drF(1) |
|
./pkg/atm2d/relax_add.F |
127 |
RELAX_ADD |
& * (HeatCapacity_Cp*rhoNil*drF(1))*nearIce |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
166 |
ATM_PHYS_TENDENCY_APPLY_V |
& *hFacS(i,j,k,bi,bj)*drF(k)*rUnit2mass |
|
./pkg/atm_phys/atm_phys_tendency_apply.F |
78 |
ATM_PHYS_TENDENCY_APPLY_U |
& *hFacW(i,j,k,bi,bj)*drF(k)*rUnit2mass |
|
./pkg/bbl/bbl_calc_rhs.F |
170 |
BBL_CALC_RHS |
thk_d = drF(kLowC(i,d,bi,bj)) * |
|
./pkg/bbl/bbl_calc_rhs.F |
178 |
BBL_CALC_RHS |
thk_r = drF(kLowC(i,r,bi,bj)) * |
|
./pkg/bbl/bbl_calc_rhs.F |
272 |
BBL_CALC_RHS |
thk_d = drF(kLowC(i,d,bi,bj)) * |
|
./pkg/bbl/bbl_calc_rhs.F |
280 |
BBL_CALC_RHS |
thk_r = drF(kLowC(i,r,bi,bj)) * |
|
./pkg/bbl/bbl_calc_rhs.F |
375 |
BBL_CALC_RHS |
thk_d = drF(kLowC(d,j,bi,bj)) * |
|
./pkg/bbl/bbl_calc_rhs.F |
383 |
BBL_CALC_RHS |
thk_r = drF(kLowC(r,j,bi,bj)) * |
|
./pkg/bbl/bbl_calc_rhs.F |
477 |
BBL_CALC_RHS |
thk_d = drF(kLowC(d,j,bi,bj)) * |
|
./pkg/bbl/bbl_calc_rhs.F |
485 |
BBL_CALC_RHS |
thk_r = drF(kLowC(r,j,bi,bj)) * |
|
./pkg/bling/bling_carbon_chem.F |
863 |
CARBON_COEFFS_PRESSURE_DEP |
cdepth = bdepth + 0.5d0*drF(k) |
|
./pkg/bling/bling_carbon_chem.F |
864 |
CARBON_COEFFS_PRESSURE_DEP |
bdepth = bdepth + drF(k) |
|
./pkg/bling/bling_light.F |
176 |
BLING_LIGHT |
atten = k0*drF(1)/2. _d 0*hFacC(i,j,1,bi,bj) |
|
./pkg/bling/bling_light.F |
180 |
BLING_LIGHT |
atten = k0*drF(k)/2. _d 0*hFacC(i,j,k,bi,bj) |
|
./pkg/bling/bling_light.F |
181 |
BLING_LIGHT |
& + k0*drF(k-1)/2. _d 0*hFacC(i,j,k-1,bi,bj) |
|
./pkg/bling/bling_light.F |
190 |
BLING_LIGHT |
SumMLIrr = SumMLIrr+drF(k)*irr_inst(i,j,k) |
|
./pkg/bling/bling_light.F |
191 |
BLING_LIGHT |
tmp_ML = tmp_ML + drF(k) |
|
./pkg/bling/bling_mixedlayer.F |
101 |
BLING_MIXEDLAYER |
SumMLDepth(i,j) = SumMLDepth(i,j)+drF(k) |
|
./pkg/bling/bling_production.F |
329 |
BLING_PROD |
tmp_p_sm_ML = tmp_p_sm_ML+Phy_sm_local(i,j,k)*drF(k) |
|
./pkg/bling/bling_production.F |
331 |
BLING_PROD |
tmp_p_lg_ML = tmp_p_lg_ML+Phy_lg_local(i,j,k)*drF(k) |
|
./pkg/bling/bling_production.F |
333 |
BLING_PROD |
tmp_p_diaz_ML = tmp_p_diaz_ML+Phy_diaz_local(i,j,k)*drF(k) |
|
./pkg/bling/bling_production.F |
335 |
BLING_PROD |
tmp_ML = tmp_ML + drF(k) |
|
./pkg/bling/bling_remineralization.F |
183 |
BLING_REMIN |
PONflux_l = (PONflux_u+N_spm(i,j,k)*drF(k) |
|
./pkg/bling/bling_remineralization.F |
184 |
BLING_REMIN |
& *hFacC(i,j,k,bi,bj))/(1+zremin*drF(k) |
|
./pkg/bling/bling_remineralization.F |
187 |
BLING_REMIN |
POPflux_l = (POPflux_u+P_spm(i,j,k)*drF(k) |
|
./pkg/bling/bling_remineralization.F |
188 |
BLING_REMIN |
& *hFacC(i,j,k,bi,bj))/(1+zremin*drF(k) |
|
./pkg/bling/bling_remineralization.F |
192 |
BLING_REMIN |
CaCO3flux_l = (caco3flux_u+CaCO3_uptake(i,j,k)*drF(k) |
|
./pkg/bling/bling_remineralization.F |
193 |
BLING_REMIN |
& *hFacC(i,j,k,bi,bj))/(1+zremin_caco3*drF(k) |
|
./pkg/bling/bling_remineralization.F |
202 |
BLING_REMIN |
N_reminp(i,j,k) = (PONflux_u + N_spm(i,j,k)*drF(k) |
|
./pkg/bling/bling_remineralization.F |
205 |
BLING_REMIN |
P_reminp(i,j,k) = (POPflux_u + P_spm(i,j,k)*drF(k) |
|
./pkg/bling/bling_remineralization.F |
209 |
BLING_REMIN |
& *drF(k) - CaCO3flux_l)*recip_drF(k) |
|
./pkg/bling/bling_remineralization.F |
280 |
BLING_REMIN |
NO3_sed(i,j) = PONflux_l*drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/bling/bling_remineralization.F |
283 |
BLING_REMIN |
PO4_sed(i,j) = POPflux_l*drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/bling/bling_remineralization.F |
290 |
BLING_REMIN |
O2_sed(i,j) = -(O2toN * PONflux_l*drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/bling/bling_remineralization.F |
341 |
BLING_REMIN |
& +Fe_ads_org(i,j,k))*drF(k) |
|
./pkg/bling/bling_remineralization.F |
342 |
BLING_REMIN |
& *hFacC(i,j,k,bi,bj))/(1+zremin*drF(k) |
|
./pkg/bling/bling_remineralization.F |
357 |
BLING_REMIN |
& +Fe_ads_org(i,j,k))*drF(k) |
|
./pkg/cost/cost_atlantic_heat.F |
122 |
COST_ATLANTIC_HEAT |
& + vVel_bar(k)*drF(k)/countV(k) |
|
./pkg/cost/cost_atlantic_heat.F |
127 |
COST_ATLANTIC_HEAT |
& + thetaVVel_bar(k)*drF(k)/countTV(k) |
|
./pkg/cost/cost_atlantic_heat.F |
175 |
COST_ATLANTIC_HEAT |
& + uVel_bar(k) * theta_bar(k) * drF(k) |
|
./pkg/cost/cost_atlantic_heat.F |
80 |
COST_ATLANTIC_HEAT |
& * drF(k))**2 |
|
./pkg/cost/cost_tracer.F |
57 |
COST_TRACER |
& rA(i,j,bi,bj)*drF(k)*dTtracerLev(k) |
|
./pkg/cost/cost_vector.F |
71 |
COST_VECTOR |
& * drF(k) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
114 |
DIAGNOSTICS_CALC_PHIVEL |
& *drF(k)*hFacW(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
117 |
DIAGNOSTICS_CALC_PHIVEL |
& *drF(k)*hFacS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
127 |
DIAGNOSTICS_CALC_PHIVEL |
uTrans(i,j,bi,bj) = dyG(i,j,bi,bj)*drF(k) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
129 |
DIAGNOSTICS_CALC_PHIVEL |
vTrans(i,j,bi,bj) = dxG(i,j,bi,bj)*drF(k) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
271 |
DIAGNOSTICS_CALC_PHIVEL |
& *drF(k)*hFacW(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
276 |
DIAGNOSTICS_CALC_PHIVEL |
& *drF(k)*hFacS(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
340 |
DIAGNOSTICS_FILL_STATE |
& + drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
109 |
DIAGNOSTICS_SUM_LEVELS |
tmpFac = drF(kLev) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
133 |
DIAGNOSTICS_SUM_LEVELS |
tmpFac = drF(kLev) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
149 |
DIAGNOSTICS_SUM_LEVELS |
tmpFac = drF(kLev) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
165 |
DIAGNOSTICS_SUM_LEVELS |
tmpFac = drF(kLev) |
|
./pkg/diagnostics/diagnostics_sum_levels.F |
181 |
DIAGNOSTICS_SUM_LEVELS |
tmpFac = drF(kLev) |
|
./pkg/diagnostics/diagstats_local.F |
122 |
DIAGSTATS_LOCAL |
drLoc = drF(k) |
|
./pkg/dic/bio_export.F |
107 |
BIO_EXPORT |
atten = kall*drF(k)*hFacC(i,j,k,bi,bj)*.5 _d 0 |
|
./pkg/dic/bio_export.F |
109 |
BIO_EXPORT |
& +( kall*drF(k-1)*hFacC(i,j,k-1,bi,bj)*.5 _d 0 ) |
|
./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 |
75 |
CAR_FLUX |
caexport(i,j) = CAR_S(i,j,k)*drF(k) * _hFacC(i,j,k,bi,bj) |
|
./pkg/dic/car_flux.F |
99 |
CAR_FLUX |
depth_l = -rF(ko) + drF(ko) |
|
./pkg/dic/car_flux_omega_top.F |
111 |
CAR_FLUX_OMEGA_TOP |
& ( (flux_l)/(drF(1)*hFacC(i,j,1,bi,bj)) ) |
|
./pkg/dic/car_flux_omega_top.F |
131 |
CAR_FLUX_OMEGA_TOP |
dumrate = -1.0d0*DissolutionRate*drF(ko)* |
|
./pkg/dic/car_flux_omega_top.F |
149 |
CAR_FLUX_OMEGA_TOP |
& ( (flux_u-flux_l)/(drF(ko)*hFacC(i,j,ko,bi,bj)) ) |
|
./pkg/dic/car_flux_omega_top.F |
164 |
CAR_FLUX_OMEGA_TOP |
& *drF(k)*hFacC(i,j,k,bi,bj)/ |
|
./pkg/dic/car_flux_omega_top.F |
165 |
CAR_FLUX_OMEGA_TOP |
& (drF(1)*hFacC(i,j,1,bi,bj) ) |
|
./pkg/dic/car_flux_omega_top.F |
89 |
CAR_FLUX_OMEGA_TOP |
& (1.0-DOPfraction)*drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/dic/carbon_chem.F |
856 |
CARBON_COEFFS_PRESSURE_DEP |
cdepth = bdepth + 0.5d0*drF(k) |
|
./pkg/dic/carbon_chem.F |
857 |
CARBON_COEFFS_PRESSURE_DEP |
bdepth = bdepth + drF(k) |
|
./pkg/dic/dic_atmos.F |
120 |
DIC_ATMOS |
& *drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/dic/dic_ini_atmos.F |
117 |
DIC_INI_ATMOS |
& *drF(k)*hFacC(i,j,k,bi,bj) |
|
./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 |
77 |
PHOS_FLUX |
& *drF(k) * _hFacC(i,j,k,bi,bj) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
235 |
DWNSLP_INIT_FIXED |
& drF(k)*hFacC(ideep,jdeep,k,bi,bj) ) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
243 |
DWNSLP_INIT_FIXED |
& *MIN( drF(kshelf)*hFacW(i,j,kshelf,bi,bj), drFlowMin ) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
247 |
DWNSLP_INIT_FIXED |
& *MIN( drF(kshelf)*hFacS(i,j,kshelf,bi,bj), drFlowMin ) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
264 |
DWNSLP_INIT_FIXED |
& *MIN( drF(kshelf)*hFacW(i,j,kshelf,bi,bj), drFlowMin ) |
|
./pkg/down_slope/dwnslp_init_fixed.F |
269 |
DWNSLP_INIT_FIXED |
& *MIN( drF(kshelf)*hFacS(i,j,kshelf,bi,bj), drFlowMin ) |
|
./pkg/ebm/ebm_wind_perturb.F |
135 |
EBM_WIND_PERTURB |
& *drF(1)*hFacW(i,j,1,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
664 |
COST_AVERAGESFIELDS |
& + 2*drF(k)*hFacC(i,j,k,bi,bj) |
|
./pkg/ecco/cost_averagesfields.F |
746 |
COST_AVERAGESFIELDS |
& *_dxG(i,j,bi,bj)*drF(k)*_hFacS(i,j,k,bi,bj) |
|
./pkg/ecco/cost_gencost_seaicev4.F |
435 |
GET_EXCONC_DECONC |
const1=HeatCapacity_Cp*rhoNil*drF(1) |
|
./pkg/ecco/cost_gencost_sshv4.F |
1230 |
COST_GENCOST_SSHV4 |
& CALL REMOVE_MEAN_RL( 1, etaday, maskInC, maskInC, rA, drF, |
|
./pkg/ecco/cost_gencost_sshv4.F |
547 |
COST_GENCOST_SSHV4 |
& CALL REMOVE_MEAN_RL( 1, etaday, maskInC, maskInC, rA, drF, |
|
./pkg/ecco/cost_gencost_sshv4.F |
947 |
COST_GENCOST_SSHV4 |
& CALL REMOVE_MEAN_RL( 1, etaday, maskInC, maskInC, rA, drF, |
|
./pkg/ecco/cost_obcsvol.F |
223 |
COST_OBCSVOL |
fctile = fctile - tmpx* drF(k) *dxg(i,j,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
265 |
COST_OBCSVOL |
fctile = fctile + tmpx* drF(k) *dxg(i,j+1,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
308 |
COST_OBCSVOL |
fctile = fctile + tmpy* drF(k) *dyg(i+1,j,bi,bj) |
|
./pkg/ecco/cost_obcsvol.F |
351 |
COST_OBCSVOL |
fctile = fctile - tmpy* drF(k) *dyg(i,j,bi,bj) |
|
./pkg/ecco/ecco_check.F |
68 |
ECCO_CHECK |
& hFacC(i,j,k,bi,bj)*drF(k)*rA(i,j,bi,bj) |