File |
Line number |
Procedure |
Code |
./model/src/calc_common_factors.F |
113 |
CALC_COMMON_FACTORS |
rTrans(i,j) = wVel(i,j,k,bi,bj)*rA(i,j,bi,bj)*maskUp(i,j) |
./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 |
110 |
MONITOR |
& maskH,maskH,rA ,drF,myThid) |
./pkg/monitor/monitor.F |
116 |
MONITOR |
& maskC,maskC,rA ,drC,myThid) |
./pkg/monitor/monitor.F |
118 |
MONITOR |
& maskC,hFacC,rA ,drF, |
./pkg/monitor/monitor.F |
121 |
MONITOR |
& maskC,hFacC,rA ,drF,myThid) |
./pkg/monitor/mon_vort3.F |
103 |
MON_VORT3 |
& ( ( etaFld(i-1,j-1)*rA(i-1,j-1,bi,bj) |
./pkg/monitor/mon_vort3.F |
104 |
MON_VORT3 |
& +etaFld( i ,j-1)*rA( i ,j-1,bi,bj) |
./pkg/monitor/mon_vort3.F |
106 |
MON_VORT3 |
& + ( etaFld(i-1, j )*rA(i-1, j ,bi,bj) |
./pkg/monitor/mon_vort3.F |
107 |
MON_VORT3 |
& +etaFld( i , j )*rA( i , j ,bi,bj) |
./pkg/monitor/mon_vort3.F |
109 |
MON_VORT3 |
& + ( etaFld(i-1,j-1)*rA(i-1,j-1,bi,bj) |
./pkg/monitor/mon_vort3.F |
110 |
MON_VORT3 |
& +etaFld(i-1, j )*rA(i-1, j ,bi,bj) |
./pkg/monitor/mon_vort3.F |
112 |
MON_VORT3 |
& + ( etaFld( i ,j-1)*rA( i ,j-1,bi,bj) |
./pkg/monitor/mon_vort3.F |
113 |
MON_VORT3 |
& + etaFld( i , j )*rA( i , j ,bi,bj) |
./pkg/monitor/mon_surfcor.F |
105 |
MON_SURFCOR |
& + rA(i,j,bi,bj)*wVel(i,j,ks,bi,bj)*tmpVal |
./pkg/monitor/mon_surfcor.F |
122 |
MON_SURFCOR |
& - ddPI*rA(i,j,bi,bj)*wVel(i,j,k,bi,bj) |
./pkg/monitor/mon_surfcor.F |
143 |
MON_SURFCOR |
tmpVol = rA(i,j,bi,bj)*h0FacC(i,j,k,bi,bj)*drF(k) |
./pkg/monitor/mon_surfcor.F |
80 |
MON_SURFCOR |
areaTile = areaTile + rA(i,j,bi,bj) |
./pkg/monitor/mon_surfcor.F |
82 |
MON_SURFCOR |
& rA(i,j,bi,bj)*wVel(i,j,ks,bi,bj)*theta(i,j,ks,bi,bj) |
./pkg/monitor/mon_surfcor.F |
85 |
MON_SURFCOR |
& + rA(i,j,bi,bj)*wVel(i,j,ks,bi,bj)* salt(i,j,ks,bi,bj) |
./pkg/monitor/mon_solution.F |
45 |
MON_SOLUTION |
I Nr, theta, maskC,hFacC,rA,drF, |