| File |
Line number |
Procedure |
Code |
|
./pkg/admtlm/admtlm_metric.F |
30 |
ADMTLM_METRIC |
integer bi, bj |
|
./pkg/admtlm/admtlm_metric.F |
50 |
ADMTLM_METRIC |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./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 |
72 |
ADMTLM_METRIC |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/admtlm/admtlm_bypassad.F |
110 |
ADMTLM_BYPASSAD |
do bi = itlo, ithi |
|
./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 |
128 |
ADMTLM_BYPASSAD |
do bi = itlo, ithi |
|
./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 |
146 |
ADMTLM_BYPASSAD |
do bi = itlo, ithi |
|
./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 |
164 |
ADMTLM_BYPASSAD |
do bi = itlo, ithi |
|
./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 |
32 |
ADMTLM_BYPASSAD |
integer bi, bj |
|
./pkg/admtlm/admtlm_bypassad.F |
71 |
ADMTLM_BYPASSAD |
DO bi = itlo, ithi |
|
./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 |
94 |
ADMTLM_BYPASSAD |
do bi = itlo, ithi |
|
./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 |
27 |
ADMTLM_MAP |
integer bi, bj |
|
./pkg/admtlm/admtlm_map.F |
30 |
ADMTLM_MAP |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./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 |
103 |
EBM_ATMOSPHERE |
IF (yC(1,j,bi,bj) .LE. -62.0) THEN |
|
./pkg/ebm/ebm_atmosphere.F |
105 |
EBM_ATMOSPHERE |
ELSE IF (yC(1,j,bi,bj) .EQ. 74.0) THEN |
|
./pkg/ebm/ebm_atmosphere.F |
107 |
EBM_ATMOSPHERE |
ELSE IF (yC(1,j,bi,bj) .EQ. 70.0) THEN |
|
./pkg/ebm/ebm_atmosphere.F |
109 |
EBM_ATMOSPHERE |
ELSE IF (yC(1,j,bi,bj) .EQ. 66.0) THEN |
|
./pkg/ebm/ebm_atmosphere.F |
111 |
EBM_ATMOSPHERE |
ELSE IF (yC(1,j,bi,bj) .EQ. 62.0) THEN |
|
./pkg/ebm/ebm_atmosphere.F |
208 |
EBM_ATMOSPHERE |
S(i,j,bj) = sin(yC(i,j,bi,bj)*deg2rad) |
|
./pkg/ebm/ebm_atmosphere.F |
223 |
EBM_ATMOSPHERE |
IF (yC(i,j,bi,bj) .LT. 0.) THEN |
|
./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 |
269 |
EBM_ATMOSPHERE |
Qnet(i,j,bi,bj) = (-90./ReCountX(j,bj))* |
|
./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 |
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 |
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 |
328 |
EBM_ATMOSPHERE |
EmPmR(i,j,bi,bj) = -1.e-3*(Fw35(no_so) |
|
./pkg/ebm/ebm_atmosphere.F |
55 |
EBM_ATMOSPHERE |
INTEGER bi, bj |
|
./pkg/ebm/ebm_atmosphere.F |
67 |
EBM_ATMOSPHERE |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/ebm/ebm_atmosphere.F |
70 |
EBM_ATMOSPHERE |
act1 = bi - myBxLo(myThid) |
|
./pkg/ebm/ebm_forcing_surf.F |
10 |
EBM_FORCING_SURF |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./pkg/ebm/ebm_forcing_surf.F |
42 |
EBM_FORCING_SURF |
INTEGER bi,bj |
|
./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 |
59 |
EBM_ZONALMEAN |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/ebm/ebm_zonalmean.F |
61 |
EBM_ZONALMEAN |
CountX_tile(j,bi,bj) = 0.0 |
|
./pkg/ebm/ebm_zonalmean.F |
62 |
EBM_ZONALMEAN |
ZonalMean_tile(j,bi,bj) = 0.0 |
|
./pkg/ebm/ebm_zonalmean.F |
64 |
EBM_ZONALMEAN |
ZonalMean_tile(j,bi,bj) = ZonalMean_tile(j,bi,bj) + |
|
./pkg/ebm/ebm_zonalmean.F |
65 |
EBM_ZONALMEAN |
& theta(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_zonalmean.F |
66 |
EBM_ZONALMEAN |
CountX_tile(j,bi,bj) = CountX_tile(j,bi,bj) + |
|
./pkg/ebm/ebm_zonalmean.F |
67 |
EBM_ZONALMEAN |
& maskC(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_zonalmean.F |
70 |
EBM_ZONALMEAN |
& ZonalMean_tile(j,bi,bj) |
|
./pkg/ebm/ebm_zonalmean.F |
71 |
EBM_ZONALMEAN |
CountX(j,bj) = CountX(j,bj) + CountX_tile(j,bi,bj) |
|
./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 |
36 |
EBM_WIND_PERTURB |
INTEGER i, j, bi, bj |
|
./pkg/ebm/ebm_wind_perturb.F |
53 |
EBM_WIND_PERTURB |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/ebm/ebm_load_climatology.F |
31 |
EBM_LOAD_CLIMATOLOGY |
INTEGER bi,bj,i,j |
|
./pkg/ebm/ebm_load_climatology.F |
62 |
EBM_LOAD_CLIMATOLOGY |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./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 |
81 |
EBM_LOAD_CLIMATOLOGY |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./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 |
39 |
EBM_INI_VARS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./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. |
|
./pkg/ebm/ebm_ini_vars.F |
60 |
EBM_INI_VARS |
DO bi = myBxLo(myThid), myBxHi(myThid) |
|
./pkg/ebm/ebm_ini_vars.F |
67 |
EBM_INI_VARS |
I bi, bj, iMin, iMax, jMin, jMax, |
|
./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 |
102 |
EBM_AREA_T |
TmlN_tile(bi,bj) = TmlN_tile(bi,bj) + |
|
./pkg/ebm/ebm_area_t.F |
103 |
EBM_AREA_T |
& theta(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
104 |
EBM_AREA_T |
CountmlN_tile(bi,bj) = CountmlN_tile(bi,bj) + |
|
./pkg/ebm/ebm_area_t.F |
105 |
EBM_AREA_T |
& maskC(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
112 |
EBM_AREA_T |
TmlS = TmlS + TmlS_tile(bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
113 |
EBM_AREA_T |
CountmlS = CountmlS + CountmlS_tile(bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
114 |
EBM_AREA_T |
TmlN = TmlN + TmlN_tile(bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
115 |
EBM_AREA_T |
CountmlN = CountmlN + CountmlN_tile(bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
116 |
EBM_AREA_T |
TtS = TtS + TtS_tile(bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
117 |
EBM_AREA_T |
CounttS = CounttS + CounttS_tile(bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
118 |
EBM_AREA_T |
TtN = TtN + TtN_tile(bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
119 |
EBM_AREA_T |
CounttN = CounttN + CounttN_tile(bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
41 |
EBM_AREA_T |
INTEGER i, j, k, bi, bj |
|
./pkg/ebm/ebm_area_t.F |
68 |
EBM_AREA_T |
DO bi=myBxLo(myThid),myBxHi(myThid) |
|
./pkg/ebm/ebm_area_t.F |
70 |
EBM_AREA_T |
TmlS_tile(bi,bj) = 0. |
|
./pkg/ebm/ebm_area_t.F |
71 |
EBM_AREA_T |
TmlN_tile(bi,bj) = 0. |
|
./pkg/ebm/ebm_area_t.F |
72 |
EBM_AREA_T |
TtS_tile(bi,bj) = 0. |
|
./pkg/ebm/ebm_area_t.F |
73 |
EBM_AREA_T |
TtN_tile(bi,bj) = 0. |
|
./pkg/ebm/ebm_area_t.F |
74 |
EBM_AREA_T |
CountmlS_tile(bi,bj) = 0. |
|
./pkg/ebm/ebm_area_t.F |
75 |
EBM_AREA_T |
CountmlN_tile(bi,bj) = 0. |
|
./pkg/ebm/ebm_area_t.F |
76 |
EBM_AREA_T |
CounttS_tile(bi,bj) = 0. |
|
./pkg/ebm/ebm_area_t.F |
77 |
EBM_AREA_T |
CounttN_tile(bi,bj) = 0. |
|
./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 |
84 |
EBM_AREA_T |
TmlS_tile(bi,bj) = TmlS_tile(bi,bj) + |
|
./pkg/ebm/ebm_area_t.F |
85 |
EBM_AREA_T |
& theta(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
86 |
EBM_AREA_T |
CountmlS_tile(bi,bj) = CountmlS_tile(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 |
90 |
EBM_AREA_T |
TtS_tile(bi,bj) = TtS_tile(bi,bj) + |
|
./pkg/ebm/ebm_area_t.F |
91 |
EBM_AREA_T |
& theta(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
92 |
EBM_AREA_T |
CounttS_tile(bi,bj) = CounttS_tile(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 |
96 |
EBM_AREA_T |
TtN_tile(bi,bj) = TtN_tile(bi,bj) + |
|
./pkg/ebm/ebm_area_t.F |
97 |
EBM_AREA_T |
& theta(i,j,k,bi,bj) |
|
./pkg/ebm/ebm_area_t.F |
98 |
EBM_AREA_T |
CounttN_tile(bi,bj) = CounttN_tile(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 |
33 |
EXF_CHECK_RANGE |
integer bi,bj |
|
./pkg/exf/exf_check_range.F |
59 |
EXF_CHECK_RANGE |
do bi = itlo,ithi |
|
./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,j,bi,bj)) .GT. 1.E-6 .AND. |
|
./pkg/exf/exf_check_range.F |
76 |
EXF_CHECK_RANGE |
& maskC(i,j,1,bi,bj) .NE. 0. ) then |
|
./pkg/exf/exf_check_range.F |
79 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myiter, sflux(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
84 |
EXF_CHECK_RANGE |
if ( ABS(ustress(i,j,bi,bj)) .GT. 2.7 .AND. |
|
./pkg/exf/exf_check_range.F |
85 |
EXF_CHECK_RANGE |
& maskW(i,j,1,bi,bj) .NE. 0. ) then |
|
./pkg/exf/exf_check_range.F |
88 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myiter, ustress(i,j,bi,bj) |
|
./pkg/exf/exf_check_range.F |
93 |
EXF_CHECK_RANGE |
if ( ABS(vstress(i,j,bi,bj)) .GT. 2.3 .AND. |
|
./pkg/exf/exf_check_range.F |
94 |
EXF_CHECK_RANGE |
& maskS(i,j,1,bi,bj) .NE. 0. ) then |
|
./pkg/exf/exf_check_range.F |
97 |
EXF_CHECK_RANGE |
& bi, bj, i, j, myiter, vstress(i,j,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
173 |
EXF_SET_UV |
do bi = mybxlo(mythid),mybxhi(mythid) |
|
./pkg/exf/exf_set_uv.F |
181 |
EXF_SET_UV |
x1=xG(i-offset,j-offset,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
182 |
EXF_SET_UV |
x2=xG(i-offset+1,j-offset,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
183 |
EXF_SET_UV |
x3=xG(i-offset,j-offset+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
184 |
EXF_SET_UV |
x4=xG(i-offset+1,j-offset+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
191 |
EXF_SET_UV |
y1=yG(i-offset,j-offset,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
192 |
EXF_SET_UV |
y2=yG(i-offset+1,j-offset,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
193 |
EXF_SET_UV |
y3=yG(i-offset,j-offset+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
194 |
EXF_SET_UV |
y4=yG(i-offset+1,j-offset+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
197 |
EXF_SET_UV |
& cos(deg2rad*yC(i-offset,j-offset,bi,bj)) |
|
./pkg/exf/exf_set_uv.F |
199 |
EXF_SET_UV |
vvec1(i,j,bi,bj)= |
|
./pkg/exf/exf_set_uv.F |
200 |
EXF_SET_UV |
& (tmp_u(i-offset,j-offset,bi,bj)*dx+ |
|
./pkg/exf/exf_set_uv.F |
201 |
EXF_SET_UV |
& tmp_v(i-offset,j-offset,bi,bj)*dy)/ |
|
./pkg/exf/exf_set_uv.F |
205 |
EXF_SET_UV |
& cos(deg2rad*yC(i-offset,j-offset,bi,bj)) |
|
./pkg/exf/exf_set_uv.F |
207 |
EXF_SET_UV |
uvec1(i,j,bi,bj)= |
|
./pkg/exf/exf_set_uv.F |
208 |
EXF_SET_UV |
& (tmp_u(i-offset,j-offset,bi,bj)*dx+ |
|
./pkg/exf/exf_set_uv.F |
209 |
EXF_SET_UV |
& tmp_v(i-offset,j-offset,bi,bj)*dy)/ |
|
./pkg/exf/exf_set_uv.F |
277 |
EXF_SET_UV |
do bi = mybxlo(mythid),mybxhi(mythid) |
|
./pkg/exf/exf_set_uv.F |
285 |
EXF_SET_UV |
x1=xG(i-offset,j-offset,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
286 |
EXF_SET_UV |
x2=xG(i-offset+1,j-offset,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
287 |
EXF_SET_UV |
x3=xG(i-offset,j-offset+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
288 |
EXF_SET_UV |
x4=xG(i-offset+1,j-offset+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
295 |
EXF_SET_UV |
y1=yG(i-offset,j-offset,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
296 |
EXF_SET_UV |
y2=yG(i-offset+1,j-offset,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
297 |
EXF_SET_UV |
y3=yG(i-offset,j-offset+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
298 |
EXF_SET_UV |
y4=yG(i-offset+1,j-offset+1,bi,bj) |
|
./pkg/exf/exf_set_uv.F |
301 |
EXF_SET_UV |
& cos(deg2rad*yC(i-offset,j-offset,bi,bj)) |
|
./pkg/exf/exf_set_uv.F |
303 |
EXF_SET_UV |
vvec1(i,j,bi,bj)= |
|
./pkg/exf/exf_set_uv.F |
304 |
EXF_SET_UV |
& (tmp_u(i-offset,j-offset,bi,bj)*dx+ |
|
./pkg/exf/exf_set_uv.F |
305 |
EXF_SET_UV |
& tmp_v(i-offset,j-offset,bi,bj)*dy)/ |
|
./pkg/exf/exf_set_uv.F |
309 |
EXF_SET_UV |
& cos(deg2rad*yC(i-offset,j-offset,bi,bj)) |
|
./pkg/exf/exf_set_uv.F |
311 |
EXF_SET_UV |
uvec1(i,j,bi,bj)= |
|
./pkg/exf/exf_set_uv.F |
312 |
EXF_SET_UV |
& (tmp_u(i-offset,j-offset,bi,bj)*dx+ |
|
./pkg/exf/exf_set_uv.F |
313 |
EXF_SET_UV |
& tmp_v(i-offset,j-offset,bi,bj)*dy)/ |
|
./pkg/exf/exf_set_uv.F |
331 |
EXF_SET_UV |
do bi = mybxlo(mythid),mybxhi(mythid) |
|
./pkg/exf/exf_set_uv.F |
334 |
EXF_SET_UV |
uvec(i,j,bi,bj) = exf_inscal_uvec * ( |
|
./pkg/exf/exf_set_uv.F |
335 |
EXF_SET_UV |
& fac * uvec0(i,j,bi,bj) + |
|
./pkg/exf/exf_set_uv.F |
336 |
EXF_SET_UV |
& (exf_one - fac) * uvec1(i,j,bi,bj) ) |
|
./pkg/exf/exf_set_uv.F |
337 |
EXF_SET_UV |
vvec(i,j,bi,bj) = exf_inscal_vvec * ( |
|
./pkg/exf/exf_set_ |