| File |
Line number |
Procedure |
Code |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
114 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
123 |
AIM_SURF_BC |
soilw1(I2,myThid) = aim_sWght0*soilw_0 |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
125 |
AIM_SURF_BC |
soilw1(I2,myThid) = MIN(1. _d 0, soilw1(I2,myThid) ) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
132 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
133 |
AIM_SURF_BC |
snow1(I2) = aim_sWght0*aim_snw0(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
135 |
AIM_SURF_BC |
oice1(I2) = aim_sWght0*aim_oic0(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
169 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
172 |
AIM_SURF_BC |
& *MIN( 1. _d 0, RSD*snow1(I2)) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
176 |
AIM_SURF_BC |
alb1(I2,1,myThid) = alb_land |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
177 |
AIM_SURF_BC |
alb1(I2,2,myThid) = ALBSEA |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
178 |
AIM_SURF_BC |
alb1(I2,3,myThid) = ALBICE |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
197 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
198 |
AIM_SURF_BC |
alb1(I2,1,myThid) = aim_albedo(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
199 |
AIM_SURF_BC |
alb1(I2,2,myThid) = aim_albedo(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
200 |
AIM_SURF_BC |
alb1(I2,3,myThid) = aim_albedo(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
206 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
207 |
AIM_SURF_BC |
alb1(I2,1,myThid) = 0. |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
208 |
AIM_SURF_BC |
alb1(I2,2,myThid) = 0. |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
209 |
AIM_SURF_BC |
alb1(I2,3,myThid) = 0. |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
217 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
218 |
AIM_SURF_BC |
sst1(I2,myThid) = aim_surfTemp(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
219 |
AIM_SURF_BC |
stl1(I2,myThid) = aim_surfTemp(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
220 |
AIM_SURF_BC |
sti1(I2,myThid) = aim_surfTemp(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
226 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
227 |
AIM_SURF_BC |
sst1(I2,myThid) = 300. |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
228 |
AIM_SURF_BC |
stl1(I2,myThid) = 300. |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
229 |
AIM_SURF_BC |
sti1(I2,myThid) = 300. |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
231 |
AIM_SURF_BC |
sst1(I2,myThid) = 280. |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
234 |
AIM_SURF_BC |
stl1(I2,myThid) = sst1(I2,myThid) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
235 |
AIM_SURF_BC |
sti1(I2,myThid) = sst1(I2,myThid) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
252 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
253 |
AIM_SURF_BC |
soilw1(I2,myThid) = aim_soilWater(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
259 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
260 |
AIM_SURF_BC |
soilw1(I2,myThid) = 0. |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
269 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
270 |
AIM_SURF_BC |
oice1(I2) = 0. |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
271 |
AIM_SURF_BC |
snow1(I2) = 0. |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
57 |
AIM_SURF_BC |
INTEGER i,j,I2,k |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
77 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
78 |
AIM_SURF_BC |
fMask1(I2,1,myThid) = aim_landFr(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
96 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
97 |
AIM_SURF_BC |
sst1(I2,myThid) = aim_sWght0*aim_sst0(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
99 |
AIM_SURF_BC |
stl1(I2,myThid) = aim_sWght0*aim_lst0(i,j,bi,bj) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
2826 |
PHI |
integer I1(N),I2(N) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3042 |
PHI |
I2(I) = I1(I) + 1 |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3051 |
PHI |
E2(I) = PHIM0( I2(I) ) |
|
./verification/fizhi-cs-aqualev10/code/fizhi_turb.F |
3063 |
PHI |
E2(I) = PHIH0( I2(I) ) |
|
./pkg/aim_v23/aim_surf_bc.F |
103 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_surf_bc.F |
112 |
AIM_SURF_BC |
soilw1(I2,myThid) = aim_sWght0*soilw_0 |
|
./pkg/aim_v23/aim_surf_bc.F |
114 |
AIM_SURF_BC |
soilw1(I2,myThid) = MIN(1. _d 0, soilw1(I2,myThid) ) |
|
./pkg/aim_v23/aim_surf_bc.F |
121 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_surf_bc.F |
122 |
AIM_SURF_BC |
snow1(I2) = aim_sWght0*aim_snw0(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
124 |
AIM_SURF_BC |
oice1(I2) = aim_sWght0*aim_oic0(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
158 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_surf_bc.F |
161 |
AIM_SURF_BC |
& *MIN( 1. _d 0, RSD*snow1(I2)) |
|
./pkg/aim_v23/aim_surf_bc.F |
165 |
AIM_SURF_BC |
alb1(I2,1,myThid) = alb_land |
|
./pkg/aim_v23/aim_surf_bc.F |
166 |
AIM_SURF_BC |
alb1(I2,2,myThid) = ALBSEA |
|
./pkg/aim_v23/aim_surf_bc.F |
167 |
AIM_SURF_BC |
alb1(I2,3,myThid) = ALBICE |
|
./pkg/aim_v23/aim_surf_bc.F |
186 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_surf_bc.F |
187 |
AIM_SURF_BC |
alb1(I2,1,myThid) = aim_albedo(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
188 |
AIM_SURF_BC |
alb1(I2,2,myThid) = aim_albedo(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
189 |
AIM_SURF_BC |
alb1(I2,3,myThid) = aim_albedo(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
195 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_surf_bc.F |
196 |
AIM_SURF_BC |
alb1(I2,1,myThid) = 0. |
|
./pkg/aim_v23/aim_surf_bc.F |
197 |
AIM_SURF_BC |
alb1(I2,2,myThid) = 0. |
|
./pkg/aim_v23/aim_surf_bc.F |
198 |
AIM_SURF_BC |
alb1(I2,3,myThid) = 0. |
|
./pkg/aim_v23/aim_surf_bc.F |
206 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_surf_bc.F |
207 |
AIM_SURF_BC |
sst1(I2,myThid) = aim_surfTemp(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
208 |
AIM_SURF_BC |
stl1(I2,myThid) = aim_surfTemp(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
209 |
AIM_SURF_BC |
sti1(I2,myThid) = aim_surfTemp(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
215 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_surf_bc.F |
216 |
AIM_SURF_BC |
sst1(I2,myThid) = 300. |
|
./pkg/aim_v23/aim_surf_bc.F |
217 |
AIM_SURF_BC |
stl1(I2,myThid) = 300. |
|
./pkg/aim_v23/aim_surf_bc.F |
218 |
AIM_SURF_BC |
sti1(I2,myThid) = 300. |
|
./pkg/aim_v23/aim_surf_bc.F |
227 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_surf_bc.F |
228 |
AIM_SURF_BC |
soilw1(I2,myThid) = aim_soilWater(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
234 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_surf_bc.F |
235 |
AIM_SURF_BC |
soilw1(I2,myThid) = 0. |
|
./pkg/aim_v23/aim_surf_bc.F |
244 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_surf_bc.F |
245 |
AIM_SURF_BC |
oice1(I2) = 0. |
|
./pkg/aim_v23/aim_surf_bc.F |
246 |
AIM_SURF_BC |
snow1(I2) = 0. |
|
./pkg/aim_v23/aim_surf_bc.F |
57 |
AIM_SURF_BC |
INTEGER i,j,I2,k |
|
./pkg/aim_v23/aim_surf_bc.F |
66 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_surf_bc.F |
67 |
AIM_SURF_BC |
fMask1(I2,1,myThid) = aim_landFr(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
85 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_surf_bc.F |
86 |
AIM_SURF_BC |
sst1(I2,myThid) = aim_sWght0*aim_sst0(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
88 |
AIM_SURF_BC |
stl1(I2,myThid) = aim_sWght0*aim_lst0(i,j,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
111 |
AIM_DYN2AIM |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_dyn2aim.F |
112 |
AIM_DYN2AIM |
dpFac(I2,Katm) = h0FacC(i,j,k,bi,bj)*rStarFacC(i,j,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
122 |
AIM_DYN2AIM |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_dyn2aim.F |
124 |
AIM_DYN2AIM |
dpFac(I2,Katm) = hFac_surfC(i,j,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
126 |
AIM_DYN2AIM |
dpFac(I2,Katm) = hFacC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
141 |
AIM_DYN2AIM |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_dyn2aim.F |
142 |
AIM_DYN2AIM |
dpFac(I2,Katm) = hFacC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
164 |
AIM_DYN2AIM |
I2 = I+(J-1)*sNx |
|
./pkg/aim_v23/aim_dyn2aim.F |
169 |
AIM_DYN2AIM |
TA(I2,Katm) = theta(I,J,K,bi,bj)*conv_theta2T |
|
./pkg/aim_v23/aim_dyn2aim.F |
173 |
AIM_DYN2AIM |
QA(I2,Katm) = MAX(salt(I,J,K,bi,bj), 0. _d 0) |
|
./pkg/aim_v23/aim_dyn2aim.F |
175 |
AIM_DYN2AIM |
ThA(I2,Katm) = theta(I,J,K,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
177 |
AIM_DYN2AIM |
TA(I2,Katm) = 300. _d 0 |
|
./pkg/aim_v23/aim_dyn2aim.F |
178 |
AIM_DYN2AIM |
QA(I2,Katm) = 0. _d 0 |
|
./pkg/aim_v23/aim_dyn2aim.F |
179 |
AIM_DYN2AIM |
ThA(I2,Katm) = 300. _d 0 |
|
./pkg/aim_v23/aim_dyn2aim.F |
188 |
AIM_DYN2AIM |
I2 = I+(J-1)*sNx |
|
./pkg/aim_v23/aim_dyn2aim.F |
191 |
AIM_DYN2AIM |
Vsurf2(I2) = 0.5 * ( |
|
./pkg/aim_v23/aim_dyn2aim.F |
198 |
AIM_DYN2AIM |
Vsurf2(I2) = 0. |
|
./pkg/aim_v23/aim_dyn2aim.F |
206 |
AIM_DYN2AIM |
DO I2=1,NGP |
|
./pkg/aim_v23/aim_dyn2aim.F |
207 |
AIM_DYN2AIM |
IF ( TA(I2,Katm).LT.lwTemp1 .OR. |
|
./pkg/aim_v23/aim_dyn2aim.F |
208 |
AIM_DYN2AIM |
& TA(I2,Katm).GT.lwTemp2 ) THEN |
|
./pkg/aim_v23/aim_dyn2aim.F |
209 |
AIM_DYN2AIM |
i = 1 + mod((I2-1),sNx) |
|
./pkg/aim_v23/aim_dyn2aim.F |
210 |
AIM_DYN2AIM |
j = 1 + int((I2-1)/sNx) |
|
./pkg/aim_v23/aim_dyn2aim.F |
212 |
AIM_DYN2AIM |
& 'AIM_DYN2AIM: Temp=', TA(I2,Katm), |
|
./pkg/aim_v23/aim_dyn2aim.F |
217 |
AIM_DYN2AIM |
& i,j,k,bi,bj,myThid,I2,xC(i,j,bi,bj),yC(i,j,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
237 |
AIM_DYN2AIM |
I2 = I+(J-1)*sNx |
|
./pkg/aim_v23/aim_dyn2aim.F |
238 |
AIM_DYN2AIM |
WVSurf(I2,myThid) = 0. |
|
./pkg/aim_v23/aim_dyn2aim.F |
239 |
AIM_DYN2AIM |
K = kGrd(I2) |
|
./pkg/aim_v23/aim_dyn2aim.F |
244 |
AIM_DYN2AIM |
WVSurf(I2,myThid) = (LOG(PSA(I2))-SIGL(K))*WVI(K-1,1) |
|
./pkg/aim_v23/aim_dyn2aim.F |
65 |
AIM_DYN2AIM |
INTEGER I, J, I2, K, Katm |
|
./pkg/aim_v23/aim_dyn2aim.F |
75 |
AIM_DYN2AIM |
I2 = I+(J-1)*sNx |
|
./pkg/aim_v23/aim_dyn2aim.F |
76 |
AIM_DYN2AIM |
snLat(I2,myThid) = SIN(yC(I,J,bi,bj)*deg2rad) |
|
./pkg/aim_v23/aim_dyn2aim.F |
77 |
AIM_DYN2AIM |
csLat(I2,myThid) = COS(yC(I,J,bi,bj)*deg2rad) |
|
./pkg/aim_v23/aim_dyn2aim.F |
84 |
AIM_DYN2AIM |
I2 = I+(J-1)*sNx |
|
./pkg/aim_v23/aim_dyn2aim.F |
85 |
AIM_DYN2AIM |
kGrd(I2) = (Nr+1) - ksurfC(I,J,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
92 |
AIM_DYN2AIM |
I2 = I+(J-1)*sNx |
|
./pkg/aim_v23/aim_dyn2aim.F |
96 |
AIM_DYN2AIM |
PSA(I2) = Ro_surf(i,j,bi,bj)/atm_po |
|
./pkg/aim_v23/aim_dyn2aim.F |
98 |
AIM_DYN2AIM |
PSA(I2) = 1. |
|
./pkg/aim_v23/aim_aim2land.F |
101 |
AIM_AIM2LAND |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_aim2land.F |
105 |
AIM_AIM2LAND |
& - EVAP(I2,1,myThid)*ALHF |
|
./pkg/aim_v23/aim_aim2land.F |
107 |
AIM_AIM2LAND |
& EVAP(I2,1,myThid)*ALHF |
|
./pkg/aim_v23/aim_aim2land.F |
119 |
AIM_AIM2LAND |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_aim2land.F |
124 |
AIM_AIM2LAND |
& + conv_precip*( PRECNV(I2,myThid) |
|
./pkg/aim_v23/aim_aim2land.F |
125 |
AIM_AIM2LAND |
& + PRECLS(I2,myThid) |
|
./pkg/aim_v23/aim_aim2land.F |
126 |
AIM_AIM2LAND |
& - EVAP(I2,1,myThid) |
|
./pkg/aim_v23/aim_aim2land.F |
137 |
AIM_AIM2LAND |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_aim2land.F |
139 |
AIM_AIM2LAND |
& + EnPrec(I2,myThid)*( PRECNV(I2,myThid) |
|
./pkg/aim_v23/aim_aim2land.F |
140 |
AIM_AIM2LAND |
& +PRECLS(I2,myThid) ) |
|
./pkg/aim_v23/aim_aim2land.F |
61 |
AIM_AIM2LAND |
INTEGER i,j,k,I2 |
|
./pkg/aim_v23/aim_aim2land.F |
86 |
AIM_AIM2LAND |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_aim2land.F |
90 |
AIM_AIM2LAND |
& SSR(I2,k,myThid) |
|
./pkg/aim_v23/aim_aim2land.F |
91 |
AIM_AIM2LAND |
& - SLR(I2,k,myThid) |
|
./pkg/aim_v23/aim_aim2land.F |
92 |
AIM_AIM2LAND |
& - SHF(I2,1,myThid) |
|
./pkg/aim_v23/aim_aim2land.F |
93 |
AIM_AIM2LAND |
& - EVAP(I2,1,myThid)*ALHC |
|
./pkg/aim_v23/aim_do_physics.F |
100 |
AIM_DO_PHYSICS |
I2 = I+(J-1)*sNx |
|
./pkg/aim_v23/aim_do_physics.F |
101 |
AIM_DO_PHYSICS |
PHI0(I2) = gravity*topoZ(i,j,bi,bj) |
|
./pkg/aim_v23/aim_do_physics.F |
64 |
AIM_DO_PHYSICS |
INTEGER I,J,K,I2 |
|
./pkg/aim_v23/aim_land_impl.F |
102 |
AIM_LAND_IMPL |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_land_impl.F |
105 |
AIM_LAND_IMPL |
sFlx(I2,0) = sFlx(I2,0) - ALHF*Evp0(I2) |
|
./pkg/aim_v23/aim_land_impl.F |
106 |
AIM_LAND_IMPL |
sFlx(I2,1) = sFlx(I2,1) - ALHF*EVAP(I2) |
|
./pkg/aim_v23/aim_land_impl.F |
107 |
AIM_LAND_IMPL |
sFlx(I2,2) = sFlx(I2,2) - ALHF*dEvp(I2) |
|
./pkg/aim_v23/aim_land_impl.F |
137 |
AIM_LAND_IMPL |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_land_impl.F |
139 |
AIM_LAND_IMPL |
IF ( dTsurf(I2) .GT. 999. ) THEN |
|
./pkg/aim_v23/aim_land_impl.F |
140 |
AIM_LAND_IMPL |
land_HeatFlx(i,j,bi,bj) = sFlx(I2,0) |
|
./pkg/aim_v23/aim_land_impl.F |
142 |
AIM_LAND_IMPL |
land_HeatFlx(i,j,bi,bj) = sFlx(I2,1)+dTsurf(I2)*sFlx(I2,2) |
|
./pkg/aim_v23/aim_land_impl.F |
145 |
AIM_LAND_IMPL |
land_EnWFlux(i,j,bi,bj) = -land_EnWFlux(i,j,bi,bj)*EVAP(I2) |
|
./pkg/aim_v23/aim_land_impl.F |
81 |
AIM_LAND_IMPL |
INTEGER i,j, I2 |
|
./pkg/aim_v23/aim_land_impl.F |
88 |
AIM_LAND_IMPL |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_land_impl.F |
91 |
AIM_LAND_IMPL |
dTsurf(I2) = 0. |
|
./pkg/aim_v23/aim_aim2sioce.F |
100 |
AIM_AIM2SIOCE |
& SSR(I2,2,myThid) |
|
./pkg/aim_v23/aim_aim2sioce.F |
101 |
AIM_AIM2SIOCE |
& - SLR(I2,2,myThid) |
|
./pkg/aim_v23/aim_aim2sioce.F |
102 |
AIM_AIM2SIOCE |
& - SHF(I2,2,myThid) |
|
./pkg/aim_v23/aim_aim2sioce.F |
103 |
AIM_AIM2SIOCE |
& - EVAP(I2,2,myThid)*ALHC |
|
./pkg/aim_v23/aim_aim2sioce.F |
106 |
AIM_AIM2SIOCE |
EmPmR(i,j,bi,bj) = ( EVAP(I2,2,myThid) |
|
./pkg/aim_v23/aim_aim2sioce.F |
111 |
AIM_AIM2SIOCE |
Qsw(i,j,bi,bj) = SSR(I2,2,myThid) |
|
./pkg/aim_v23/aim_aim2sioce.F |
120 |
AIM_AIM2SIOCE |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_aim2sioce.F |
125 |
AIM_AIM2SIOCE |
evpAtm(i,j) = EVAP(I2,3,myThid)*conv_precip |
|
./pkg/aim_v23/aim_aim2sioce.F |
141 |
AIM_AIM2SIOCE |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_aim2sioce.F |
142 |
AIM_AIM2SIOCE |
IF ( EnPrec(I2,myThid).GE.0. _d 0 ) THEN |
|
./pkg/aim_v23/aim_aim2sioce.F |
145 |
AIM_AIM2SIOCE |
& + EnPrec(I2,myThid)*prcAtm(i,j) |
|
./pkg/aim_v23/aim_aim2sioce.F |
162 |
AIM_AIM2SIOCE |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_aim2sioce.F |
169 |
AIM_AIM2SIOCE |
& + ( SSR(I2,3,myThid) |
|
./pkg/aim_v23/aim_aim2sioce.F |
170 |
AIM_AIM2SIOCE |
& - SLR(I2,3,myThid) |
|
./pkg/aim_v23/aim_aim2sioce.F |
171 |
AIM_AIM2SIOCE |
& - SHF(I2,3,myThid) |
|
./pkg/aim_v23/aim_aim2sioce.F |
172 |
AIM_AIM2SIOCE |
& - EVAP(I2,3,myThid)*ALHC |
|
./pkg/aim_v23/aim_aim2sioce.F |
176 |
AIM_AIM2SIOCE |
& + ( EVAP(I2,3,myThid) |
|
./pkg/aim_v23/aim_aim2sioce.F |
181 |
AIM_AIM2SIOCE |
& + icFrac*SSR(I2,3,myThid) |
|
./pkg/aim_v23/aim_aim2sioce.F |
193 |
AIM_AIM2SIOCE |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_aim2sioce.F |
195 |
AIM_AIM2SIOCE |
& + EnPrec(I2,myThid)*prcAtm(i,j) |
|
./pkg/aim_v23/aim_aim2sioce.F |
76 |
AIM_AIM2SIOCE |
INTEGER i,j,I2 |
|
./pkg/aim_v23/aim_aim2sioce.F |
92 |
AIM_AIM2SIOCE |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_aim2sioce.F |
95 |
AIM_AIM2SIOCE |
prcAtm(i,j) = ( PRECNV(I2,myThid) |
|
./pkg/aim_v23/aim_aim2sioce.F |
96 |
AIM_AIM2SIOCE |
& + PRECLS(I2,myThid) ) |
|
./pkg/aim_v23/aim_aim2dyn.F |
136 |
AIM_AIM2DYN |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_aim2dyn.F |
138 |
AIM_AIM2DYN |
& +TT_LSC(I2,Katm,myThid) |
|
./pkg/aim_v23/aim_aim2dyn.F |
141 |
AIM_AIM2DYN |
& +QT_LSC(I2,Katm,myThid) |
|
./pkg/aim_v23/aim_aim2dyn.F |
57 |
AIM_AIM2DYN |
INTEGER I2, Katm |
|
./pkg/aim_v23/aim_aim2dyn.F |
64 |
AIM_AIM2DYN |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_aim2dyn.F |
65 |
AIM_AIM2DYN |
aim_drag(i,j,bi,bj) = DRAG(I2,0,myThid) |
|
./pkg/aim_v23/aim_aim2dyn.F |
76 |
AIM_AIM2DYN |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_aim2dyn.F |
78 |
AIM_AIM2DYN |
aim_dTdt(i,j,k,bi,bj) = TT_CNV(I2,Katm,myThid) |
|
./pkg/aim_v23/aim_aim2dyn.F |
79 |
AIM_AIM2DYN |
& +TT_PBL(I2,Katm,myThid) |
|
./pkg/aim_v23/aim_aim2dyn.F |
80 |
AIM_AIM2DYN |
& +TT_RSW(I2,Katm,myThid) |
|
./pkg/aim_v23/aim_aim2dyn.F |
81 |
AIM_AIM2DYN |
& +TT_RLW(I2,Katm,myThid) |
|
./pkg/aim_v23/aim_aim2dyn.F |
83 |
AIM_AIM2DYN |
aim_dSdt(i,j,k,bi,bj) = QT_CNV(I2,Katm,myThid) |
|
./pkg/aim_v23/aim_aim2dyn.F |
84 |
AIM_AIM2DYN |
& +QT_PBL(I2,Katm,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
171 |
AIM_DIAGNOSTICS |
I2 = I+(J-1)*sNx |
|
./pkg/aim_v23/aim_diagnostics.F |
173 |
AIM_DIAGNOSTICS |
& + TSR(I2,myThid)*DDTT |
|
./pkg/aim_v23/aim_diagnostics.F |
175 |
AIM_DIAGNOSTICS |
& + OLR(I2,myThid)*DDTT |
|
./pkg/aim_v23/aim_diagnostics.F |
177 |
AIM_DIAGNOSTICS |
& + SSR(I2,0,myThid)*DDTT |
|
./pkg/aim_v23/aim_diagnostics.F |
179 |
AIM_DIAGNOSTICS |
& + SLR(I2,0,myThid)*DDTT |
|
./pkg/aim_v23/aim_diagnostics.F |
181 |
AIM_DIAGNOSTICS |
& + SHF(I2,0,myThid)*DDTT |
|
./pkg/aim_v23/aim_diagnostics.F |
183 |
AIM_DIAGNOSTICS |
& + EVAP(I2,0,myThid)*DDTT |
|
./pkg/aim_v23/aim_diagnostics.F |
185 |
AIM_DIAGNOSTICS |
& + PRECNV(I2,myThid)*DDTT |
|
./pkg/aim_v23/aim_diagnostics.F |
187 |
AIM_DIAGNOSTICS |
& + PRECLS(I2,myThid)*DDTT |
|
./pkg/aim_v23/aim_diagnostics.F |
189 |
AIM_DIAGNOSTICS |
& + CLOUDC(I2,myThid)*DDTT |
|
./pkg/aim_v23/aim_diagnostics.F |
191 |
AIM_DIAGNOSTICS |
& + CLTOP(I2,myThid)*DDTT |
|
./pkg/aim_v23/aim_diagnostics.F |
193 |
AIM_DIAGNOSTICS |
& + CBMF(I2,myThid)*DDTT |
|
./pkg/aim_v23/aim_diagnostics.F |
195 |
AIM_DIAGNOSTICS |
& + DRAG(I2,0,myThid)*DDTT |
|
./pkg/aim_v23/aim_diagnostics.F |
197 |
AIM_DIAGNOSTICS |
& + SPEED0(I2,myThid)*DDTT |
|
./pkg/aim_v23/aim_diagnostics.F |
199 |
AIM_DIAGNOSTICS |
& + T0(I2,myThid)*DDTT |
|
./pkg/aim_v23/aim_diagnostics.F |
201 |
AIM_DIAGNOSTICS |
& + Q0(I2,myThid)*DDTT |
|
./pkg/aim_v23/aim_diagnostics.F |
203 |
AIM_DIAGNOSTICS |
& + EnPrec(I2,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
204 |
AIM_DIAGNOSTICS |
& *(PRECNV(I2,myThid)+ |
|
./pkg/aim_v23/aim_diagnostics.F |
205 |
AIM_DIAGNOSTICS |
& PRECLS(I2,myThid))*DDTT |
|
./pkg/aim_v23/aim_diagnostics.F |
207 |
AIM_DIAGNOSTICS |
& + alb1(I2,0,myThid)*DDTT |
|
./pkg/aim_v23/aim_diagnostics.F |
209 |
AIM_DIAGNOSTICS |
& + dTsurf(I2,1,myThid)*DDTT |
|
./pkg/aim_v23/aim_diagnostics.F |
218 |
AIM_DIAGNOSTICS |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_diagnostics.F |
220 |
AIM_DIAGNOSTICS |
& + RH(I2,Katm,myThid)*DDTT |
|
./pkg/aim_v23/aim_diagnostics.F |
42 |
AIM_DIAGNOSTICS |
INTEGER I,J,K, I2,Katm |
|
./pkg/sphere/sphere.F |
403 |
SHC4ZONE |
INTEGER JP, I1, I2 |
|
./pkg/sphere/sphere.F |
441 |
SHC4ZONE |
I2 = I+2 |
|
./pkg/sphere/sphere.F |
448 |
SHC4ZONE |
SHC(K+M) = SHC(K+M) + P(I2) * CO |
|
./pkg/sphere/sphere.F |
449 |
SHC4ZONE |
SHC(K-M) = SHC(K-M) + P(I2) * SO |
|
./pkg/fizhi/fizhi_moist.F |
1448 |
CLOUD |
*, IA, I1, I2,rhfrac) |
|
./pkg/fizhi/fizhi_moist.F |
1591 |
CLOUD |
integer IA(LENC), I1(LENC),I2(LENC) |
|
./pkg/fizhi/fizhi_moist.F |
1833 |
CLOUD |
I2(LENA) = I |
|
./pkg/fizhi/fizhi_moist.F |
1846 |
CLOUD |
I2(LENB) = I |
|
./pkg/fizhi/fizhi_moist.F |
1872 |
CLOUD |
TX1(I) = ETA(I2(I),L) |
|
./pkg/fizhi/fizhi_turb.F |
2787 |
PHI |
integer I1(N),I2(N) |
|
./pkg/fizhi/fizhi_turb.F |
3003 |
PHI |
I2(I) = I1(I) + 1 |
|
./pkg/fizhi/fizhi_turb.F |
3012 |
PHI |
E2(I) = PHIM0( I2(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
3024 |
PHI |
E2(I) = PHIH0( I2(I) ) |
|
./pkg/offline/offline_fields_load.F |
103 |
OFFLINE_FIELDS_LOAD |
INTEGER I1, I2 |
|
./pkg/offline/offline_fields_load.F |
176 |
OFFLINE_FIELDS_LOAD |
I2=ILNBLNK(fn2) |
|
./pkg/offline/offline_fields_load.F |
177 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
180 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
188 |
OFFLINE_FIELDS_LOAD |
I2=ILNBLNK(fn2) |
|
./pkg/offline/offline_fields_load.F |
189 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
192 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
200 |
OFFLINE_FIELDS_LOAD |
I2=ILNBLNK(fn2) |
|
./pkg/offline/offline_fields_load.F |
201 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
204 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
212 |
OFFLINE_FIELDS_LOAD |
I2=ILNBLNK(fn2) |
|
./pkg/offline/offline_fields_load.F |
213 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
216 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
224 |
OFFLINE_FIELDS_LOAD |
I2=ILNBLNK(fn2) |
|
./pkg/offline/offline_fields_load.F |
225 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
228 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
236 |
OFFLINE_FIELDS_LOAD |
I2=ILNBLNK(fn2) |
|
./pkg/offline/offline_fields_load.F |
237 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
240 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
249 |
OFFLINE_FIELDS_LOAD |
I2=ILNBLNK(fn2) |
|
./pkg/offline/offline_fields_load.F |
250 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
253 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
261 |
OFFLINE_FIELDS_LOAD |
I2=ILNBLNK(fn2) |
|
./pkg/offline/offline_fields_load.F |
262 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
265 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
273 |
OFFLINE_FIELDS_LOAD |
I2=ILNBLNK(fn2) |
|
./pkg/offline/offline_fields_load.F |
274 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
277 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
285 |
OFFLINE_FIELDS_LOAD |
I2=ILNBLNK(fn2) |
|
./pkg/offline/offline_fields_load.F |
286 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
289 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
297 |
OFFLINE_FIELDS_LOAD |
I2=ILNBLNK(fn2) |
|
./pkg/offline/offline_fields_load.F |
298 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
301 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') fn2(I1:I2),'.', |