| File |
Line number |
Procedure |
Code |
|
./pkg/admtlm/admtlm_dsvd2model.F |
247 |
ADMTLM_DSVD2MODEL |
read(cunit) (filencvarindex(i), i=1,maxcvars) |
|
./pkg/admtlm/admtlm_dsvd2model.F |
248 |
ADMTLM_DSVD2MODEL |
read(cunit) (filencvarrecs(i), i=1,maxcvars) |
|
./pkg/admtlm/admtlm_dsvd2model.F |
249 |
ADMTLM_DSVD2MODEL |
read(cunit) (filencvarxmax(i), i=1,maxcvars) |
|
./pkg/admtlm/admtlm_dsvd2model.F |
250 |
ADMTLM_DSVD2MODEL |
read(cunit) (filencvarymax(i), i=1,maxcvars) |
|
./pkg/admtlm/admtlm_dsvd2model.F |
251 |
ADMTLM_DSVD2MODEL |
read(cunit) (filencvarnrmax(i), i=1,maxcvars) |
|
./pkg/admtlm/admtlm_dsvd2model.F |
252 |
ADMTLM_DSVD2MODEL |
read(cunit) (filencvargrd(i), i=1,maxcvars) |
|
./pkg/admtlm/admtlm_dsvd2model.F |
71 |
ADMTLM_DSVD2MODEL |
integer i, j, k |
|
./pkg/admtlm/admtlm_model2dsvd.F |
233 |
ADMTLM_MODEL2DSVD |
write(cunit) (ncvarindex(i), i=1,maxcvars) |
|
./pkg/admtlm/admtlm_model2dsvd.F |
234 |
ADMTLM_MODEL2DSVD |
write(cunit) (ncvarrecs(i), i=1,maxcvars) |
|
./pkg/admtlm/admtlm_model2dsvd.F |
235 |
ADMTLM_MODEL2DSVD |
write(cunit) (ncvarxmax(i), i=1,maxcvars) |
|
./pkg/admtlm/admtlm_model2dsvd.F |
236 |
ADMTLM_MODEL2DSVD |
write(cunit) (ncvarymax(i), i=1,maxcvars) |
|
./pkg/admtlm/admtlm_model2dsvd.F |
237 |
ADMTLM_MODEL2DSVD |
write(cunit) (ncvarnrmax(i), i=1,maxcvars) |
|
./pkg/admtlm/admtlm_model2dsvd.F |
238 |
ADMTLM_MODEL2DSVD |
write(cunit) (ncvargrd(i), i=1,maxcvars) |
|
./pkg/admtlm/admtlm_model2dsvd.F |
68 |
ADMTLM_MODEL2DSVD |
integer i, j, k |
|
./pkg/admtlm/admtlm_metric.F |
29 |
ADMTLM_METRIC |
integer i, j, k |
|
./pkg/admtlm/admtlm_metric.F |
52 |
ADMTLM_METRIC |
DO i=1,sNx |
|
./pkg/admtlm/admtlm_metric.F |
55 |
ADMTLM_METRIC |
& + g_objf_state_final(i,j,bi,bj,k+0*Nr)**2/stdDevtheta**2 |
|
./pkg/admtlm/admtlm_metric.F |
56 |
ADMTLM_METRIC |
& + g_objf_state_final(i,j,bi,bj,k+1*Nr)**2/stdDevsalt**2 |
|
./pkg/admtlm/admtlm_metric.F |
57 |
ADMTLM_METRIC |
& + g_objf_state_final(i,j,bi,bj,k+2*Nr)**2/stdDevuvel**2 |
|
./pkg/admtlm/admtlm_metric.F |
58 |
ADMTLM_METRIC |
& + g_objf_state_final(i,j,bi,bj,k+3*Nr)**2/stdDevvvel**2 |
|
./pkg/admtlm/admtlm_metric.F |
61 |
ADMTLM_METRIC |
& + g_objf_state_final(i,j,bi,bj,1+4*Nr)**2/stdDevetan**2 |
|
./pkg/admtlm/admtlm_metric.F |
74 |
ADMTLM_METRIC |
DO i=1,sNx |
|
./pkg/admtlm/admtlm_bypassad.F |
113 |
ADMTLM_BYPASSAD |
do i = imin, imax |
|
./pkg/admtlm/admtlm_bypassad.F |
114 |
ADMTLM_BYPASSAD |
tmpfld3d(i,j,k,bi,bj) = tmpfld3d(i,j,k,bi,bj) |
|
./pkg/admtlm/admtlm_bypassad.F |
115 |
ADMTLM_BYPASSAD |
& + advvel(i,j,k,bi,bj) |
|
./pkg/admtlm/admtlm_bypassad.F |
131 |
ADMTLM_BYPASSAD |
do i = imin, imax |
|
./pkg/admtlm/admtlm_bypassad.F |
132 |
ADMTLM_BYPASSAD |
tmpfld3d(i,j,k,bi,bj) = tmpfld3d(i,j,k,bi,bj) |
|
./pkg/admtlm/admtlm_bypassad.F |
133 |
ADMTLM_BYPASSAD |
& + aduvel(i,j,k,bi,bj) |
|
./pkg/admtlm/admtlm_bypassad.F |
149 |
ADMTLM_BYPASSAD |
do i = imin, imax |
|
./pkg/admtlm/admtlm_bypassad.F |
150 |
ADMTLM_BYPASSAD |
tmpfld3d(i,j,k,bi,bj) = tmpfld3d(i,j,k,bi,bj) |
|
./pkg/admtlm/admtlm_bypassad.F |
151 |
ADMTLM_BYPASSAD |
& + adsalt(i,j,k,bi,bj)*fac |
|
./pkg/admtlm/admtlm_bypassad.F |
167 |
ADMTLM_BYPASSAD |
do i = imin, imax |
|
./pkg/admtlm/admtlm_bypassad.F |
168 |
ADMTLM_BYPASSAD |
tmpfld3d(i,j,k,bi,bj) = tmpfld3d(i,j,k,bi,bj) |
|
./pkg/admtlm/admtlm_bypassad.F |
169 |
ADMTLM_BYPASSAD |
& + adtheta(i,j,k,bi,bj)*fac |
|
./pkg/admtlm/admtlm_bypassad.F |
31 |
ADMTLM_BYPASSAD |
integer i, j, k |
|
./pkg/admtlm/admtlm_bypassad.F |
73 |
ADMTLM_BYPASSAD |
DO i = imin, imax |
|
./pkg/admtlm/admtlm_bypassad.F |
75 |
ADMTLM_BYPASSAD |
adtheta(i,j,k,bi,bj) = |
|
./pkg/admtlm/admtlm_bypassad.F |
76 |
ADMTLM_BYPASSAD |
& g_objf_state_final(i,j,bi,bj,k) |
|
./pkg/admtlm/admtlm_bypassad.F |
77 |
ADMTLM_BYPASSAD |
adsalt(i,j,k,bi,bj) = |
|
./pkg/admtlm/admtlm_bypassad.F |
78 |
ADMTLM_BYPASSAD |
& g_objf_state_final(i,j,bi,bj,1*Nr+k) |
|
./pkg/admtlm/admtlm_bypassad.F |
79 |
ADMTLM_BYPASSAD |
aduvel(i,j,k,bi,bj) = |
|
./pkg/admtlm/admtlm_bypassad.F |
80 |
ADMTLM_BYPASSAD |
& g_objf_state_final(i,j,bi,bj,2*Nr+k) |
|
./pkg/admtlm/admtlm_bypassad.F |
81 |
ADMTLM_BYPASSAD |
advvel(i,j,k,bi,bj) = |
|
./pkg/admtlm/admtlm_bypassad.F |
82 |
ADMTLM_BYPASSAD |
& g_objf_state_final(i,j,bi,bj,3*Nr+k) |
|
./pkg/admtlm/admtlm_bypassad.F |
84 |
ADMTLM_BYPASSAD |
adetan(i,j,bi,bj) = |
|
./pkg/admtlm/admtlm_bypassad.F |
85 |
ADMTLM_BYPASSAD |
& g_objf_state_final(i,j,bi,bj,4*Nr+1) |
|
./pkg/admtlm/admtlm_bypassad.F |
96 |
ADMTLM_BYPASSAD |
do i = imin, imax |
|
./pkg/admtlm/admtlm_bypassad.F |
97 |
ADMTLM_BYPASSAD |
tmpfld2d(i,j,bi,bj) = tmpfld2d(i,j,bi,bj) |
|
./pkg/admtlm/admtlm_bypassad.F |
98 |
ADMTLM_BYPASSAD |
& + adetan(i,j,bi,bj) |
|
./pkg/admtlm/admtlm_map.F |
26 |
ADMTLM_MAP |
integer i, j, k |
|
./pkg/admtlm/admtlm_map.F |
32 |
ADMTLM_MAP |
DO i=1,sNx |
|
./pkg/admtlm/admtlm_map.F |
34 |
ADMTLM_MAP |
adobjf_state_final(i,j,bi,bj,k) = |
|
./pkg/admtlm/admtlm_map.F |
35 |
ADMTLM_MAP |
& g_objf_state_final(i,j,bi,bj,k) |
|
./pkg/admtlm/admtlm_map.F |
37 |
ADMTLM_MAP |
adobjf_state_final(i,j,bi,bj,4*Nr+1) = |
|
./pkg/admtlm/admtlm_map.F |
38 |
ADMTLM_MAP |
& g_objf_state_final(i,j,bi,bj,4*Nr+1) |
|
./pkg/ebm/ebm_atmosphere.F |
206 |
EBM_ATMOSPHERE |
DO i=1,sNx |
|
./pkg/ebm/ebm_atmosphere.F |
208 |
EBM_ATMOSPHERE |
S(i,j,bj) = sin(yC(i,j,bi,bj)*deg2rad) |
|
./pkg/ebm/ebm_atmosphere.F |
210 |
EBM_ATMOSPHERE |
P2(i,j,bj) = 0.5*(3.*S(i,j,bj)**2 - 1.) |
|
./pkg/ebm/ebm_atmosphere.F |
211 |
EBM_ATMOSPHERE |
P4(i,j,bj) = 0.12*(35.*S(i,j,bj)**4 - 30.*S(i,j,bj)**2 + 3.) |
|
./pkg/ebm/ebm_atmosphere.F |
221 |
EBM_ATMOSPHERE |
DO i=1,sNx |
|
./pkg/ebm/ebm_atmosphere.F |
223 |
EBM_ATMOSPHERE |
IF (yC(i,j,bi,bj) .LT. 0.) THEN |
|
./pkg/ebm/ebm_atmosphere.F |
229 |
EBM_ATMOSPHERE |
SW(j,bj) = 0.25*Q0*(1 + Q2*P2(i,j,bj))* |
|
./pkg/ebm/ebm_atmosphere.F |
230 |
EBM_ATMOSPHERE |
< (1 - A0 - A2*P2(i,j,bj) - A4*P4(i,j,bj) ) |
|
./pkg/ebm/ebm_atmosphere.F |
232 |
EBM_ATMOSPHERE |
T(j,bj) = T0(no_so) + T2(no_so)*P2(i,j,bj) |
|
./pkg/ebm/ebm_atmosphere.F |
249 |
EBM_ATMOSPHERE |
Qnet(i,j,bi,bj) = -1.0*( SW(j,bj) - LW(j,bj) - |
|
./pkg/ebm/ebm_atmosphere.F |
251 |
EBM_ATMOSPHERE |
< 0.000728e4 - 0.00678e4*S(i,j,bj) + |
|
./pkg/ebm/ebm_atmosphere.F |
252 |
EBM_ATMOSPHERE |
< 0.0955e4*S(i,j,bj)**2 + 0.0769e4*S(i,j,bj)**3 - |
|
./pkg/ebm/ebm_atmosphere.F |
253 |
EBM_ATMOSPHERE |
< 0.8508e4*S(i,j,bj)**4 - 0.3581e4*S(i,j,bj)**5 + |
|
./pkg/ebm/ebm_atmosphere.F |
254 |
EBM_ATMOSPHERE |
< 2.9240e4*S(i,j,bj)**6 + 0.8311e4*S(i,j,bj)**7 - |
|
./pkg/ebm/ebm_atmosphere.F |
255 |
EBM_ATMOSPHERE |
< 4.9548e4*S(i,j,bj)**8 - 0.8808e4*S(i,j,bj)**9 + |
|
./pkg/ebm/ebm_atmosphere.F |
256 |
EBM_ATMOSPHERE |
< 4.0644e4*S(i,j,bj)**10 +0.3409e4*S(i,j,bj)**11 - |
|
./pkg/ebm/ebm_atmosphere.F |
257 |
EBM_ATMOSPHERE |
< 1.2893e4*S(i,j,bj)**12 ) |
|
./pkg/ebm/ebm_atmosphere.F |
269 |
EBM_ATMOSPHERE |
Qnet(i,j,bi,bj) = (-90./ReCountX(j,bj))* |
|
./pkg/ebm/ebm_atmosphere.F |
271 |
EBM_ATMOSPHERE |
< Hd35(no_so)*(3.054e1 - 3.763e1*S(i,j,bj) + |
|
./pkg/ebm/ebm_atmosphere.F |
272 |
EBM_ATMOSPHERE |
< 1.892e2*S(i,j,bj)**2 + 3.041e2*S(i,j,bj)**3 - |
|
./pkg/ebm/ebm_atmosphere.F |
273 |
EBM_ATMOSPHERE |
< 1.540e3*S(i,j,bj)**4 - 9.586e2*S(i,j,bj)**5 + |
|
./pkg/ebm/ebm_atmosphere.F |
274 |
EBM_ATMOSPHERE |
< 2.939e3*S(i,j,bj)**6 + 1.219e3*S(i,j,bj)**7 - |
|
./pkg/ebm/ebm_atmosphere.F |
275 |
EBM_ATMOSPHERE |
< 2.550e3*S(i,j,bj)**8 - 5.396e2*S(i,j,bj)**9 + |
|
./pkg/ebm/ebm_atmosphere.F |
276 |
EBM_ATMOSPHERE |
< 8.119e2*S(i,j,bj)**10) |
|
./pkg/ebm/ebm_atmosphere.F |
279 |
EBM_ATMOSPHERE |
Qnet(i,j,bi,bj) = 0. |
|
./pkg/ebm/ebm_atmosphere.F |
285 |
EBM_ATMOSPHERE |
EmPmR(i,j,bi,bj) = -1.e-3*Fw35(no_so) |
|
./pkg/ebm/ebm_atmosphere.F |
286 |
EBM_ATMOSPHERE |
< *(-0.8454e5*S(i,j,bj)**14 + 0.5367e5*S(i,j,bj)**13 |
|
./pkg/ebm/ebm_atmosphere.F |
287 |
EBM_ATMOSPHERE |
< +3.3173e5*S(i,j,bj)**12 - 1.8965e5*S(i,j,bj)**11 |
|
./pkg/ebm/ebm_atmosphere.F |
288 |
EBM_ATMOSPHERE |
< -5.1701e5*S(i,j,bj)**10 |
|
./pkg/ebm/ebm_atmosphere.F |
289 |
EBM_ATMOSPHERE |
< +2.6240e5*S(i,j,bj)**9 + 4.077e5*S(i,j,bj)**8 |
|
./pkg/ebm/ebm_atmosphere.F |
290 |
EBM_ATMOSPHERE |
< -1.791e5*S(i,j,bj)**7 |
|
./pkg/ebm/ebm_atmosphere.F |
291 |
EBM_ATMOSPHERE |
< -1.7231e5*S(i,j,bj)**6 + 0.6229e5*S(i,j,bj)**5 |
|
./pkg/ebm/ebm_atmosphere.F |
292 |
EBM_ATMOSPHERE |
< +0.3824e5*S(i,j,bj)**4 |
|
./pkg/ebm/ebm_atmosphere.F |
293 |
EBM_ATMOSPHERE |
< -0.1017e5*S(i,j,bj)**3 - 0.0387e5*S(i,j,bj)**2 |
|
./pkg/ebm/ebm_atmosphere.F |
294 |
EBM_ATMOSPHERE |
< +0.00562e5*S(i,j,bj) + 0.0007743e5) |
|
./pkg/ebm/ebm_atmosphere.F |
304 |
EBM_ATMOSPHERE |
IF (yC(i,j,bi,bj) .LT. -40.) THEN |
|
./pkg/ebm/ebm_atmosphere.F |
306 |
EBM_ATMOSPHERE |
EmPmR(i,j,bi,bj) = -1.e-3*(Fw35(no_so)* |
|
./pkg/ebm/ebm_atmosphere.F |
307 |
EBM_ATMOSPHERE |
< (-6.5 + 35.3 + 71.7*S(i,j,bj) |
|
./pkg/ebm/ebm_atmosphere.F |
308 |
EBM_ATMOSPHERE |
< - 1336.3*S(i,j,bj)**2 - 425.8*S(i,j,bj)**3 |
|
./pkg/ebm/ebm_atmosphere.F |
309 |
EBM_ATMOSPHERE |
< + 5434.8*S(i,j,bj)**4 + 707.9*S(i,j,bj)**5 |
|
./pkg/ebm/ebm_atmosphere.F |
310 |
EBM_ATMOSPHERE |
< - 6987.7*S(i,j,bj)**6 - 360.4*S(i,j,bj)**7 |
|
./pkg/ebm/ebm_atmosphere.F |
311 |
EBM_ATMOSPHERE |
< + 2855.0*S(i,j,bj)**8) |
|
./pkg/ebm/ebm_atmosphere.F |
315 |
EBM_ATMOSPHERE |
IF (xC(i,j,bi,bj) .GT. 284. |
|
./pkg/ebm/ebm_atmosphere.F |
316 |
EBM_ATMOSPHERE |
< .OR. xC(i,j,bi,bj) .LT. 28.) THEN |
|
./pkg/ebm/ebm_atmosphere.F |
317 |
EBM_ATMOSPHERE |
EmPmR(i,j,bi,bj) = -1.e-3*(Fw35(no_so)* |
|
./pkg/ebm/ebm_atmosphere.F |
318 |
EBM_ATMOSPHERE |
< (-6.5 -2.878 + 3.157e2*S(i,j,bj) - |
|
./pkg/ebm/ebm_atmosphere.F |
319 |
EBM_ATMOSPHERE |
< 2.388e3*S(i,j,bj)**2 - 4.101e3*S(i,j,bj)**3 + |
|
./pkg/ebm/ebm_atmosphere.F |
320 |
EBM_ATMOSPHERE |
< 1.963e4*S(i,j,bj)**4 + 1.534e4*S(i,j,bj)**5 - |
|
./pkg/ebm/ebm_atmosphere.F |
321 |
EBM_ATMOSPHERE |
< 6.556e4*S(i,j,bj)**6 - 2.478e4*S(i,j,bj)**7 + |
|
./pkg/ebm/ebm_atmosphere.F |
322 |
EBM_ATMOSPHERE |
< 1.083e5*S(i,j,bj)**8 + 1.85e4*S(i,j,bj)**9 - |
|
./pkg/ebm/ebm_atmosphere.F |
323 |
EBM_ATMOSPHERE |
< 8.703e4*S(i,j,bj)**10 - 5.276e3*S(i,j,bj)**11 + |
|
./pkg/ebm/ebm_atmosphere.F |
324 |
EBM_ATMOSPHERE |
< 2.703e4*S(i,j,bj)**12) |
|
./pkg/ebm/ebm_atmosphere.F |
328 |
EBM_ATMOSPHERE |
EmPmR(i,j,bi,bj) = -1.e-3*(Fw35(no_so) |
|
./pkg/ebm/ebm_atmosphere.F |
329 |
EBM_ATMOSPHERE |
< *(-6.5 +51.89 + 4.916e2*S(i,j,bj) - |
|
./pkg/ebm/ebm_atmosphere.F |
330 |
EBM_ATMOSPHERE |
< 1.041e3*S(i,j,bj)**2 - 7.546e3*S(i,j,bj)**3 + |
|
./pkg/ebm/ebm_atmosphere.F |
331 |
EBM_ATMOSPHERE |
< 2.335e3*S(i,j,bj)**4 + 3.449e4*S(i,j,bj)**5 + |
|
./pkg/ebm/ebm_atmosphere.F |
332 |
EBM_ATMOSPHERE |
< 6.702e3*S(i,j,bj)**6 - 6.601e4*S(i,j,bj)**7 - |
|
./pkg/ebm/ebm_atmosphere.F |
333 |
EBM_ATMOSPHERE |
< 2.594e4*S(i,j,bj)**8 + 5.652e4*S(i,j,bj)**9 + |
|
./pkg/ebm/ebm_atmosphere.F |
334 |
EBM_ATMOSPHERE |
< 2.738e4*S(i,j,bj)**10 - 1.795e4*S(i,j,bj)**11 - |
|
./pkg/ebm/ebm_atmosphere.F |
335 |
EBM_ATMOSPHERE |
< 9.486e3*S(i,j,bj)**12) |
|
./pkg/ebm/ebm_atmosphere.F |
56 |
EBM_ATMOSPHERE |
INTEGER i, j |
|
./pkg/ebm/ebm_atmosphere.F |
83 |
EBM_ATMOSPHERE |
DO i=1-oLx,sNx+oLx |
|
./pkg/ebm/ebm_atmosphere.F |
84 |
EBM_ATMOSPHERE |
S(i,j,bj) = 0.0 |
|
./pkg/ebm/ebm_atmosphere.F |
85 |
EBM_ATMOSPHERE |
P2(i,j,bj) = 0.0 |
|
./pkg/ebm/ebm_atmosphere.F |
86 |
EBM_ATMOSPHERE |
P4(i,j,bj) = 0.0 |
|
./pkg/ebm/ebm_forcing_surf.F |
50 |
EBM_FORCING_SURF |
INTEGER i,j |
|
./pkg/ebm/ebm_forcing_surf.F |
64 |
EBM_FORCING_SURF |
DO i = iMin, iMax |
|
./pkg/ebm/ebm_forcing_surf.F |
67 |
EBM_FORCING_SURF |
surfaceForcingU(i,j,bi,bj) = |
|
./pkg/ebm/ebm_forcing_surf.F |
68 |
EBM_FORCING_SURF |
& fu(i,j,bi,bj)*horiVertRatio*recip_rhoConst |
|
./pkg/ebm/ebm_forcing_surf.F |
69 |
EBM_FORCING_SURF |
& + winPert(i,j,bi,bj) |
|
./pkg/ebm/ebm_forcing_surf.F |
70 |
EBM_FORCING_SURF |
& *drF(kSurface)*hFacW(i,j,kSurface,bi,bj) |
|
./pkg/ebm/ebm_forcing_surf.F |
72 |
EBM_FORCING_SURF |
surfaceForcingV(i,j,bi,bj) = |
|
./pkg/ebm/ebm_forcing_surf.F |
73 |
EBM_FORCING_SURF |
& fv(i,j,bi,bj)*horiVertRatio*recip_rhoConst |
|
./pkg/ebm/ebm_forcing_surf.F |
75 |
EBM_FORCING_SURF |
surfaceForcingT(i,j,bi,bj) = |
|
./pkg/ebm/ebm_forcing_surf.F |
76 |
EBM_FORCING_SURF |
& -Qnet(i,j,bi,bj)*recip_Cp*horiVertRatio*recip_rhoConst |
|
./pkg/ebm/ebm_forcing_surf.F |
77 |
EBM_FORCING_SURF |
& -lambdaThetaZonRelax*maskC(i,j,kSurface,bi,bj)* |
|
./pkg/ebm/ebm_forcing_surf.F |
78 |
EBM_FORCING_SURF |
& (theta(i,j,kSurface,bi,bj)-ZonalMeanSST(j,bj)) |
|
./pkg/ebm/ebm_forcing_surf.F |
79 |
EBM_FORCING_SURF |
& *drF(kSurface)*hFacC(i,j,kSurface,bi,bj) |
|
./pkg/ebm/ebm_forcing_surf.F |
82 |
EBM_FORCING_SURF |
surfaceForcingS(i,j,bi,bj) = |
|
./pkg/ebm/ebm_forcing_surf.F |
83 |
EBM_FORCING_SURF |
& EmPmR(i,j,bi,bj)*convertFW2Salt*convertEmP2rUnit |
|
./pkg/ebm/ebm_forcing_surf.F |
84 |
EBM_FORCING_SURF |
& +Run(i,j,bi,bj)*scale_runoff |
|
./pkg/ebm/ebm_forcing_surf.F |
86 |
EBM_FORCING_SURF |
& -lambdaSaltClimRelax(i,j,bi,bj)*maskC(i,j,kSurface,bi,bj) |
|
./pkg/ebm/ebm_forcing_surf.F |
87 |
EBM_FORCING_SURF |
& *(salt(i,j,kSurface,bi,bj)-SSS(i,j,bi,bj)) |
|
./pkg/ebm/ebm_forcing_surf.F |
88 |
EBM_FORCING_SURF |
& *drF(kSurface)*hFacC(i,j,kSurface,bi,bj) |
|
./pkg/ebm/ebm_zonalmean.F |
42 |
EBM_ZONALMEAN |
INTEGER i, j, k, bi, bj |
|
./pkg/ebm/ebm_zonalmean.F |
63 |
EBM_ZONALMEAN |
DO i=1,sNx |
|
./pkg/ebm/ebm_zonalmean.F |
65 |
EBM_ZONALMEAN |
& theta(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_zonalmean.F |
67 |
EBM_ZONALMEAN |
& maskC(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_wind_perturb.F |
104 |
EBM_WIND_PERTURB |
DO i = iMin, iMax |
|
./pkg/ebm/ebm_wind_perturb.F |
114 |
EBM_WIND_PERTURB |
winPert(i,j,bi,bj) = maskW(i,j,k,bi,bj)* |
|
./pkg/ebm/ebm_wind_perturb.F |
115 |
EBM_WIND_PERTURB |
& (1.0/1.66)*(0.75*winPert(i,j,bi,bj) + |
|
./pkg/ebm/ebm_wind_perturb.F |
117 |
EBM_WIND_PERTURB |
& ((y(j)-ya(j))*temp2(i,INT(ya2(j)))+ |
|
./pkg/ebm/ebm_wind_perturb.F |
118 |
EBM_WIND_PERTURB |
& (6.0-y(j)+ya(j))*temp2(i,INT(ya(j))))) |
|
./pkg/ebm/ebm_wind_perturb.F |
36 |
EBM_WIND_PERTURB |
INTEGER i, j, bi, bj |
|
./pkg/ebm/ebm_wind_perturb.F |
61 |
EBM_WIND_PERTURB |
DO i = 1-OLx, sNx+OLx |
|
./pkg/ebm/ebm_wind_perturb.F |
62 |
EBM_WIND_PERTURB |
x(i) = 0.0 |
|
./pkg/ebm/ebm_wind_perturb.F |
63 |
EBM_WIND_PERTURB |
xa(i) = 0.0 |
|
./pkg/ebm/ebm_wind_perturb.F |
64 |
EBM_WIND_PERTURB |
xa2(i) = 0.0 |
|
./pkg/ebm/ebm_wind_perturb.F |
66 |
EBM_WIND_PERTURB |
DO i = 1-OLx, sNx+OLx |
|
./pkg/ebm/ebm_wind_perturb.F |
68 |
EBM_WIND_PERTURB |
temp(i,j) = 0.0 |
|
./pkg/ebm/ebm_wind_perturb.F |
69 |
EBM_WIND_PERTURB |
temp2(i,j) = 0.0 |
|
./pkg/ebm/ebm_wind_perturb.F |
83 |
EBM_WIND_PERTURB |
DO i = iMin, iMax |
|
./pkg/ebm/ebm_wind_perturb.F |
84 |
EBM_WIND_PERTURB |
temp(i,j) = 1.73*(2.0*temp(i,j) - 1.0) |
|
./pkg/ebm/ebm_wind_perturb.F |
89 |
EBM_WIND_PERTURB |
DO i = iMin, iMax |
|
./pkg/ebm/ebm_wind_perturb.F |
90 |
EBM_WIND_PERTURB |
x(i) = i |
|
./pkg/ebm/ebm_wind_perturb.F |
91 |
EBM_WIND_PERTURB |
xa(i) = x(i) - MOD(x(i),10.0) |
|
./pkg/ebm/ebm_wind_perturb.F |
92 |
EBM_WIND_PERTURB |
xa2(i) = xa(i)+10.0 |
|
./pkg/ebm/ebm_wind_perturb.F |
93 |
EBM_WIND_PERTURB |
if ( xa2(i) .gt. sNx+Olx ) then |
|
./pkg/ebm/ebm_wind_perturb.F |
94 |
EBM_WIND_PERTURB |
xa2(i) = 0.0 |
|
./pkg/ebm/ebm_wind_perturb.F |
96 |
EBM_WIND_PERTURB |
temp2(i,j) = 0.1*( (x(i)-xa(i))*temp(INT(xa2(i)),j)+ |
|
./pkg/ebm/ebm_wind_perturb.F |
97 |
EBM_WIND_PERTURB |
& (10.0-x(i)+xa(i))*temp(INT(xa(i)),j) ) |
|
./pkg/ebm/ebm_load_climatology.F |
31 |
EBM_LOAD_CLIMATOLOGY |
INTEGER bi,bj,i,j |
|
./pkg/ebm/ebm_load_climatology.F |
64 |
EBM_LOAD_CLIMATOLOGY |
DO i=1,sNx |
|
./pkg/ebm/ebm_load_climatology.F |
65 |
EBM_LOAD_CLIMATOLOGY |
distY = (yC(i,j,bi,bj)-(yC0))/lY |
|
./pkg/ebm/ebm_load_climatology.F |
68 |
EBM_LOAD_CLIMATOLOGY |
fu(i,j,bi,bj) = tauX |
|
./pkg/ebm/ebm_load_climatology.F |
83 |
EBM_LOAD_CLIMATOLOGY |
DO i=1,sNx |
|
./pkg/ebm/ebm_load_climatology.F |
84 |
EBM_LOAD_CLIMATOLOGY |
fv(i,j,bi,bj) = 0.0 |
|
./pkg/ebm/ebm_ini_vars.F |
34 |
EBM_INI_VARS |
INTEGER bi,bj,i,j,k |
|
./pkg/ebm/ebm_ini_vars.F |
41 |
EBM_INI_VARS |
DO i=1-OLx,sNx+OLx |
|
./pkg/ebm/ebm_ini_vars.F |
42 |
EBM_INI_VARS |
Run (i,j,bi,bj) = 0. |
|
./pkg/ebm/ebm_ini_vars.F |
43 |
EBM_INI_VARS |
winPert(i,j,bi,bj) = 0. |
|
./model/inc/RECIP_HFACS_MACROS.h |
36 |
NO PROCEDURE |
# define _recip_hFacS(i,j,k,bi,bj) recip_hFacS(i,j,k,bi,bj)*maskS(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
100 |
EBM_AREA_T |
ELSEIF ( yC(i,j,bi,bj) .GE. lat(2) .AND. |
|
./pkg/ebm/ebm_area_t.F |
101 |
EBM_AREA_T |
& yC(i,j,bi,bj) .LT. lat(3)) THEN |
|
./pkg/ebm/ebm_area_t.F |
103 |
EBM_AREA_T |
& theta(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
105 |
EBM_AREA_T |
& maskC(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
41 |
EBM_AREA_T |
INTEGER i, j, k, bi, bj |
|
./pkg/ebm/ebm_area_t.F |
81 |
EBM_AREA_T |
DO i = 1, sNx |
|
./pkg/ebm/ebm_area_t.F |
82 |
EBM_AREA_T |
IF ( yC(i,j,bi,bj) .GE. -lat(3) .AND. |
|
./pkg/ebm/ebm_area_t.F |
83 |
EBM_AREA_T |
& yC(i,j,bi,bj) .LE. -lat(2)) THEN |
|
./pkg/ebm/ebm_area_t.F |
85 |
EBM_AREA_T |
& theta(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
87 |
EBM_AREA_T |
& maskC(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
88 |
EBM_AREA_T |
ELSEIF ( yC(i,j,bi,bj) .GT. -lat(2) .AND. |
|
./pkg/ebm/ebm_area_t.F |
89 |
EBM_AREA_T |
& yC(i,j,bi,bj) .LT. -lat(1)) THEN |
|
./pkg/ebm/ebm_area_t.F |
91 |
EBM_AREA_T |
& theta(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
93 |
EBM_AREA_T |
& maskC(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
94 |
EBM_AREA_T |
ELSEIF ( yC(i,j,bi,bj) .GT. lat(1) .AND. |
|
./pkg/ebm/ebm_area_t.F |
95 |
EBM_AREA_T |
& yC(i,j,bi,bj) .LT. lat(2)) THEN |
|
./pkg/ebm/ebm_area_t.F |
97 |
EBM_AREA_T |
& theta(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
99 |
EBM_AREA_T |
& maskC(i,j,k,bi,bj) |
|
./pkg/exf/exf_check_range.F |
103 |
EXF_CHECK_RANGE |
if ( ABS(uwind(i,j,bi,bj)) .GT. 100. .AND. |
|
./pkg/exf/exf_check_range.F |
104 |
EXF_CHECK_RANGE |
& maskW(i,j,1,bi,bj) .NE. 0. ) then |
|
./pkg/exf/exf_check_range.F |
107 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myiter, uwind(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
112 |
EXF_CHECK_RANGE |
if ( ABS(vwind(i,j,bi,bj)) .GT. 100. .AND. |
|
./pkg/exf/exf_check_range.F |
113 |
EXF_CHECK_RANGE |
& maskS(i,j,1,bi,bj) .NE. 0. ) then |
|
./pkg/exf/exf_check_range.F |
116 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myiter, vwind(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
122 |
EXF_CHECK_RANGE |
if ( ( wspeed(i,j,bi,bj) .LT. 0. .OR. |
|
./pkg/exf/exf_check_range.F |
123 |
EXF_CHECK_RANGE |
& wspeed(i,j,bi,bj) .GT. 100. ) .AND. |
|
./pkg/exf/exf_check_range.F |
124 |
EXF_CHECK_RANGE |
& maskS(i,j,1,bi,bj) .NE. 0. ) then |
|
./pkg/exf/exf_check_range.F |
127 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myiter, wspeed(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
133 |
EXF_CHECK_RANGE |
if ( (atemp(i,j,bi,bj) .LT. 183 .OR. |
|
./pkg/exf/exf_check_range.F |
134 |
EXF_CHECK_RANGE |
& atemp(i,j,bi,bj) .GT. 343 ) .AND. |
|
./pkg/exf/exf_check_range.F |
135 |
EXF_CHECK_RANGE |
& maskC(i,j,1,bi,bj) .NE. 0. ) then |
|
./pkg/exf/exf_check_range.F |
139 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myiter, atemp(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
144 |
EXF_CHECK_RANGE |
if ( (aqh(i,j,bi,bj) .LT. 0. .OR. |
|
./pkg/exf/exf_check_range.F |
145 |
EXF_CHECK_RANGE |
& aqh(i,j,bi,bj) .GT. 0.1 ) .AND. |
|
./pkg/exf/exf_check_range.F |
146 |
EXF_CHECK_RANGE |
& maskC(i,j,1,bi,bj) .NE. 0. ) then |
|
./pkg/exf/exf_check_range.F |
149 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myiter, aqh(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
154 |
EXF_CHECK_RANGE |
if ( (precip(i,j,bi,bj) .LT. 0. .OR. |
|
./pkg/exf/exf_check_range.F |
155 |
EXF_CHECK_RANGE |
& precip(i,j,bi,bj) .GT. 2.E-6 ) .AND. |
|
./pkg/exf/exf_check_range.F |
156 |
EXF_CHECK_RANGE |
& maskC(i,j,1,bi,bj) .NE. 0. ) then |
|
./pkg/exf/exf_check_range.F |
159 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myiter, precip(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
164 |
EXF_CHECK_RANGE |
if ( (snowprecip(i,j,bi,bj) .LT. 0. .OR. |
|
./pkg/exf/exf_check_range.F |
165 |
EXF_CHECK_RANGE |
& snowprecip(i,j,bi,bj) .GT. 2.E-6 ) .AND. |
|
./pkg/exf/exf_check_range.F |
166 |
EXF_CHECK_RANGE |
& maskC(i,j,1,bi,bj) .NE. 0. ) then |
|
./pkg/exf/exf_check_range.F |
170 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myiter, snowprecip(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
177 |
EXF_CHECK_RANGE |
if ( (swflux(i,j,bi,bj) .GT. 1. .OR. |
|
./pkg/exf/exf_check_range.F |
178 |
EXF_CHECK_RANGE |
& swflux(i,j,bi,bj) .LT. -1000. ) .AND. |
|
./pkg/exf/exf_check_range.F |
179 |
EXF_CHECK_RANGE |
& maskC(i,j,1,bi,bj) .NE. 0. ) then |
|
./pkg/exf/exf_check_range.F |
182 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myiter, swflux(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
189 |
EXF_CHECK_RANGE |
if ( (runoff(i,j,bi,bj) .LT. 0. .OR. |
|
./pkg/exf/exf_check_range.F |
190 |
EXF_CHECK_RANGE |
& runoff(i,j,bi,bj) .GT. 1.E-6 ) .AND. |
|
./pkg/exf/exf_check_range.F |
191 |
EXF_CHECK_RANGE |
& maskC(i,j,1,bi,bj) .NE. 0. ) then |
|
./pkg/exf/exf_check_range.F |
194 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myiter, runoff(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
34 |
EXF_CHECK_RANGE |
integer i,j |
|
./pkg/exf/exf_check_range.F |
62 |
EXF_CHECK_RANGE |
do i = imin,imax |
|
./pkg/exf/exf_check_range.F |
65 |
EXF_CHECK_RANGE |
if ( ( hflux(i,j,bi,bj) .GT. 1600. .OR. |
|
./pkg/exf/exf_check_range.F |
66 |
EXF_CHECK_RANGE |
& hflux(i,j,bi,bj) .LT. -500. ) .AND. |
|
./pkg/exf/exf_check_range.F |
67 |
EXF_CHECK_RANGE |
& maskC(i,j,1,bi,bj) .NE. 0. ) then |
|
./pkg/exf/exf_check_range.F |
70 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myiter, hflux(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
75 |
EXF_CHECK_RANGE |
if ( ABS(sflux(i, |