| 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 |
248 |
ECCO_PHYS |
tmpvol=hFacC(i,j,k,bi,bj)*drF(k)*rA(i,j,bi,bj) |
|
./pkg/ecco/ecco_phys.F |
296 |
ECCO_PHYS |
& +tmpmsk*tmpfld*rA(i,j,bi,bj) |
|
./pkg/ecco/ecco_phys.F |
298 |
ECCO_PHYS |
& +tmpmsk2*rA(i,j,bi,bj) |
|
./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 |
422 |
NO PROCEDURE |
& xC,yC,rA,rAw,rAs,rAz,xG,yG, |
|
./model/inc/GRID.h |
465 |
NO PROCEDURE |
_RS rA (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./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_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/gchem/gchem_surfmean.F |
50 |
GCHEM_SURFMEAN |
& + tracer(i,j,ks,bi,bj)*rA(i,j,bi,bj)*maskInC(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
301 |
GAD_ADVECTION |
localVol(i,j) = rA(i,j,bi,bj)*deepFac2C(k) |
|
./pkg/generic_advdiff/gad_advection.F |
854 |
GAD_ADVECTION |
rTran3d(i,j,k) = wFld(i,j,k)*rA(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
883 |
GAD_ADVECTION |
rTran3d(i,j,k) = wFld(i,j,k)*rA(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_advection.F |
939 |
GAD_ADVECTION |
rTrans(i,j) = wFld(i,j,k)*rA(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
198 |
GAD_IMPLICIT_R |
rTrans(i,j) = wFld(i,j,k)*rA(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
314 |
GAD_IMPLICIT_R |
& -rA(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
426 |
GAD_IMPLICIT_R |
& - rkSign*div(i,j)*rA(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_som_advect.F |
264 |
GAD_SOM_ADVECT |
smVol(i,j,k) = rA(i,j,bi,bj)*deepFac2C(k) |
|
./pkg/generic_advdiff/gad_som_advect.F |
531 |
GAD_SOM_ADVECT |
rTrans(i,j) = wFld(i,j,k)*rA(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_som_advect.F |
543 |
GAD_SOM_ADVECT |
rTrans(i,j) = wFld(i,j,k)*rA(i,j,bi,bj) |
|
./pkg/gmredi/gmredi_diagnostics_impl.F |
64 |
GMREDI_DIAGNOSTICS_IMPL |
& *rA(i,j,bi,bj) |
|
./model/src/calc_adv_flow.F |
130 |
CALC_ADV_FLOW |
rTrans(i,j) = wFld(i,j,k)*rA(i,j,bi,bj)*maskUp(i,j) |
|
./model/src/calc_adv_flow.F |
95 |
CALC_ADV_FLOW |
rTransKp(i,j) = wFld(i,j,k+1)*rA(i,j,bi,bj) |
|
./pkg/land/land_monitor.F |
134 |
LAND_MONITOR |
I land_hSnow, land_frc, maskInC, rA, yC, locDr, |
|
./pkg/land/land_monitor.F |
170 |
LAND_MONITOR |
I land_skinT, land_frc, maskInC, rA, yC, locDr, |
|
./pkg/land/land_monitor.F |
198 |
LAND_MONITOR |
I land_groundT, land_frc, maskInC, rA, yC, locDr, |
|
./pkg/land/land_monitor.F |
226 |
LAND_MONITOR |
I land_groundT, land_frc, maskInC, rA, yC, locDr, |
|
./pkg/land/land_monitor.F |
257 |
LAND_MONITOR |
I land_enthalp, land_frc, maskInC, rA, yC, locDr, |
|
./pkg/land/land_monitor.F |
274 |
LAND_MONITOR |
I land_groundW, land_frc, maskInC, rA, yC, locDr, |
|
./pkg/layers/layers_fluxcalc.F |
227 |
LAYERS_FLUXCALC |
& ( rA(i-1,j,bi,bj)*Kwx(i-1,j,kcip1,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
228 |
LAYERS_FLUXCALC |
& +rA( i ,j,bi,bj)*Kwx( i ,j,kcip1,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
230 |
LAYERS_FLUXCALC |
& - ( rA(i-1,j,bi,bj)*Kwx(i-1,j, kci ,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
231 |
LAYERS_FLUXCALC |
& +rA( i ,j,bi,bj)*Kwx( i ,j, kci ,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
316 |
LAYERS_FLUXCALC |
& ( rA(i,j-1,bi,bj)*Kwy(i,j-1,kcip1,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
317 |
LAYERS_FLUXCALC |
& +rA(i, j ,bi,bj)*Kwy(i, j ,kcip1,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
319 |
LAYERS_FLUXCALC |
& - ( rA(i,j-1,bi,bj)*Kwy(i,j-1, kci ,bi,bj) |
|
./pkg/layers/layers_fluxcalc.F |
320 |
LAYERS_FLUXCALC |
& +rA(i, j ,bi,bj)*Kwy(i, j , kci ,bi,bj) |
|
./model/src/calc_gw.F |
416 |
CALC_GW |
& *recip_drF(k)*rA(i,j,bi,bj) |
|
./model/src/calc_gw.F |
434 |
CALC_GW |
& *recip_drF(k-1)*rA(i,j,bi,bj) |
|
./model/src/calc_gw.F |
539 |
CALC_GW |
& )*rA(i,j,bi,bj) |
|
./model/src/calc_gw.F |
550 |
CALC_GW |
& *rA(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
121 |
CALC_R_STAR |
& ( 0.5 _d 0 *( etaFld(i-1,j,bi,bj)*rA(i-1,j,bi,bj) |
|
./model/src/calc_r_star.F |
122 |
CALC_R_STAR |
& +etaFld(i,j,bi,bj)*rA(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
135 |
CALC_R_STAR |
& ( 0.5 _d 0 *( etaFld(i,j-1,bi,bj)*rA(i,j-1,bi,bj) |
|
./model/src/calc_r_star.F |
136 |
CALC_R_STAR |
& +etaFld(i,j,bi,bj)*rA(i,j,bi,bj) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
154 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'rA',rA,myThid) |
|
./model/src/calc_surf_dr.F |
114 |
CALC_SURF_DR |
& + rA(i,j,bi,bj)*(Rmin_surf(i,j,bi,bj)-rSurftmp(i,j)) |
|
./model/src/calc_wsurf_tr.F |
73 |
CALC_WSURF_TR |
& + rA(i,j,bi,bj)*wVelFld(i,j,ks,bi,bj) |
|
./model/src/calc_wsurf_tr.F |
76 |
CALC_WSURF_TR |
& + rA(i,j,bi,bj)*wVelFld(i,j,ks,bi,bj) |
|
./pkg/mom_common/mom_init_fixed.F |
129 |
MOM_INIT_FIXED |
smag3D_hLsC(i,j,bi,bj) = rA (i,j,bi,bj)**twoThird |
|
./pkg/mom_common/mom_init_fixed.F |
80 |
MOM_INIT_FIXED |
L2_D(i,j,bi,bj) = rA(i,j,bi,bj) |
|
./pkg/mom_common/mom_u_implicit_r.F |
149 |
MOM_U_IMPLICIT_R |
& wVel( i ,j,k,bi,bj)*rA( i ,j,bi,bj) |
|
./pkg/mom_common/mom_u_implicit_r.F |
151 |
MOM_U_IMPLICIT_R |
& + wVel(i-1,j,k,bi,bj)*rA(i-1,j,bi,bj) |
|
./pkg/mom_common/mom_v_implicit_r.F |
149 |
MOM_V_IMPLICIT_R |
& wVel(i, j ,k,bi,bj)*rA(i, j ,bi,bj) |
|
./pkg/mom_common/mom_v_implicit_r.F |
151 |
MOM_V_IMPLICIT_R |
& + wVel(i,j-1,k,bi,bj)*rA(i,j-1,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
100 |
MOM_CALC_RTRANS |
& 0.5 _d 0*( wVel(i-1,j,k,bi,bj)*rA(i-1,j,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
101 |
MOM_CALC_RTRANS |
& +wVel( i ,j,k,bi,bj)*rA( i ,j,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
104 |
MOM_CALC_RTRANS |
& 0.5 _d 0*( wVel(i,j-1,k,bi,bj)*rA(i,j-1,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
105 |
MOM_CALC_RTRANS |
& +wVel(i, j ,k,bi,bj)*rA(i, j ,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
123 |
MOM_CALC_RTRANS |
& *rA(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
141 |
MOM_CALC_RTRANS |
& *rA(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
78 |
MOM_CALC_RTRANS |
& 0.5 _d 0*( PmEpR( i ,j,bi,bj)*rA( i ,j,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
79 |
MOM_CALC_RTRANS |
& +PmEpR(i-1,j,bi,bj)*rA(i-1,j,bi,bj) ) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
81 |
MOM_CALC_RTRANS |
& 0.5 _d 0*( PmEpR(i, j ,bi,bj)*rA(i, j ,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
82 |
MOM_CALC_RTRANS |
& +PmEpR(i,j-1,bi,bj)*rA(i,j-1,bi,bj) ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
442 |
MOM_FLUXFORM |
& ( 0.5 _d 0*(rA(i,j,bi,bj)+rA(i-1,j,bi,bj)) ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
539 |
MOM_FLUXFORM |
& ( 0.5 _d 0*(rA(i,j,bi,bj)+rA(i-1,j,bi,bj)) ) |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
101 |
MOM_U_ADV_WU |
& +wFld(i-1,j,k,bi,bj)*rA(i-1,j,bi,bj)* |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
99 |
MOM_U_ADV_WU |
& wFld(i, j ,k,bi,bj)*rA(i, j ,bi,bj)* |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
100 |
MOM_V_ADV_WV |
& wFld(i, j ,k,bi,bj)*rA(i, j ,bi,bj)* |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
102 |
MOM_V_ADV_WV |
& +wFld(i,j-1,k,bi,bj)*rA(i,j-1,bi,bj)* |
|
./model/src/cg3d.F |
195 |
CG3D |
& *rA(i,j,bi,bj)*deepFac2F(ks) |
|
./model/src/cg3d.F |
377 |
CG3D |
& *rA(i,j,bi,bj)*deepFac2F(ks) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
69 |
MOM_VI_U_VERTSHEAR |
& wFld(I,J,K,bi,bj)*rA(i,j,bi,bj)*maskC(I,J,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
70 |
MOM_VI_U_VERTSHEAR |
& +wFld(I-1,J,K,bi,bj)*rA(i-1,j,bi,bj)*maskC(I-1,J,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
76 |
MOM_VI_U_VERTSHEAR |
& wFld(I,J,Kp1,bi,bj)*rA(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_u_vertshear.F |
77 |
MOM_VI_U_VERTSHEAR |
& +wFld(I-1,J,Kp1,bi,bj)*rA(i-1,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
69 |
MOM_VI_V_VERTSHEAR |
& wFld(I,J,K,bi,bj)*rA(i,j,bi,bj)*maskC(i,j,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
70 |
MOM_VI_V_VERTSHEAR |
& +wFld(I,J-1,K,bi,bj)*rA(i,j-1,bi,bj)*maskC(i,j-1,Km1,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
76 |
MOM_VI_V_VERTSHEAR |
& wFld(I,J,Kp1,bi,bj)*rA(i,j,bi,bj) |
|
./pkg/mom_vecinv/mom_vi_v_vertshear.F |
77 |
MOM_VI_V_VERTSHEAR |
& +wFld(I,J-1,Kp1,bi,bj)*rA(i,j-1,bi,bj) |
|
./model/src/cg3d_ex0.F |
188 |
CG3D_EX0 |
& *rA(i,j,bi,bj)*deepFac2F(ks) |
|
./model/src/cg3d_ex0.F |
361 |
CG3D_EX0 |
& *rA(i,j,bi,bj)*deepFac2F(ks) |
|
./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 |
144 |
MON_KE |
& + tmpVal*rA(i,j,bi,bj)*deepFac2F(1) |
|
./pkg/monitor/mon_ke.F |
300 |
MON_KE |
& *rA(i,j,bi,bj)*deepFac2F(ks)*rhoFacF(ks) |
|
./pkg/monitor/mon_ke.F |
81 |
MON_KE |
& + rA(i,j,bi,bj)*deepFac2C(k) |
|
./pkg/monitor/mon_solution.F |
45 |
MON_SOLUTION |
I Nr, theta, hFacC, maskInC, rA, drF, |
|
./pkg/monitor/mon_surfcor.F |
114 |
MON_SURFCOR |
& + rA(i,j,bi,bj)*maskInC(i,j,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
132 |
MON_SURFCOR |
& - ddPI*rA(i,j,bi,bj)*wVel(i,j,k,bi,bj) |
|
./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_surfcor.F |
88 |
MON_SURFCOR |
& + rA(i,j,bi,bj)*maskInC(i,j,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
89 |
MON_SURFCOR |
tmpVal = rA(i,j,bi,bj)*maskInC(i,j,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
93 |
MON_SURFCOR |
& + rA(i,j,bi,bj)*maskInC(i,j,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
112 |
MON_VORT3 |
& ( ( etaFld(i-1,j-1)*rA(i-1,j-1,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
113 |
MON_VORT3 |
& +etaFld( i ,j-1)*rA( i ,j-1,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
115 |
MON_VORT3 |
& + ( etaFld(i-1, j )*rA(i-1, j ,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
116 |
MON_VORT3 |
& +etaFld( i , j )*rA( i , j ,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
118 |
MON_VORT3 |
& + ( etaFld(i-1,j-1)*rA(i-1,j-1,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
119 |
MON_VORT3 |
& +etaFld(i-1, j )*rA(i-1, j ,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
121 |
MON_VORT3 |
& + ( etaFld( i ,j-1)*rA( i ,j-1,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
122 |
MON_VORT3 |
& + etaFld( i , j )*rA( i , j ,bi,bj) |
|
./pkg/monitor/monitor.F |
110 |
MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor.F |
116 |
MONITOR |
& maskC, maskInC, rA , thickFacF, dummyRL, myThid ) |
|
./pkg/monitor/monitor.F |
118 |
MONITOR |
& hFacC, maskInC, rA , thickFacC, statsTemp, myThid ) |
|
./pkg/monitor/monitor.F |
120 |
MONITOR |
& hFacC, maskInC, rA , thickFacC, 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_ad.F |
128 |
ADMONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_ad.F |
134 |
ADMONITOR |
& maskC, maskInC, rA , drC, 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 |
164 |
ADMONITOR |
& maskC, maskInC, rA , drC, 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 |
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_g.F |
115 |
G_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_g.F |
121 |
G_MONITOR |
& maskC, maskInC, rA , drC, 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 ) |
|
./model/src/config_summary.F |
950 |
CONFIG_SUMMARY |
CALL WRITE_XY_XLINE_RS( rA , coordLine, tileLine, 'rA ', |
|
./model/src/config_summary.F |
952 |
CONFIG_SUMMARY |
CALL WRITE_XY_YLINE_RS( rA , coordLine, tileLine, 'rA ', |
|
./pkg/ptracers/ptracers_calc_wsurf_tr.F |
69 |
PTRACERS_CALC_WSURF_TR |
& + rA(i,j,bi,bj)*wVelFld(i,j,ks,bi,bj) |
|
./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/external_forcing_surf.F |
88 |
EXTERNAL_FORCING_SURF |
CALL REMOVE_MEAN_RS( 1, EmPmR, maskInC, maskInC, rA, tmpVar, |
|
./model/src/external_forcing_surf.F |
92 |
EXTERNAL_FORCING_SURF |
CALL REMOVE_MEAN_RS( 1, Qnet, maskInC, maskInC, rA, tmpVar, |
|
./model/src/forcing_surf_relax.F |
178 |
FORCING_SURF_RELAX |
& *rA(i,j,bi,bj)*maskInC(i,j,bi,bj) |
|
./model/src/forcing_surf_relax.F |
214 |
FORCING_SURF_RELAX |
& *rA(i,j,bi,bj)*maskInC(i,j,bi,bj) |
|
./pkg/sbo/sbo_calc.F |
230 |
SBO_CALC |
darea = rA(i,j,bi,bj)*maskC(i,j,1,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 |
323 |
SBO_CALC |
darea = rA(i,j,bi,bj)*maskC(i,j,1,bi,bj) |
|
./pkg/sbo/sbo_calc.F |
347 |
SBO_CALC |
dvolume = rA(i,j,bi,bj)*drF(k) |
|
./pkg/seaice/cost_ice_test.F |
102 |
COST_ICE_TEST |
& tempVar * rA(i,j,bi,bj) * HEFF(i,j,bi,bj) |
|
./pkg/seaice/cost_ice_test.F |
115 |
COST_ICE_TEST |
& tempVar * rA(i,j,bi,bj) * AREA(i,j,bi,bj) |
|
./pkg/seaice/cost_ice_test.F |
149 |
COST_ICE_TEST |
& tempVar * rA(i,j,bi,bj) * ( |
|
./pkg/seaice/cost_ice_test.F |
165 |
COST_ICE_TEST |
& tempVar * rA(i,j,bi,bj) * ( |
|
./pkg/seaice/cost_ice_test.F |
180 |
COST_ICE_TEST |
& tempVar * rA(i,j,bi,bj) * ( |
|
./model/src/impldiff.F |
338 |
IMPLDIFF |
& -rA(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k) |
|
./model/src/ini_cartesian_grid.F |
140 |
INI_CARTESIAN_GRID |
rA (i,j,bi,bj) = dxF(i,j,bi,bj)*dyF(i,j,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2479 |
SEAICE_GROWTH |
& * rA(i,j,bi,bj) * maskInC(i,j,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2490 |
SEAICE_GROWTH |
& * rA(i,j,bi,bj) * maskInC(i,j,bi,bj) |
|
./pkg/seaice/seaice_growth.F |
2500 |
SEAICE_GROWTH |
& * rA(i,j,bi,bj) * maskInC(i,j,bi,bj) |
|
./model/src/ini_cg2d.F |
212 |
INI_CG2D |
& *rA(i,j,bi,bj)/deltaTMom/deltaTfreesurf |
|
./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 |
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 |
219 |
INI_CG3D |
& *rA(i,j,bi,bj)*deepFac2F(ks)/deltaTMom/deltaTFreeSurf |
|
./model/src/ini_cg3d.F |
231 |
INI_CG3D |
& *rA(i,j,bi,bj)*deepFac2F(ks)/deltaTMom/deltaTFreeSurf |
|
./model/src/ini_curvilinear_grid.F |
237 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'rA', rA, myThid) |
|
./model/src/ini_curvilinear_grid.F |
303 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 5, rA, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
374 |
INI_CURVILINEAR_GRID |
CALL EXCH_XY_RS(rA,myThid ) |
|
./model/src/ini_curvilinear_grid.F |
402 |
INI_CURVILINEAR_GRID |
rA (i,j,bi,bj) = rA (i,j,bi,bj)*tmpFac2 |
|
./model/src/ini_curvilinear_grid.F |
431 |
INI_CURVILINEAR_GRID |
CALL PLOT_FIELD_XYRS( rA , 'Current rA ', 0, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
88 |
INI_CURVILINEAR_GRID |
CALL READ_REC_3D_RS( 'RA.bin' , fp, 1, rA, 1, 0, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
89 |
INI_CURVILINEAR_GRID |
_EXCH_XY_RS(rA,myThid ) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
156 |
SHAP_FILT_UV_S2 |
hDiv(i,j) = hDiv(i,j) * rA(i,j,bi,bj) |
|
./model/src/ini_cylinder_grid.F |
149 |
INI_CYLINDER_GRID |
rA (i,j,bi,bj) = dxF(i,j,bi,bj)*dyF(i,j,bi,bj) |
|
./pkg/smooth/smooth_rhs.F |
298 |
SMOOTH_RHS |
& - rA(i,j,bi,bj) |
|
./model/src/ini_global_domain.F |
84 |
INI_GLOBAL_DOMAIN |
& + rA(i,j,bi,bj)*maskInC(i,j,bi,bj) |
|
./pkg/streamice/streamice_adv_front.F |
219 |
STREAMICE_ADV_FRONT |
& rA(i,j,bi,bj) |
|
./pkg/streamice/streamice_adv_front.F |
229 |
STREAMICE_ADV_FRONT |
& rA(i,j,bi,bj) |
|
./pkg/streamice/streamice_adv_front.F |
233 |
STREAMICE_ADV_FRONT |
partial_vol = partial_vol - href * rA(i,j,bi,bj) |
|
./model/src/ini_grid.F |
172 |
INI_GRID |
IF ( rA (i,j,bi,bj) .NE. 0. ) |
|
./model/src/ini_grid.F |
173 |
INI_GRID |
& recip_rA (i,j,bi,bj) = 1. _d 0/rA (i,j,bi,bj) |
|
./model/src/ini_grid.F |
224 |
INI_GRID |
CALL MON_PRINTSTATS_RS(1,rA,'RA',myThid) |
|
./model/src/ini_grid.F |
85 |
INI_GRID |
rA(i,j,bi,bj) = 0. |
|
./pkg/streamice/streamice_driving_stress.F |
127 |
STREAMICE_DRIVING_STRESS |
& streamice_bg_surf_slope_x * .25 * rA(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
276 |
STREAMICE_DRIVING_STRESS |
& streamice_bg_surf_slope_x * .25 * rA(i,j-1,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
427 |
STREAMICE_DRIVING_STRESS |
& streamice_bg_surf_slope_y * .25 * rA(i,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress.F |
574 |
STREAMICE_DRIVING_STRESS |
& streamice_bg_surf_slope_y * .25 * rA(i-1,j,bi,bj) * |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
103 |
STREAMICE_DRIVING_STRESS_PPM |
& H_streamice(i,j,bi,bj) * rA(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
131 |
STREAMICE_DRIVING_STRESS_PPM |
& H_streamice(i,j,bi,bj) * rA(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
194 |
STREAMICE_DRIVING_STRESS_PPM |
& H_streamice(i,j,bi,bj) * rA(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
228 |
STREAMICE_DRIVING_STRESS_PPM |
& H_streamice(i,j,bi,bj) * rA(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
257 |
STREAMICE_DRIVING_STRESS_PPM |
& H_streamice(i,j,bi,bj) * rA(i,j,bi,bj) |
|
./pkg/streamice/streamice_driving_stress_ppm.F |
320 |
STREAMICE_DRIVING_STRESS_PPM |
& H_streamice(i,j,bi,bj) * rA(i,j,bi,bj) |
|
./pkg/streamice/streamice_init_varia.F |
222 |
STREAMICE_INIT_VARIA |
area_shelf_streamice(i,j,bi,bj) = rA(i,j,bi,bj) * |
|
./pkg/streamice/streamice_init_varia.F |
232 |
STREAMICE_INIT_VARIA |
area_shelf_streamice(i,j,bi,bj) = rA(i,j,bi,bj) |
|
./pkg/streamice/streamice_init_varia.F |
260 |
STREAMICE_INIT_VARIA |
area_shelf_streamice(i,j,bi,bj) = rA(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
253 |
THSICE_ADVDIFF |
iceVol(i,j) = iceMask(i,j,bi,bj)*rA(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
270 |
THSICE_ADVDIFF |
iceVol(i,j) = iceMask(i,j,bi,bj)*rA(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
294 |
THSICE_ADVDIFF |
tmpVar = ABS(iceVol(i,j)-iceFrc(i,j)*rA(i,j,bi,bj)) |
|
./pkg/thsice/thsice_advdiff.F |
303 |
THSICE_ADVDIFF |
& iceVol(i,j),iceFrc(i,j)*rA(i,j,bi,bj), |
|
./pkg/thsice/thsice_advdiff.F |
405 |
THSICE_ADVDIFF |
& -iceHeight(i,j,bi,bj)*iceFrc(i,j)*rA(i,j,bi,bj)) |
|
./pkg/thsice/thsice_advdiff.F |
414 |
THSICE_ADVDIFF |
& iceVol(i,j),iceHeight(i,j,bi,bj)*iceFrc(i,j)*rA(i,j,bi,bj), |
|
./pkg/thsice/thsice_balance_frw.F |
70 |
THSICE_BALANCE_FRW |
& *rA(i,j,bi,bj)*maskInC(i,j,bi,bj) |
|
./pkg/thsice/thsice_balance_frw.F |
73 |
THSICE_BALANCE_FRW |
& *rA(i,j,bi,bj)*maskInC(i,j,bi,bj) |
|
./pkg/thsice/thsice_cost_test.F |
108 |
THSICE_COST_TEST |
& tempVar*rA(i,j,bi,bj)*iceMask(i,j,bi,bj) |
|
./pkg/thsice/thsice_cost_test.F |
95 |
THSICE_COST_TEST |
& tempVar*rA(i,j,bi,bj)*iceHeight(i,j,bi,bj) |
|
./pkg/thsice/thsice_monitor.F |
132 |
THSICE_MONITOR |
I iceHeight, locMask, maskInC, rA, yC, locDr, |
|
./pkg/thsice/thsice_monitor.F |
154 |
THSICE_MONITOR |
I snowHeight, locMask, maskInC, rA, yC, locDr, |
|
./pkg/thsice/thsice_monitor.F |
173 |
THSICE_MONITOR |
I Tsrf, locMask, maskInC, rA, yC, locDr, |
|
./pkg/thsice/thsice_monitor.F |
205 |
THSICE_MONITOR |
I Tice1, locMask, maskInC, rA, yC, locDr, |
|
./pkg/thsice/thsice_monitor.F |
230 |
THSICE_MONITOR |
I Tice2, locMask, maskInC, rA, yC, locDr, |
|
./pkg/thsice/thsice_monitor.F |
249 |
THSICE_MONITOR |
I 1, Qice1, locMask, maskInC, rA, locDr, |
|
./pkg/thsice/thsice_monitor.F |
253 |
THSICE_MONITOR |
I 1, Qice2, locMask, maskInC, rA, locDr, |
|
./pkg/thsice/thsice_test_addfluid.h |
19 |
NO PROCEDURE |
& *rA(i,j,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
129 |
TIMEAVE_CUMUL_2V |
& *( fld2(i-1,j,k,bi,bj)*rA(i-1,j,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
130 |
TIMEAVE_CUMUL_2V |
& +fld2( i ,j,k,bi,bj)*rA( i ,j,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
146 |
TIMEAVE_CUMUL_2V |
& *( fld2(i,j-1,k,bi,bj)*rA(i,j-1,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
147 |
TIMEAVE_CUMUL_2V |
& +fld2(i, j ,k,bi,bj)*rA(i, j ,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
163 |
TIMEAVE_CUMUL_2V |
& *( fld2(i-1,j,k,bi,bj)*rA(i-1,j,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
164 |
TIMEAVE_CUMUL_2V |
& +fld2( i ,j,k,bi,bj)*rA( i ,j,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
180 |
TIMEAVE_CUMUL_2V |
& *( fld2(i,j-1,k,bi,bj)*rA(i,j-1,bi,bj) |
|
./pkg/timeave/timeave_cumul_2v.F |
181 |
TIMEAVE_CUMUL_2V |
& +fld2(i, j ,k,bi,bj)*rA(i, j ,bi,bj) |
|
./model/src/ini_spherical_polar_grid.F |
190 |
INI_SPHERICAL_POLAR_GRID |
rA(i,j,bi,bj) = rSphere*rSphere*dlon*deg2rad |
|
./model/src/ini_spherical_polar_grid.F |
195 |
INI_SPHERICAL_POLAR_GRID |
rA(i,j,bi,bj) = dyF(i,j,bi,bj) |
|
./model/src/ini_spherical_polar_grid.F |
205 |
INI_SPHERICAL_POLAR_GRID |
rAw(i,j,bi,bj) = 0.5 _d 0*(rA(i,j,bi,bj)+rA(i-1,j,bi,bj)) |
|
./verification/hs94.1x64x5/code_ad/ctrl_map_gentim2d.F |
131 |
CTRL_MAP_GENTIM2D |
& maskC(i,j,1,bi,bj)*rA(i,j,bi,bj) |
|
./verification/hs94.1x64x5/code_oad/ctrl_map_gentim2d.F |
131 |
CTRL_MAP_GENTIM2D |
& maskC(i,j,1,bi,bj)*rA(i,j,bi,bj) |
|
./verification/tutorial_global_oce_biogeo/code_ad/cost_tracer.F |
57 |
COST_TRACER |
& rA(i,j,bi,bj)*drF(k) |
|
./verification/tutorial_global_oce_biogeo/code_oad/cost_tracer.F |
57 |
COST_TRACER |
& rA(i,j,bi,bj)*drF(k) |
|
./model/src/solve_for_pressure.F |
151 |
SOLVE_FOR_PRESSURE |
& + rA(i,j,bi,bj)*EmPmR(i,j,bi,bj) |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
91 |
EXTERNAL_FORCING_SURF |
CALL REMOVE_MEAN_RS( 1, EmPmR, maskInC, maskInC, rA, tmpVar, |
|
./verification/tutorial_global_oce_optim/code_ad/external_forcing_surf.F |
95 |
EXTERNAL_FORCING_SURF |
CALL REMOVE_MEAN_RS( 1, Qnet, maskInC, maskInC, rA, tmpVar, |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
91 |
EXTERNAL_FORCING_SURF |
CALL REMOVE_MEAN_RS( 1, EmPmR, maskInC, maskInC, rA, tmpVar, |
|
./verification/tutorial_global_oce_optim/code_oad/external_forcing_surf.F |
95 |
EXTERNAL_FORCING_SURF |
CALL REMOVE_MEAN_RS( 1, Qnet, maskInC, maskInC, rA, tmpVar, |
|
./model/src/update_cg2d.F |
142 |
UPDATE_CG2D |
& *rA(i,j,bi,bj)/deltaTMom/deltaTFreeSurf |
|
./model/src/update_cg2d.F |
153 |
UPDATE_CG2D |
& *rA(i,j,bi,bj)/deltaTMom/deltaTFreeSurf |
|
./model/src/write_grid.F |
192 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'rA',rA,myThid) |
|
./model/src/write_grid.F |
88 |
WRITE_GRID |
CALL WRITE_FLD_XY_RS( 'RAC',' ',rA,-1,myThid) |
|
./pkg/aim_v23/aim_do_co2.F |
89 |
AIM_DO_CO2 |
& * rA(i,j,bi,bj) * deltaT |
|
./pkg/atm2d/calc_1dto2d.F |
66 |
CALC_1DTO2D |
& runoffVal(i,j)/rA(i,j,1,1) |
|
./pkg/atm2d/calc_zonal_means.F |
100 |
CALC_ZONAL_MEANS |
& rA(i,j,1,1)*iceMask(i,j,1,1)*mWgt |
|
./pkg/atm2d/calc_zonal_means.F |
102 |
CALC_ZONAL_MEANS |
& oFluxCO2(i,j)*rA(i,j,1,1)*mWgt |
|
./pkg/atm2d/calc_zonal_means.F |
105 |
CALC_ZONAL_MEANS |
& Tsrf(i,j,1,1)*rA(i,j,1,1)*iceMask(i,j,1,1)*mWgt |
|
./pkg/atm2d/calc_zonal_means.F |
107 |
CALC_ZONAL_MEANS |
& siceAlb(i,j,1,1)*rA(i,j,1,1)*iceMask(i,j,1,1)*mWgt |
|
./pkg/atm2d/calc_zonal_means.F |
109 |
CALC_ZONAL_MEANS |
& icAlbNIR(i,j,1,1)*rA(i,j,1,1)*iceMask(i,j,1,1)*mWgt |
|
./pkg/atm2d/calc_zonal_means.F |
77 |
CALC_ZONAL_MEANS |
& sstFromOcn(i,j) * rA(i,j,1,1) * |
|
./pkg/atm2d/calc_zonal_means.F |
80 |
CALC_ZONAL_MEANS |
& rA(i,j,1,1)*iceMask(i,j,1,1)*atm_oc_wgt(j) |
|
./pkg/atm2d/calc_zonal_means.F |
82 |
CALC_ZONAL_MEANS |
& oFluxCO2(i,j)*rA(i,j,1,1)*atm_oc_wgt(j) |
|
./pkg/atm2d/calc_zonal_means.F |
85 |
CALC_ZONAL_MEANS |
& *rA(i,j,1,1)*iceMask(i,j,1,1)*atm_oc_wgt(j) |
|
./pkg/atm2d/calc_zonal_means.F |
87 |
CALC_ZONAL_MEANS |
& *rA(i,j,1,1)*iceMask(i,j,1,1)*atm_oc_wgt(j) |
|
./pkg/atm2d/calc_zonal_means.F |
90 |
CALC_ZONAL_MEANS |
& *rA(i,j,1,1)*iceMask(i,j,1,1)*atm_oc_wgt(j) |
|
./pkg/atm2d/calc_zonal_means.F |
97 |
CALC_ZONAL_MEANS |
& sstFromOcn(i,j) * rA(i,j,1,1) * |
|
./pkg/atm2d/init_atm2d.F |
160 |
INIT_ATM2D |
& rA(i,j,1,1)*atm_oc_wgt(j) |
|
./pkg/atm2d/init_atm2d.F |
163 |
INIT_ATM2D |
& rA(i,j,1,1)*(1.d0-atm_oc_wgt(j)) |
|
./pkg/atm2d/sum_yr_end_diags.F |
41 |
SUM_YR_END_DIAGS |
& iceArea = iceArea + rA(i,j,1,1)*iceMask(i,j,1,1) |
|
./pkg/atm2d/sum_yr_end_diags.F |
51 |
SUM_YR_END_DIAGS |
& iceArea = iceArea + rA(i,j,1,1)*iceMask(i,j,1,1) |
|
./pkg/atm2d/sum_yr_end_diags.F |
61 |
SUM_YR_END_DIAGS |
sst_tave= sst_tave + rA(i,j,1,1)*sstFromOcn(i,j) |
|
./pkg/atm2d/sum_yr_end_diags.F |
62 |
SUM_YR_END_DIAGS |
sss_tave= sss_tave + rA(i,j,1,1)*sssFromOcn(i,j) |
|
./pkg/atm2d/sum_yr_end_diags.F |
63 |
SUM_YR_END_DIAGS |
HF2ocn_tave = HF2ocn_tave + rA(i,j,1,1)*pass_qnet(i,j) |
|
./pkg/atm2d/sum_yr_end_diags.F |
64 |
SUM_YR_END_DIAGS |
FW2ocn_tave = FW2ocn_tave + rA(i,j,1,1)* |
|
./pkg/atm2d/sum_yr_end_diags.F |
67 |
SUM_YR_END_DIAGS |
CO2flx_tave = CO2flx_tave + rA(i,j,1,1)*oFluxCO2(i,j) |
|
./pkg/bbl/bbl_calc_rhs.F |
193 |
BBL_CALC_RHS |
dVol = min ( bblEta_d * rA(i,d,bi,bj) / 2. _d 0, |
|
./pkg/bbl/bbl_calc_rhs.F |
194 |
BBL_CALC_RHS |
& resThk_r * rA(i,r,bi,bj) / 2. _d 0, |
|
./pkg/bbl/bbl_calc_rhs.F |
200 |
BBL_CALC_RHS |
& bbl_tend / rA(i,d,bi,bj) / thk_d |
|
./pkg/bbl/bbl_calc_rhs.F |
202 |
BBL_CALC_RHS |
& bbl_tend / rA(i,r,bi,bj) / thk_r |
|
./pkg/bbl/bbl_calc_rhs.F |
207 |
BBL_CALC_RHS |
& bbl_tend / rA(i,d,bi,bj) / thk_d |
|
./pkg/bbl/bbl_calc_rhs.F |
209 |
BBL_CALC_RHS |
& bbl_tend / rA(i,r,bi,bj) / thk_r |
|
./pkg/bbl/bbl_calc_rhs.F |
212 |
BBL_CALC_RHS |
bbl_eta(i,d,bi,bj) = bblEta_d - dVol / rA(i,d,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
218 |
BBL_CALC_RHS |
bbl_eta(i,r,bi,bj) = bblEta_r + dVol / rA(i,r,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
220 |
BBL_CALC_RHS |
& bblEta_r * rA(i,r,bi,bj) * bblTheta_r ) / |
|
./pkg/bbl/bbl_calc_rhs.F |
221 |
BBL_CALC_RHS |
& ( bbl_eta(i,r,bi,bj) * rA(i,r,bi,bj) ) |
|
./pkg/bbl/bbl_calc_rhs.F |
223 |
BBL_CALC_RHS |
& bblEta_r * rA(i,r,bi,bj) * bblSalt_r ) / |
|
./pkg/bbl/bbl_calc_rhs.F |
224 |
BBL_CALC_RHS |
& ( bbl_eta(i,r,bi,bj) * rA(i,r,bi,bj) ) |
|
./pkg/bbl/bbl_calc_rhs.F |
295 |
BBL_CALC_RHS |
dVol = min ( bblEta_d * rA(i,d,bi,bj) / 2. _d 0, |
|
./pkg/bbl/bbl_calc_rhs.F |
296 |
BBL_CALC_RHS |
& resThk_r * rA(i,r,bi,bj) / 2. _d 0, |
|
./pkg/bbl/bbl_calc_rhs.F |
302 |
BBL_CALC_RHS |
& bbl_tend / rA(i,d,bi,bj) / thk_d |
|
./pkg/bbl/bbl_calc_rhs.F |
304 |
BBL_CALC_RHS |
& bbl_tend / rA(i,r,bi,bj) / thk_r |
|
./pkg/bbl/bbl_calc_rhs.F |
309 |
BBL_CALC_RHS |
& bbl_tend / rA(i,d,bi,bj) / thk_d |
|
./pkg/bbl/bbl_calc_rhs.F |
311 |
BBL_CALC_RHS |
& bbl_tend / rA(i,r,bi,bj) / thk_r |
|
./pkg/bbl/bbl_calc_rhs.F |
314 |
BBL_CALC_RHS |
bbl_eta(i,d,bi,bj) = bblEta_d - dVol / rA(i,d,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
320 |
BBL_CALC_RHS |
bbl_eta(i,r,bi,bj) = bblEta_r + dVol / rA(i,r,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
322 |
BBL_CALC_RHS |
& bblEta_r * rA(i,r,bi,bj) * bblTheta_r ) / |
|
./pkg/bbl/bbl_calc_rhs.F |
323 |
BBL_CALC_RHS |
& ( bbl_eta(i,r,bi,bj) * rA(i,r,bi,bj) ) |
|
./pkg/bbl/bbl_calc_rhs.F |
325 |
BBL_CALC_RHS |
& bblEta_r * rA(i,r,bi,bj) * bblSalt_r ) / |
|
./pkg/bbl/bbl_calc_rhs.F |
326 |
BBL_CALC_RHS |
& ( bbl_eta(i,r,bi,bj) * rA(i,r,bi,bj) ) |
|
./pkg/bbl/bbl_calc_rhs.F |
398 |
BBL_CALC_RHS |
dVol = min ( bblEta_d * rA(d,j,bi,bj) / 2. _d 0, |
|
./pkg/bbl/bbl_calc_rhs.F |
399 |
BBL_CALC_RHS |
& resThk_r * rA(r,j,bi,bj) / 2. _d 0, |
|
./pkg/bbl/bbl_calc_rhs.F |
405 |
BBL_CALC_RHS |
& bbl_tend / rA(d,j,bi,bj) / thk_d |
|
./pkg/bbl/bbl_calc_rhs.F |
407 |
BBL_CALC_RHS |
& bbl_tend / rA(r,j,bi,bj) / thk_r |
|
./pkg/bbl/bbl_calc_rhs.F |
412 |
BBL_CALC_RHS |
& bbl_tend / rA(d,j,bi,bj) / thk_d |
|
./pkg/bbl/bbl_calc_rhs.F |
414 |
BBL_CALC_RHS |
& bbl_tend / rA(r,j,bi,bj) / thk_r |
|
./pkg/bbl/bbl_calc_rhs.F |
417 |
BBL_CALC_RHS |
bbl_eta(d,j,bi,bj) = bblEta_d - dVol / rA(d,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
423 |
BBL_CALC_RHS |
bbl_eta(r,j,bi,bj) = bblEta_r + dVol / rA(r,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
425 |
BBL_CALC_RHS |
& bblEta_r * rA(r,j,bi,bj) * bblTheta_r ) / |
|
./pkg/bbl/bbl_calc_rhs.F |
426 |
BBL_CALC_RHS |
& ( bbl_eta(r,j,bi,bj) * rA(r,j,bi,bj) ) |
|
./pkg/bbl/bbl_calc_rhs.F |
428 |
BBL_CALC_RHS |
& bblEta_r * rA(r,j,bi,bj) * bblSalt_r ) / |
|
./pkg/bbl/bbl_calc_rhs.F |
429 |
BBL_CALC_RHS |
& ( bbl_eta(r,j,bi,bj) * rA(r,j,bi,bj) ) |
|
./pkg/bbl/bbl_calc_rhs.F |
500 |
BBL_CALC_RHS |
dVol = min ( bblEta_d * rA(d,j,bi,bj) / 2. _d 0, |
|
./pkg/bbl/bbl_calc_rhs.F |
501 |
BBL_CALC_RHS |
& resThk_r * rA(r,j,bi,bj) / 2. _d 0, |
|
./pkg/bbl/bbl_calc_rhs.F |
507 |
BBL_CALC_RHS |
& bbl_tend / rA(d,j,bi,bj) / thk_d |
|
./pkg/bbl/bbl_calc_rhs.F |
509 |
BBL_CALC_RHS |
& bbl_tend / rA(r,j,bi,bj) / thk_r |
|
./pkg/bbl/bbl_calc_rhs.F |
514 |
BBL_CALC_RHS |
& bbl_tend / rA(d,j,bi,bj) / thk_d |
|
./pkg/bbl/bbl_calc_rhs.F |
516 |
BBL_CALC_RHS |
& bbl_tend / rA(r,j,bi,bj) / thk_r |
|
./pkg/bbl/bbl_calc_rhs.F |
519 |
BBL_CALC_RHS |
bbl_eta(d,j,bi,bj) = bblEta_d - dVol / rA(d,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
525 |
BBL_CALC_RHS |
bbl_eta(r,j,bi,bj) = bblEta_r + dVol / rA(r,j,bi,bj) |
|
./pkg/bbl/bbl_calc_rhs.F |
527 |
BBL_CALC_RHS |
& bblEta_r * rA(r,j,bi,bj) * bblTheta_r ) / |
|
./pkg/bbl/bbl_calc_rhs.F |
528 |
BBL_CALC_RHS |
& ( bbl_eta(r,j,bi,bj) * rA(r,j,bi,bj) ) |
|
./pkg/bbl/bbl_calc_rhs.F |
530 |
BBL_CALC_RHS |
& bblEta_r * rA(r,j,bi,bj) * bblSalt_r ) / |
|
./pkg/bbl/bbl_calc_rhs.F |
531 |
BBL_CALC_RHS |
& ( bbl_eta(r,j,bi,bj) * rA(r,j,bi,bj) ) |
|
./pkg/cost/cost_tracer.F |
57 |
COST_TRACER |
& rA(i,j,bi,bj)*drF(k)*dTtracerLev(k) |
|
./pkg/ctrl/ctrl_map_gentim2d.F |
124 |
CTRL_MAP_GENTIM2D |
& maskC(i,j,1,bi,bj)*rA(i,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
161 |
DIAGNOSTICS_FILL_STATE |
& *(wVel(i-1,j,k,bi,bj)*rA(i-1,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
162 |
DIAGNOSTICS_FILL_STATE |
& +wVel( i ,j,k,bi,bj)*rA( i ,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
181 |
DIAGNOSTICS_FILL_STATE |
& *(wVel(i,j-1,k,bi,bj)*rA(i,j-1,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
182 |
DIAGNOSTICS_FILL_STATE |
& +wVel(i, j ,k,bi,bj)*rA(i, j ,bi,bj) |
|
./pkg/diagnostics/diagstats_local.F |
159 |
DIAGSTATS_LOCAL |
I hFacC(1-OLx,1-OLy,k,bi,bj), rA(1-OLx,1-OLy,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
173 |
DIAGSTATS_LOCAL |
I maskInC(1-OLx,1-OLy,bi,bj), rA(1-OLx,1-OLy,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
186 |
DIAGSTATS_LOCAL |
I rA(1-OLx,1-OLy,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
225 |
DIAGSTATS_LOCAL |
I maskInC(1-OLx,1-OLy,bi,bj), rA(1-OLx,1-OLy,bi,bj), |
|
./pkg/dic/dic_atmos.F |
107 |
DIC_ATMOS |
& + fluxCO2(i,j,bi,bj)*rA(i,j,bi,bj) |
|
./pkg/dic/dic_atmos.F |
119 |
DIC_ATMOS |
& ) * rA(i,j,bi,bj) |
|
./pkg/dic/dic_cost.F |
51 |
DIC_COST |
& + FluxCO2(i,j,bi,bj)*rA(i,j,bi,bj) |
|
./pkg/dic/dic_ini_atmos.F |
116 |
DIC_INI_ATMOS |
& ) * rA(i,j,bi,bj) |
|
./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/ecco_check.F |
68 |
ECCO_CHECK |
& hFacC(i,j,k,bi,bj)*drF(k)*rA(i,j,bi,bj) |