| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_monitor.F |
109 |
EXF_MONITOR |
& maskH,maskH,rA ,drF,myThid) |
|
./pkg/exf/exf_monitor.F |
111 |
EXF_MONITOR |
& maskH,maskH,rA ,drF,myThid) |
|
./pkg/exf/exf_monitor.F |
114 |
EXF_MONITOR |
& maskH,maskH,rA ,drF,myThid) |
|
./pkg/exf/exf_monitor.F |
116 |
EXF_MONITOR |
& maskH,maskH,rA ,drF,myThid) |
|
./pkg/exf/exf_monitor.F |
119 |
EXF_MONITOR |
& maskH,maskH,rA ,drF,myThid) |
|
./pkg/exf/exf_monitor.F |
122 |
EXF_MONITOR |
& maskH,maskH,rA ,drF,myThid) |
|
./pkg/exf/exf_monitor.F |
124 |
EXF_MONITOR |
& maskH,maskH,rA ,drF,myThid) |
|
./pkg/exf/exf_monitor.F |
126 |
EXF_MONITOR |
& maskH,maskH,rA ,drF,myThid) |
|
./pkg/exf/exf_monitor.F |
128 |
EXF_MONITOR |
& maskH,maskH,rA ,drF,myThid) |
|
./pkg/exf/exf_monitor.F |
130 |
EXF_MONITOR |
& maskH,maskH,rA ,drF,myThid) |
|
./pkg/exf/exf_monitor.F |
134 |
EXF_MONITOR |
& maskH,maskH,rA ,drF,myThid) |
|
./pkg/exf/exf_monitor.F |
138 |
EXF_MONITOR |
& maskH,maskH,rA ,drF,myThid) |
|
./pkg/exf/exf_monitor.F |
142 |
EXF_MONITOR |
& maskH,maskH,rA ,drF,myThid) |
|
./pkg/exf/exf_monitor.F |
144 |
EXF_MONITOR |
& maskH,maskH,rA ,drF,myThid) |
|
./pkg/exf/exf_monitor.F |
148 |
EXF_MONITOR |
& maskH,maskH,rA ,drF,myThid) |
|
./pkg/exf/exf_monitor.F |
152 |
EXF_MONITOR |
& maskH,maskH,rA ,drF,myThid) |
|
./pkg/exf/exf_monitor.F |
156 |
EXF_MONITOR |
& maskH,maskH,rA ,drF,myThid) |
|
./pkg/exf/exf_monitor.F |
160 |
EXF_MONITOR |
& maskH,maskH,rA ,drF,myThid) |
|
./pkg/ptracers/ptracers_monitor.F |
107 |
PTRACERS_MONITOR |
& suff, maskC,hFacC,rA ,drF,myThid) |
|
./pkg/diagnostics/diagstats_local.F |
145 |
DIAGSTATS_LOCAL |
I hFacC(1-Olx,1-Oly,k,bi,bj), rA(1-Olx,1-Oly,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
159 |
DIAGSTATS_LOCAL |
I maskH(1-Olx,1-Oly,bi,bj), rA(1-Olx,1-Oly,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
172 |
DIAGSTATS_LOCAL |
I rA(1-Olx,1-Oly,bi,bj), |
|
./pkg/diagnostics/diagstats_local.F |
213 |
DIAGSTATS_LOCAL |
I maskH(1-Olx,1-Oly,bi,bj), rA(1-Olx,1-Oly,bi,bj), |
|
./pkg/diagnostics/diagnostics_fill_state.F |
143 |
DIAGNOSTICS_FILL_STATE |
& *(wVel(i-1,j,K,bi,bj)*rA(i-1,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
144 |
DIAGNOSTICS_FILL_STATE |
& +wVel( i ,j,K,bi,bj)*rA( i ,j,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
163 |
DIAGNOSTICS_FILL_STATE |
& *(wVel(i,j-1,K,bi,bj)*rA(i,j-1,bi,bj) |
|
./pkg/diagnostics/diagnostics_fill_state.F |
164 |
DIAGNOSTICS_FILL_STATE |
& +wVel(i, j ,K,bi,bj)*rA(i, j ,bi,bj) |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
93 |
MOM_U_ADV_WU |
& wFld(i, j ,k,bi,bj)*rA(i, j ,bi,bj)* |
|
./pkg/mom_fluxform/mom_u_adv_wu.F |
95 |
MOM_U_ADV_WU |
& +wFld(i-1,j,k,bi,bj)*rA(i-1,j,bi,bj)* |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
94 |
MOM_V_ADV_WV |
& wFld(i, j ,k,bi,bj)*rA(i, j ,bi,bj)* |
|
./pkg/mom_fluxform/mom_v_adv_wv.F |
96 |
MOM_V_ADV_WV |
& +wFld(i,j-1,k,bi,bj)*rA(i,j-1,bi,bj)* |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
101 |
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 |
102 |
MOM_CALC_RTRANS |
& +wVel(i, j ,k,bi,bj)*rA(i, j ,bi,bj) ) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
118 |
MOM_CALC_RTRANS |
& *rA(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
136 |
MOM_CALC_RTRANS |
& *rA(i,j,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
76 |
MOM_CALC_RTRANS |
& 0.5 _d 0*( PmEpR( i ,j,bi,bj)*rA( i ,j,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
77 |
MOM_CALC_RTRANS |
& +PmEpR(i-1,j,bi,bj)*rA(i-1,j,bi,bj) ) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
79 |
MOM_CALC_RTRANS |
& 0.5 _d 0*( PmEpR(i, j ,bi,bj)*rA(i, j ,bi,bj) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
80 |
MOM_CALC_RTRANS |
& +PmEpR(i,j-1,bi,bj)*rA(i,j-1,bi,bj) ) |
|
./pkg/mom_fluxform/mom_calc_rtrans.F |
98 |
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 |
99 |
MOM_CALC_RTRANS |
& +wVel( i ,j,k,bi,bj)*rA( i ,j,bi,bj) ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
376 |
MOM_FLUXFORM |
& ( 0.5 _d 0*(rA(i,j,bi,bj)+rA(i-1,j,bi,bj)) ) |
|
./pkg/mom_fluxform/mom_fluxform.F |
458 |
MOM_FLUXFORM |
& ( 0.5 _d 0*(rA(i,j,bi,bj)+rA(i-1,j,bi,bj)) ) |
|
./model/src/ini_cg2d.F |
213 |
INI_CG2D |
& rA(I,J,bi,bj)/deltaTMom/deltaTfreesurf |
|
./model/src/ini_cg2d.F |
219 |
INI_CG2D |
& rA(I,J-1,bi,bj)/deltaTMom/deltaTfreesurf |
|
./model/src/ini_cg2d.F |
225 |
INI_CG2D |
& rA(I-1,J,bi,bj)/deltaTMom/deltaTfreesurf |
|
./model/src/ini_cg3d.F |
238 |
INI_CG3D |
& *rA(I,J,bi,bj)/deltaTMom/deltaTfreesurf |
|
./pkg/mnc/mnc_cw_write_grid_info.F |
150 |
MNC_CW_WRITE_GRID_INFO |
CALL MNC_CW_RL_W('D',bfname(nf:nl),0,0,'rA',rA,myThid) |
|
./pkg/dic/dic_aver_init.F |
167 |
DIC_AVER_INIT |
& rA(i,j,bi,bj)*drF(k)*maskC(i,j,k,bi,bj) |
|
./pkg/dic/dic_aver_init.F |
169 |
DIC_AVER_INIT |
& *rA(i,j,bi,bj)*drF(k)*maskC(i,j,k,bi,bj) |
|
./pkg/dic/dic_aver_init.F |
171 |
DIC_AVER_INIT |
& *rA(i,j,bi,bj)*drF(k)*maskC(i,j,k,bi,bj) |
|
./pkg/dic/dic_aver_init.F |
177 |
DIC_AVER_INIT |
& *rA(i,j,bi,bj)*drF(1)*maskC(i,j,1,bi,bj) |
|
./pkg/dic/dic_aver_init.F |
180 |
DIC_AVER_INIT |
& *rA(i,j,bi,bj)*drF(2)*maskC(i,j,2,bi,bj) |
|
./pkg/dic/dic_aver_init.F |
183 |
DIC_AVER_INIT |
& *rA(i,j,bi,bj)*drF(3)*maskC(i,j,3,bi,bj) |
|
./pkg/dic/dic_aver_init.F |
189 |
DIC_AVER_INIT |
& *rA(i,j,bi,bj)*drF(1)*maskC(i,j,1,bi,bj) |
|
./pkg/dic/dic_aver_init.F |
192 |
DIC_AVER_INIT |
& *rA(i,j,bi,bj)*drF(2)*maskC(i,j,2,bi,bj) |
|
./pkg/dic/dic_aver_init.F |
195 |
DIC_AVER_INIT |
& *rA(i,j,bi,bj)*drF(3)*maskC(i,j,3,bi,bj) |
|
./pkg/dic/tracer_meanarea.F |
44 |
TRACER_MEANAREA |
& rA(i,j,bi,bj)*maskC(i,j,kLev,bi,bj) |
|
./pkg/dic/tracer_meanarea.F |
46 |
TRACER_MEANAREA |
& tracer(i,j,kLev,bi,bj)*rA(i,j,bi,bj)* |
|
./pkg/dic/dic_cost.F |
101 |
DIC_COST |
& *rA(i,j,bi,bj)*drF(1)*maskC(i,j,1,bi,bj) + |
|
./pkg/dic/dic_cost.F |
104 |
DIC_COST |
& *rA(i,j,bi,bj)*drF(2)*maskC(i,j,2,bi,bj) + |
|
./pkg/dic/dic_cost.F |
107 |
DIC_COST |
& *rA(i,j,bi,bj)*drF(3)*maskC(i,j,3,bi,bj) |
|
./pkg/dic/dic_cost.F |
69 |
DIC_COST |
& rA(i,j,bi,bj)*drF(k)*maskC(i,j,k,bi,bj) |
|
./pkg/dic/dic_cost.F |
73 |
DIC_COST |
& *rA(i,j,bi,bj)*drF(k)*maskC(i,j,k,bi,bj) |
|
./pkg/dic/dic_cost.F |
77 |
DIC_COST |
& *rA(i,j,bi,bj)*drF(k)*maskC(i,j,k,bi,bj) |
|
./pkg/dic/dic_cost.F |
82 |
DIC_COST |
& rA(i,j,bi,bj)*drF(k)*maskC(i,j,k,bi,bj) |
|
./pkg/dic/dic_cost.F |
88 |
DIC_COST |
& *rA(i,j,bi,bj)*drF(1)*maskC(i,j,1,bi,bj) + |
|
./pkg/dic/dic_cost.F |
91 |
DIC_COST |
& *rA(i,j,bi,bj)*drF(2)*maskC(i,j,2,bi,bj) + |
|
./pkg/dic/dic_cost.F |
94 |
DIC_COST |
& *rA(i,j,bi,bj)*drF(3)*maskC(i,j,3,bi,bj) |
|
./model/src/update_cg2d.F |
125 |
UPDATE_CG2D |
& rA(I,J,bi,bj)/deltaTMom/deltaTfreesurf |
|
./model/src/ini_masks_etc.F |
216 |
INI_MASKS_ETC |
tileArea = tileArea + rA(i,j,bi,bj)*maskH(i,j,bi,bj) |
|
./model/src/ini_masks_etc.F |
348 |
INI_MASKS_ETC |
IF ( rA(I,J,bi,bj) .NE. 0. ) |
|
./model/src/ini_masks_etc.F |
349 |
INI_MASKS_ETC |
& recip_rA(I,J,bi,bj)=1.d0/rA(I,J,bi,bj) |
|
./model/src/write_grid.F |
149 |
WRITE_GRID |
CALL MNC_CW_RL_W('D',bfname,0,0,'rA',rA,myThid) |
|
./model/src/write_grid.F |
81 |
WRITE_GRID |
CALL WRITE_FLD_XY_RS( 'RAC',' ',rA,-1,myThid) |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F |
333 |
INI_MASKS_ETC |
IF ( rA(I,J,bi,bj) .NE. 0. ) |
|
./verification/global_ocean.cs32x15/code_alt/code.192t_8x4/ini_masks_etc.F |
334 |
INI_MASKS_ETC |
& recip_rA(I,J,bi,bj)=1.d0/rA(I,J,bi,bj) |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F |
324 |
INI_MASKS_ETC |
IF ( rA(I,J,bi,bj) .NE. 0. ) |
|
./verification/global_ocean.cs32x15/code_alt/code.176t_8x4/ini_masks_etc.F |
325 |
INI_MASKS_ETC |
& recip_rA(I,J,bi,bj)=1.d0/rA(I,J,bi,bj) |
|
./model/src/thermodynamics.F |
442 |
THERMODYNAMICS |
rTrans(i,j) = wFld(i,j)*rA(i,j,bi,bj)*maskUp(i,j) |
|
./model/src/ini_spherical_polar_grid.F |
255 |
INI_SPHERICAL_POLAR_GRID |
rA(I,J,bi,bj) = rSphere*rSphere*dlon*deg2rad |
|
./model/src/ini_spherical_polar_grid.F |
260 |
INI_SPHERICAL_POLAR_GRID |
rA(I,J,bi,bj) = dyF(I,J,bi,bj) |
|
./model/src/ini_spherical_polar_grid.F |
270 |
INI_SPHERICAL_POLAR_GRID |
rAw(I,J,bi,bj) = 0.5*(rA(I,J,bi,bj)+rA(I-1,J,bi,bj)) |
|
./model/src/calc_gw.F |
292 |
CALC_GW |
& *recip_drF(k)*rA(i,j,bi,bj) |
|
./model/src/calc_gw.F |
368 |
CALC_GW |
rTrans = tmp_WbarZ*rA(i,j,bi,bj) |
|
./model/src/solve_for_pressure.F |
142 |
SOLVE_FOR_PRESSURE |
tileEmP = tileEmP + rA(i,j,bi,bj)*EmPmR(i,j,bi,bj) |
|
./model/src/config_summary.F |
616 |
CONFIG_SUMMARY |
CALL WRITE_XY_XLINE_RS( rA, coordLine, tileLine, |
|
./model/src/config_summary.F |
618 |
CONFIG_SUMMARY |
CALL WRITE_XY_YLINE_RS( rA, coordLine, tileLine, |
|
./model/src/ini_cylinder_grid.F |
219 |
INI_CYLINDER_GRID |
rA (I,J,bi,bj) = dxF(I,J,bi,bj)*dyF(I,J,bi,bj) |
|
./model/src/impldiff.F |
244 |
IMPLDIFF |
& -rA(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
125 |
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 |
126 |
CALC_R_STAR |
& +etaFld(i,j,bi,bj)*rA(i,j,bi,bj) |
|
./model/src/calc_r_star.F |
140 |
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 |
141 |
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/do_oceanic_phys.F |
216 |
DO_OCEANIC_PHYS |
& CALL REMOVE_MEAN_RS( 1, EmPmR, maskH, maskH, rA, drF, |
|
./model/src/do_oceanic_phys.F |
219 |
DO_OCEANIC_PHYS |
& CALL REMOVE_MEAN_RS( 1, Qnet, maskH, maskH, rA, drF, |
|
./model/src/ini_cartesian_grid.F |
194 |
INI_CARTESIAN_GRID |
rA (I,J,bi,bj) = dxF(I,J,bi,bj)*dyF(I,J,bi,bj) |
|
./pkg/cost/cost_tracer.F |
56 |
COST_TRACER |
& rA(i,j,bi,bj)*drF(k)*dTtracerLev(k) |
|
./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_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_calc_visc.F |
313 |
MOM_CALC_VISC |
L2=rA(i,j,bi,bj) |
|
./pkg/mom_common/mom_calc_visc.F |
324 |
MOM_CALC_VISC |
L4rdt=0.125 _d 0*recip_dt*rA(i,j,bi,bj)**2 |
|
./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) |
|
./pkg/monitor/mon_surfcor.F |
108 |
MON_SURFCOR |
& + rA(i,j,bi,bj)*wVel(i,j,ks,bi,bj)*tmpVal |
|
./pkg/monitor/mon_surfcor.F |
125 |
MON_SURFCOR |
& - ddPI*rA(i,j,bi,bj)*wVel(i,j,k,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
146 |
MON_SURFCOR |
tmpVol = rA(i,j,bi,bj)*h0FacC(i,j,k,bi,bj)*drF(k) |
|
./pkg/monitor/mon_surfcor.F |
83 |
MON_SURFCOR |
areaTile = areaTile + rA(i,j,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
85 |
MON_SURFCOR |
& rA(i,j,bi,bj)*wVel(i,j,ks,bi,bj)*theta(i,j,ks,bi,bj) |
|
./pkg/monitor/mon_surfcor.F |
88 |
MON_SURFCOR |
& + rA(i,j,bi,bj)*wVel(i,j,ks,bi,bj)* salt(i,j,ks,bi,bj) |
|
./pkg/monitor/mon_ke.F |
52 |
MON_KE |
volTile=volTile+rA(i,j,bi,bj)*drF(k)*_hFacC(i,j,k,bi,bj) |
|
./pkg/monitor/mon_ke.F |
97 |
MON_KE |
& + tmpVal*rA(i,j,bi,bj)*maskH(i,j,bi,bj) |
|
./pkg/monitor/monitor.F |
109 |
MONITOR |
& maskH,maskH,rA ,drF,myThid) |
|
./pkg/monitor/monitor.F |
115 |
MONITOR |
& maskC,maskC,rA ,drC,myThid) |
|
./pkg/monitor/monitor.F |
117 |
MONITOR |
& maskC,hFacC,rA ,drF, |
|
./pkg/monitor/monitor.F |
120 |
MONITOR |
& maskC,hFacC,rA ,drF,myThid) |
|
./pkg/monitor/mon_solution.F |
45 |
MON_SOLUTION |
I Nr, theta, maskC,hFacC,rA,drF, |
|
./pkg/monitor/mon_vort3.F |
106 |
MON_VORT3 |
& ( ( etaFld(i-1,j-1)*rA(i-1,j-1,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
107 |
MON_VORT3 |
& +etaFld( i ,j-1)*rA( i ,j-1,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
109 |
MON_VORT3 |
& + ( etaFld(i-1, j )*rA(i-1, j ,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
110 |
MON_VORT3 |
& +etaFld( i , j )*rA( 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-1, j )*rA(i-1, j ,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
115 |
MON_VORT3 |
& + ( etaFld( i ,j-1)*rA( i ,j-1,bi,bj) |
|
./pkg/monitor/mon_vort3.F |
116 |
MON_VORT3 |
& + etaFld( i , j )*rA( i , j ,bi,bj) |
|
./pkg/thsice/thsice_monitor.F |
120 |
THSICE_MONITOR |
I iceheight, iceMask, maskH, rA, yC, locDr, |
|
./pkg/thsice/thsice_monitor.F |
142 |
THSICE_MONITOR |
I snowheight, iceMask, maskH, rA, yC, locDr, |
|
./pkg/thsice/thsice_monitor.F |
160 |
THSICE_MONITOR |
I 1, Qice1, iceMask, iceheight, rA, locDr, |
|
./pkg/thsice/thsice_monitor.F |
164 |
THSICE_MONITOR |
I 1, Qice2, iceMask, iceheight, rA, locDr, |
|
./pkg/thsice/thsice_monitor.F |
174 |
THSICE_MONITOR |
I Tsrf, iceMask, maskH, rA, yC, locDr, |
|
./pkg/thsice/thsice_monitor.F |
195 |
THSICE_MONITOR |
I Tice1, iceMask, iceheight, rA, yC, locDr, |
|
./pkg/thsice/thsice_monitor.F |
220 |
THSICE_MONITOR |
I Tice2, iceMask, iceheight, rA, yC, locDr, |
|
./model/inc/GRID.h |
392 |
NO PROCEDURE |
& xC,yC,rA,rAw,rAs,rAz,xG,yG, |
|
./model/inc/GRID.h |
438 |
NO PROCEDURE |
_RS rA (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy) |
|
./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) |
|
./pkg/land/land_monitor.F |
137 |
LAND_MONITOR |
I land_hSnow, land_frc, maskH, rA, yC, locDr, |
|
./pkg/land/land_monitor.F |
173 |
LAND_MONITOR |
I land_enthalp, land_frc, maskH, rA, yC, land_dzF, |
|
./pkg/land/land_monitor.F |
190 |
LAND_MONITOR |
I land_skinT, land_frc, maskH, rA, yC, locDr, |
|
./pkg/land/land_monitor.F |
218 |
LAND_MONITOR |
I land_groundT, land_frc, maskH, rA, yC, locDr, |
|
./pkg/land/land_monitor.F |
246 |
LAND_MONITOR |
I land_groundT, land_frc, maskH, rA, yC, locDr, |
|
./pkg/land/land_monitor.F |
274 |
LAND_MONITOR |
I land_groundW, land_frc, maskH, rA, yC, land_dzF, |
|
./pkg/generic_advdiff/gad_advection.F |
745 |
GAD_ADVECTION |
rTrans(i,j) = wVel(i,j,k,bi,bj)*rA(i,j,bi,bj) |
|
./pkg/generic_advdiff/gad_implicit_r.F |
194 |
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 |
312 |
GAD_IMPLICIT_R |
& rA(i,j,bi,bj) |
|
./pkg/shap_filt/shap_filt_uv_s2.F |
153 |
SHAP_FILT_UV_S2 |
hDiv(i,j) = hDiv(i,j) * rA(i,j,bi,bj) |
|
./pkg/seaice/seaice_monitor.F |
140 |
SEAICE_MONITOR |
& maskH,maskH,rA ,drF,myThid) |
|
./pkg/seaice/seaice_monitor.F |
151 |
SEAICE_MONITOR |
& maskH,maskH,rA ,drF,myThid) |
|
./pkg/seaice/cost_ice_test.F |
112 |
COST_ICE_TEST |
& tempVar * rA(i,j,bi,bj) * AREA(i,j,1,bi,bj) |
|
./pkg/seaice/cost_ice_test.F |
146 |
COST_ICE_TEST |
& tempVar * rA(i,j,bi,bj) * ( |
|
./pkg/seaice/cost_ice_test.F |
162 |
COST_ICE_TEST |
& tempVar * rA(i,j,bi,bj) * ( |
|
./pkg/seaice/cost_ice_test.F |
177 |
COST_ICE_TEST |
& tempVar * rA(i,j,bi,bj) * ( |
|
./pkg/seaice/cost_ice_test.F |
99 |
COST_ICE_TEST |
& tempVar * rA(i,j,bi,bj) * HEFF(i,j,1,bi,bj) |