| File |
Line number |
Procedure |
Code |
|
./pkg/generic_advdiff/gad_advection.F |
760 |
GAD_ADVECTION |
rTrans(i,j) = wVel(i,j,k,bi,bj)*rA(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
196 |
GAD_IMPLICIT_R |
rTrans(i,j) = wFld(i,j)*rA(i,j,bi,bj)*maskC(i,j,k-1,bi,bj) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
314 |
GAD_IMPLICIT_R |
& rA(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_som_advect.F |
266 |
GAD_SOM_ADVECT |
smVol(i,j,k) = rA(i,j,bi,bj)*deepFac2C(k) |
|
./pkg/generic_advdiff/gad_som_advect.F |
560 |
GAD_SOM_ADVECT |
rTrans(i,j) = wVel(i,j,k,bi,bj)*rA(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_som_advect.F |
573 |
GAD_SOM_ADVECT |
rTrans(i,j) = wVel(i,j,k,bi,bj)*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/longstep/longstep_thermodynamics.F |
348 |
LONGSTEP_THERMODYNAMICS |
rTrans(i,j) = wFld(i,j)*rA(i,j,bi,bj)*maskUp(i,j) |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
146 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RS_W('D',bfname(nf:nl),0,0,'rA',rA,myThid) |
|
./pkg/mom_common/mom_init_fixed.F |
91 |
MOM_INIT_FIXED |
L2_D(i,j,bi,bj) = rA(i,j,bi,bj) |
|
./pkg/mom_common/mom_u_implicit_r.F |
125 |
MOM_U_IMPLICIT_R |
& wVel( i ,j,k,bi,bj)*rA( i ,j,bi,bj) |
|
./pkg/mom_common/mom_u_implicit_r.F |
127 |
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 |
125 |
MOM_V_IMPLICIT_R |
& wVel(i, j ,k,bi,bj)*rA(i, j ,bi,bj) |
|
./pkg/mom_common/mom_v_implicit_r.F |
127 |
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 |
408 |
MOM_FLUXFORM |
& ( 0.5 _d 0*(rA(i,j,bi,bj)+rA(i-1,j,bi,bj)) ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
491 |
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)* |
|
./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) |
|
./model/src/calc_gw.F |
383 |
CALC_GW |
& *recip_drF(k)*rA(i,j,bi,bj) |
|
./model/src/calc_gw.F |
401 |
CALC_GW |
& *recip_drF(k-1)*rA(i,j,bi,bj) |
|
./model/src/calc_gw.F |
490 |
CALC_GW |
& )*rA(i,j,bi,bj) |
|
./model/src/calc_gw.F |
501 |
CALC_GW |
& *rA(i,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) |
|
./pkg/monitor/mon_ke.F |
104 |
MON_KE |
& + tmpWke*rA(i,j,bi,bj)*drF(k)*_hFacC(i,j,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
129 |
MON_KE |
& + tmpVal*rA(i,j,bi,bj)*deepFac2F(1) |
|
./pkg/monitor/mon_ke.F |
67 |
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 |
110 |
MON_SURFCOR |
& + rA(i,j,bi,bj)*wVel(i,j,ks,bi,bj)*tmpVal |
|
./pkg/monitor/mon_surfcor.F |
127 |
MON_SURFCOR |
& - ddPI*rA(i,j,bi,bj)*wVel(i,j,k,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
148 |
MON_SURFCOR |
tmpVol = rA(i,j,bi,bj)*h0FacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/monitor/mon_surfcor.F |
85 |
MON_SURFCOR |
tileArea(bi,bj) = tileArea(bi,bj) + rA(i,j,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
87 |
MON_SURFCOR |
& rA(i,j,bi,bj)*wVel(i,j,ks,bi,bj)*theta(i,j,ks,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
90 |
MON_SURFCOR |
& + rA(i,j,bi,bj)*wVel(i,j,ks,bi,bj)* salt(i,j,ks,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 |
109 |
MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor.F |
115 |
MONITOR |
& maskC, maskInC, rA , thickFacF, dummyRL, myThid ) |
|
./pkg/monitor/monitor.F |
117 |
MONITOR |
& hFacC, maskInC, rA , thickFacC, statsTemp, myThid ) |
|
./pkg/monitor/monitor.F |
119 |
MONITOR |
& hFacC, maskInC, rA , thickFacC, dummyRL, myThid ) |
|
./pkg/monitor/monitor.F |
126 |
MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor.F |
128 |
MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor.F |
135 |
MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor.F |
137 |
MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor.F |
139 |
MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_ad.F |
112 |
ADMONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_ad.F |
118 |
ADMONITOR |
& maskC, maskInC, rA , drC, dummyRL, myThid ) |
|
./pkg/monitor/monitor_ad.F |
120 |
ADMONITOR |
& hFacC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_ad.F |
122 |
ADMONITOR |
& hFacC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_ad.F |
128 |
ADMONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_ad.F |
130 |
ADMONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_ad.F |
137 |
ADMONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_ad.F |
140 |
ADMONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_ad.F |
143 |
ADMONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_g.F |
113 |
G_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_g.F |
119 |
G_MONITOR |
& maskC, maskInC, rA , drC, dummyRL, myThid ) |
|
./pkg/monitor/monitor_g.F |
121 |
G_MONITOR |
& hFacC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_g.F |
123 |
G_MONITOR |
& hFacC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_g.F |
129 |
G_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_g.F |
131 |
G_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_g.F |
138 |
G_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_g.F |
141 |
G_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/monitor/monitor_g.F |
144 |
G_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./model/src/calc_r_star.F |
110 |
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 |
111 |
CALC_R_STAR |
& +etaFld(i,j,bi,bj)*rA(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
124 |
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 |
125 |
CALC_R_STAR |
& +etaFld(i,j,bi,bj)*rA(i,j,bi,bj) |
|
./model/src/calc_surf_dr.F |
106 |
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) |
|
./model/src/cg3d.F |
195 |
CG3D |
& *rA(i,j,bi,bj)*deepFac2F(ks) |
|
./model/src/cg3d.F |
385 |
CG3D |
& *rA(i,j,bi,bj)*deepFac2F(ks) |
|
./model/src/config_summary.F |
727 |
CONFIG_SUMMARY |
CALL WRITE_XY_XLINE_RS( rA , coordLine, tileLine, 'rA ', |
|
./model/src/config_summary.F |
729 |
CONFIG_SUMMARY |
CALL WRITE_XY_YLINE_RS( rA , coordLine, tileLine, 'rA ', |
|
./pkg/ptracers/ptracers_monitor.F |
116 |
PTRACERS_MONITOR |
& hFacC, maskInC, rA ,drF, dummyRL, myThid ) |
|
./pkg/sbo/sbo_calc.F |
301 |
SBO_CALC |
sbobp = sbobp + obp(i,j,bi,bj)*rA(i,j,bi,bj) |
|
./model/src/do_oceanic_phys.F |
326 |
DO_OCEANIC_PHYS |
& CALL REMOVE_MEAN_RS( 1, EmPmR, maskInC, maskInC, rA, drF, |
|
./model/src/do_oceanic_phys.F |
329 |
DO_OCEANIC_PHYS |
& CALL REMOVE_MEAN_RS( 1, Qnet, maskInC, maskInC, rA, drF, |
|
./pkg/seaice/cost_ice_test.F |
101 |
COST_ICE_TEST |
& tempVar * rA(i,j,bi,bj) * HEFF(i,j,bi,bj) |
|
./pkg/seaice/cost_ice_test.F |
114 |
COST_ICE_TEST |
& tempVar * rA(i,j,bi,bj) * AREA(i,j,bi,bj) |
|
./pkg/seaice/cost_ice_test.F |
148 |
COST_ICE_TEST |
& tempVar * rA(i,j,bi,bj) * ( |
|
./pkg/seaice/cost_ice_test.F |
164 |
COST_ICE_TEST |
& tempVar * rA(i,j,bi,bj) * ( |
|
./pkg/seaice/cost_ice_test.F |
179 |
COST_ICE_TEST |
& tempVar * rA(i,j,bi,bj) * ( |
|
./pkg/seaice/seaice_monitor.F |
116 |
SEAICE_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/seaice/seaice_monitor.F |
118 |
SEAICE_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/seaice/seaice_monitor.F |
120 |
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 |
127 |
SEAICE_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, 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) |
|
./pkg/smooth/smooth_rhs.F |
303 |
SMOOTH_RHS |
& - rA(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
219 |
THSICE_ADVDIFF |
iceVol(i,j) = iceMask(i,j,bi,bj)*rA(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
236 |
THSICE_ADVDIFF |
iceVol(i,j) = iceMask(i,j,bi,bj)*rA(i,j,bi,bj) |
|
./pkg/thsice/thsice_advdiff.F |
260 |
THSICE_ADVDIFF |
tmpVar = ABS(iceVol(i,j)-iceFrc(i,j)*rA(i,j,bi,bj)) |
|
./pkg/thsice/thsice_advdiff.F |
269 |
THSICE_ADVDIFF |
& iceVol(i,j),iceFrc(i,j)*rA(i,j,bi,bj), |
|
./pkg/thsice/thsice_advdiff.F |
371 |
THSICE_ADVDIFF |
& -iceHeight(i,j,bi,bj)*iceFrc(i,j)*rA(i,j,bi,bj)) |
|
./pkg/thsice/thsice_advdiff.F |
380 |
THSICE_ADVDIFF |
& iceVol(i,j),iceHeight(i,j,bi,bj)*iceFrc(i,j)*rA(i,j,bi,bj), |
|
./pkg/thsice/thsice_monitor.F |
131 |
THSICE_MONITOR |
I iceHeight, locMask, maskInC, rA, yC, locDr, |
|
./pkg/thsice/thsice_monitor.F |
153 |
THSICE_MONITOR |
I snowHeight, locMask, maskInC, rA, yC, locDr, |
|
./pkg/thsice/thsice_monitor.F |
172 |
THSICE_MONITOR |
I Tsrf, locMask, maskInC, rA, yC, locDr, |
|
./pkg/thsice/thsice_monitor.F |
204 |
THSICE_MONITOR |
I Tice1, locMask, maskInC, rA, yC, locDr, |
|
./pkg/thsice/thsice_monitor.F |
229 |
THSICE_MONITOR |
I Tice2, locMask, maskInC, rA, yC, locDr, |
|
./pkg/thsice/thsice_monitor.F |
248 |
THSICE_MONITOR |
I 1, Qice1, locMask, maskInC, rA, locDr, |
|
./pkg/thsice/thsice_monitor.F |
252 |
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/impldiff.F |
336 |
IMPLDIFF |
& -rA(i,j,bi,bj)*deepFac2F(k)*rhoFacF(k) |
|
./model/src/ini_cartesian_grid.F |
212 |
INI_CARTESIAN_GRID |
rA (i,j,bi,bj) = dxF(i,j,bi,bj)*dyF(i,j,bi,bj) |
|
./model/src/ini_cg2d.F |
221 |
INI_CG2D |
& *rA(i,j,bi,bj)/deltaTMom/deltaTfreesurf |
|
./model/src/ini_cg3d.F |
254 |
INI_CG3D |
& *rA(i,j,bi,bj)*deepFac2F(ks)/deltaTMom/deltaTfreesurf |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
194 |
GAD_IMPLICIT_R |
rTrans(i,j) = wFld(i,j)*rA(i,j,bi,bj)v*maskC(i,j,k-1,bi,bj) |
|
./verification/OpenAD/code_oad_all/gad_implicit_r.F |
312 |
GAD_IMPLICIT_R |
& rA(i,j,bi,bj)v |
|
./model/src/ini_curvilinear_grid.F |
118 |
INI_CURVILINEAR_GRID |
CALL READ_REC_3D_RS( 'RA.bin' , fp, 1, rA, 1, 0, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
119 |
INI_CURVILINEAR_GRID |
_EXCH_XY_RS(rA,myThid ) |
|
./model/src/ini_curvilinear_grid.F |
258 |
INI_CURVILINEAR_GRID |
CALL MNC_CW_RS_R('D',mncFn,0,0,'rA', rA, myThid) |
|
./model/src/ini_curvilinear_grid.F |
324 |
INI_CURVILINEAR_GRID |
CALL MDS_FACEF_READ_RS( fName, fp, 5, rA, bi, bj, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
395 |
INI_CURVILINEAR_GRID |
CALL EXCH_XY_RS(rA,myThid ) |
|
./model/src/ini_curvilinear_grid.F |
441 |
INI_CURVILINEAR_GRID |
CALL PLOT_FIELD_XYRS( rA , 'Current rA ', 0, myThid ) |
|
./model/src/ini_curvilinear_grid.F |
82 |
INI_CURVILINEAR_GRID |
rA(i,j,bi,bj)=0. |
|
./model/src/ini_cylinder_grid.F |
222 |
INI_CYLINDER_GRID |
rA (i,j,bi,bj) = dxF(i,j,bi,bj)*dyF(i,j,bi,bj) |
|
./model/src/ini_grid.F |
134 |
INI_GRID |
CALL MON_PRINTSTATS_RS(1,rA,'RA',myThid) |
|
./model/src/ini_linear_phisurf.F |
90 |
INI_LINEAR_PHISURF |
& + rA(i,j,bi,bj)*maskInC(i,j,bi,bj) |
|
./model/src/ini_masks_etc.F |
71 |
INI_MASKS_ETC |
IF ( rA (i,j,bi,bj) .NE. 0. ) |
|
./model/src/ini_masks_etc.F |
72 |
INI_MASKS_ETC |
& recip_rA (i,j,bi,bj) = 1. _d 0/rA (i,j,bi,bj) |
|
./model/src/ini_spherical_polar_grid.F |
260 |
INI_SPHERICAL_POLAR_GRID |
rA(i,j,bi,bj) = rSphere*rSphere*dlon*deg2rad |
|
./model/src/ini_spherical_polar_grid.F |
265 |
INI_SPHERICAL_POLAR_GRID |
rA(i,j,bi,bj) = dyF(i,j,bi,bj) |
|
./model/src/ini_spherical_polar_grid.F |
275 |
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/tutorial_global_oce_biogeo/code_ad/cost_tracer.F |
57 |
COST_TRACER |
& rA(i,j,bi,bj)*drF(k) |
|
./model/src/solve_for_pressure.F |
148 |
SOLVE_FOR_PRESSURE |
& + rA(i,j,bi,bj)*EmPmR(i,j,bi,bj) |
|
./model/src/thermodynamics.F |
519 |
THERMODYNAMICS |
rTrans(i,j) = wFld(i,j)*rA(i,j,bi,bj)*maskUp(i,j) |
|
./model/src/update_cg2d.F |
130 |
UPDATE_CG2D |
& *rA(I,J,bi,bj)/deltaTMom/deltaTfreesurf |
|
./model/src/update_cg2d.F |
141 |
UPDATE_CG2D |
& *rA(I,J,bi,bj)/deltaTMom/deltaTfreesurf |
|
./model/src/write_grid.F |
172 |
WRITE_GRID |
CALL MNC_CW_RS_W('D',bfname,0,0,'rA',rA,myThid) |
|
./model/src/write_grid.F |
84 |
WRITE_GRID |
CALL WRITE_FLD_XY_RS( 'RAC',' ',rA,-1,myThid) |
|
./pkg/aim_v23/aim_do_co2.F |
90 |
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/cost/cost_tracer.F |
57 |
COST_TRACER |
& rA(i,j,bi,bj)*drF(k)*dTtracerLev(k) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
155 |
DIAGNOSTICS_FILL_STATE |
& *(wVel(i-1,j,K,bi,bj)*rA(i-1,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
156 |
DIAGNOSTICS_FILL_STATE |
& +wVel( i ,j,K,bi,bj)*rA( i ,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
175 |
DIAGNOSTICS_FILL_STATE |
& *(wVel(i,j-1,K,bi,bj)*rA(i,j-1,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
176 |
DIAGNOSTICS_FILL_STATE |
& +wVel(i, j ,K,bi,bj)*rA(i, j ,bi,bj) |
|
./pkg/diagnostics/diagstats_local.F |
151 |
DIAGSTATS_LOCAL |
I hFacC(1-Olx,1-Oly,k,bi,bj), rA(1-Olx,1-Oly,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
165 |
DIAGSTATS_LOCAL |
I maskInC(1-Olx,1-Oly,bi,bj), rA(1-Olx,1-Oly,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
178 |
DIAGSTATS_LOCAL |
I rA(1-Olx,1-Oly,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
217 |
DIAGSTATS_LOCAL |
I maskInC(1-Olx,1-Oly,bi,bj), rA(1-Olx,1-Oly,bi,bj), |
|
./pkg/dic/dic_atmos.F |
143 |
DIC_ATMOS |
& + FluxCO2(i,j,bi,bj)*rA(i,j,bi,bj) |
|
./pkg/dic/dic_atmos.F |
156 |
DIC_ATMOS |
& ) * rA(i,j,bi,bj) |
|
./pkg/dic/dic_aver_init.F |
151 |
DIC_AVER_INIT |
& rA(i,j,bi,bj)*drF(k)*maskC(i,j,k,bi,bj) |
|
./pkg/dic/dic_aver_init.F |
153 |
DIC_AVER_INIT |
& *rA(i,j,bi,bj)*drF(k)*maskC(i,j,k,bi,bj) |
|
./pkg/dic/dic_aver_init.F |
155 |
DIC_AVER_INIT |
& *rA(i,j,bi,bj)*drF(k)*maskC(i,j,k,bi,bj) |
|
./pkg/dic/dic_aver_init.F |
161 |
DIC_AVER_INIT |
& *rA(i,j,bi,bj)*drF(1)*maskC(i,j,1,bi,bj) |
|
./pkg/dic/dic_aver_init.F |
164 |
DIC_AVER_INIT |
& *rA(i,j,bi,bj)*drF(2)*maskC(i,j,2,bi,bj) |
|
./pkg/dic/dic_aver_init.F |
167 |
DIC_AVER_INIT |
& *rA(i,j,bi,bj)*drF(3)*maskC(i,j,3,bi,bj) |
|
./pkg/dic/dic_aver_init.F |
173 |
DIC_AVER_INIT |
& *rA(i,j,bi,bj)*drF(1)*maskC(i,j,1,bi,bj) |
|
./pkg/dic/dic_aver_init.F |
176 |
DIC_AVER_INIT |
& *rA(i,j,bi,bj)*drF(2)*maskC(i,j,2,bi,bj) |
|
./pkg/dic/dic_aver_init.F |
179 |
DIC_AVER_INIT |
& *rA(i,j,bi,bj)*drF(3)*maskC(i,j,3,bi,bj) |
|
./pkg/dic/dic_cost.F |
46 |
DIC_COST |
tmpcost = tmpcost+FluxCO2(i,j,bi,bj)*rA(i,j,bi,bj)* |
|
./pkg/dic/tracer_meanarea.F |
45 |
TRACER_MEANAREA |
& tracer(i,j,kLev,bi,bj)*rA(i,j,bi,bj)* |
|
./model/inc/GRID.h |
421 |
NO PROCEDURE |
& xC,yC,rA,rAw,rAs,rAz,xG,yG, |
|
./model/inc/GRID.h |
464 |
NO PROCEDURE |
_RS rA (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./pkg/exf/exf_monitor.F |
108 |
EXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor.F |
110 |
EXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor.F |
113 |
EXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor.F |
115 |
EXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor.F |
118 |
EXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor.F |
120 |
EXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor.F |
123 |
EXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor.F |
126 |
EXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor.F |
128 |
EXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor.F |
130 |
EXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor.F |
132 |
EXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor.F |
134 |
EXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor.F |
138 |
EXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor.F |
142 |
EXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |
|
./pkg/exf/exf_monitor.F |
146 |
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 |
168 |
EXF_MONITOR |
& maskInC, maskInC, rA , drF, dummyRL, myThid ) |