| File |
Line number |
Procedure |
Code |
|
./pkg/fizhi/fizhi_moist.F |
1508 |
CLOUD |
*, IA, I1, I2,rhfrac) |
|
./pkg/fizhi/fizhi_moist.F |
1651 |
CLOUD |
integer IA(LENC), I1(LENC),I2(LENC) |
|
./pkg/fizhi/fizhi_moist.F |
1899 |
CLOUD |
I2(LENA) = I |
|
./pkg/fizhi/fizhi_moist.F |
1912 |
CLOUD |
I2(LENB) = I |
|
./pkg/fizhi/fizhi_moist.F |
1944 |
CLOUD |
TX1(I) = ETA(I2(I),L) |
|
./pkg/fizhi/fizhi_turb.F |
2761 |
PHI |
integer I1(N),I2(N) |
|
./pkg/fizhi/fizhi_turb.F |
2977 |
PHI |
I2(I) = I1(I) + 1 |
|
./pkg/fizhi/fizhi_turb.F |
2986 |
PHI |
E2(I) = PHIM0( I2(I) ) |
|
./pkg/fizhi/fizhi_turb.F |
2998 |
PHI |
E2(I) = PHIH0( I2(I) ) |
|
./pkg/offline/offline_fields_load.F |
151 |
OFFLINE_FIELDS_LOAD |
I2=ILNBLNK(Uvelfile) |
|
./pkg/offline/offline_fields_load.F |
152 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') Uvelfile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
156 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') Uvelfile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
163 |
OFFLINE_FIELDS_LOAD |
I2=ILNBLNK(Vvelfile) |
|
./pkg/offline/offline_fields_load.F |
164 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') Vvelfile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
167 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') Vvelfile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
178 |
OFFLINE_FIELDS_LOAD |
I2=ILNBLNK(Wvelfile) |
|
./pkg/offline/offline_fields_load.F |
179 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') Wvelfile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
182 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') Wvelfile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
191 |
OFFLINE_FIELDS_LOAD |
I2=ILNBLNK(Thetfile) |
|
./pkg/offline/offline_fields_load.F |
192 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') Thetfile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
195 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') Thetfile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
204 |
OFFLINE_FIELDS_LOAD |
I2=ILNBLNK(Saltfile) |
|
./pkg/offline/offline_fields_load.F |
205 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') Saltfile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
208 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') Saltfile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
218 |
OFFLINE_FIELDS_LOAD |
I2=ILNBLNK(GMwxFile) |
|
./pkg/offline/offline_fields_load.F |
219 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') GMwxFile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
222 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') GMwxFile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
228 |
OFFLINE_FIELDS_LOAD |
I2=ILNBLNK(GMwyFile) |
|
./pkg/offline/offline_fields_load.F |
229 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') GMwyFile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
232 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') GMwyFile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
243 |
OFFLINE_FIELDS_LOAD |
I2=ILNBLNK(GMwzFile) |
|
./pkg/offline/offline_fields_load.F |
244 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') GMwzFile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
247 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') GMwzFile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
257 |
OFFLINE_FIELDS_LOAD |
I2=ILNBLNK(ConvFile) |
|
./pkg/offline/offline_fields_load.F |
258 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') ConvFile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
261 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') ConvFile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
271 |
OFFLINE_FIELDS_LOAD |
I2=ILNBLNK(KPP_DiffSFile) |
|
./pkg/offline/offline_fields_load.F |
272 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') KPP_DiffSFile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
275 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') KPP_DiffSFile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
286 |
OFFLINE_FIELDS_LOAD |
I2=ILNBLNK(KPP_ghatKFile) |
|
./pkg/offline/offline_fields_load.F |
287 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') KPP_ghatKFile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
290 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') KPP_ghatKFile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
315 |
OFFLINE_FIELDS_LOAD |
I2=ILNBLNK(SFluxFile) |
|
./pkg/offline/offline_fields_load.F |
316 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') SFluxFile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
319 |
OFFLINE_FIELDS_LOAD |
WRITE(fn,'(A,A,I10.10)') SFluxFile(I1:I2),'.', |
|
./pkg/offline/offline_fields_load.F |
77 |
OFFLINE_FIELDS_LOAD |
INTEGER I1, I2 |
|
./pkg/sphere/sphere.F |
405 |
SHC4ZONE |
INTEGER JP, I1, I2 |
|
./pkg/sphere/sphere.F |
443 |
SHC4ZONE |
I2 = I+2 |
|
./pkg/sphere/sphere.F |
450 |
SHC4ZONE |
SHC(K+M) = SHC(K+M) + P(I2) * CO |
|
./pkg/sphere/sphere.F |
451 |
SHC4ZONE |
SHC(K-M) = SHC(K-M) + P(I2) * SO |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
119 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
120 |
AIM_SURF_BC |
fMask1(I2,1,myThid) = aim_landFr(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
159 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
160 |
AIM_SURF_BC |
sst1(I2,myThid) = aim_sWght0*aim_sst0(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
162 |
AIM_SURF_BC |
stl1(I2,myThid) = aim_sWght0*aim_lst0(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
177 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
186 |
AIM_SURF_BC |
soilw1(I2,myThid) = aim_sWght0*soilw_0 |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
188 |
AIM_SURF_BC |
soilw1(I2,myThid) = MIN(1. _d 0, soilw1(I2,myThid) ) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
195 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
196 |
AIM_SURF_BC |
snow1(I2) = aim_sWght0*aim_snw0(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
198 |
AIM_SURF_BC |
oice1(I2) = aim_sWght0*aim_oic0(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
242 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
245 |
AIM_SURF_BC |
& *MIN( 1. _d 0, RSD*snow1(I2)) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
274 |
AIM_SURF_BC |
alb1(I2,1,myThid) = alb_land |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
276 |
AIM_SURF_BC |
alb1(I2,2,myThid) = 0.5 _d 0 * ALBSEA |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
278 |
AIM_SURF_BC |
alb1(I2,3,myThid) = ALBICE |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
302 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
303 |
AIM_SURF_BC |
alb1(I2,1,myThid) = aim_albedo(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
304 |
AIM_SURF_BC |
alb1(I2,2,myThid) = aim_albedo(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
305 |
AIM_SURF_BC |
alb1(I2,3,myThid) = aim_albedo(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
311 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
312 |
AIM_SURF_BC |
alb1(I2,1,myThid) = 0. |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
313 |
AIM_SURF_BC |
alb1(I2,2,myThid) = 0. |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
314 |
AIM_SURF_BC |
alb1(I2,3,myThid) = 0. |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
322 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
323 |
AIM_SURF_BC |
sst1(I2,myThid) = aim_sst0(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
324 |
AIM_SURF_BC |
stl1(I2,myThid) = aim_sst0(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
325 |
AIM_SURF_BC |
sti1(I2,myThid) = aim_sst0(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
331 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
332 |
AIM_SURF_BC |
sst1(I2,myThid) = 300. |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
333 |
AIM_SURF_BC |
stl1(I2,myThid) = 300. |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
334 |
AIM_SURF_BC |
sti1(I2,myThid) = 300. |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
336 |
AIM_SURF_BC |
sst1(I2,myThid) = 280. |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
339 |
AIM_SURF_BC |
stl1(I2,myThid) = sst1(I2,myThid) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
340 |
AIM_SURF_BC |
sti1(I2,myThid) = sst1(I2,myThid) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
357 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
358 |
AIM_SURF_BC |
soilw1(I2,myThid) = aim_sw10(i,j,bi,bj) |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
364 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
365 |
AIM_SURF_BC |
soilw1(I2,myThid) = 0. |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
374 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
375 |
AIM_SURF_BC |
oice1(I2) = 0. |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
376 |
AIM_SURF_BC |
snow1(I2) = 0. |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
397 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
398 |
AIM_SURF_BC |
aim_CO2(I2,myThid)= atm_pCO2 |
|
./verification/aim.5l_Equatorial_Channel/code/aim_surf_bc.F |
92 |
AIM_SURF_BC |
INTEGER i,j,I2,k, nm0 |
|
./pkg/aim_v23/aim_aim2dyn.F |
112 |
AIM_AIM2DYN |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_aim2dyn.F |
114 |
AIM_AIM2DYN |
aim_dTdt(i,j,k,bi,bj) = ( TT_CNV(I2,Katm,myThid) |
|
./pkg/aim_v23/aim_aim2dyn.F |
115 |
AIM_AIM2DYN |
& +TT_PBL(I2,Katm,myThid) |
|
./pkg/aim_v23/aim_aim2dyn.F |
116 |
AIM_AIM2DYN |
& +TT_RSW(I2,Katm,myThid) |
|
./pkg/aim_v23/aim_aim2dyn.F |
117 |
AIM_AIM2DYN |
& +TT_RLW(I2,Katm,myThid) |
|
./pkg/aim_v23/aim_aim2dyn.F |
118 |
AIM_AIM2DYN |
& +TT_LSC(I2,Katm,myThid) |
|
./pkg/aim_v23/aim_aim2dyn.F |
121 |
AIM_AIM2DYN |
aim_dSdt(i,j,k,bi,bj) = QT_CNV(I2,Katm,myThid) |
|
./pkg/aim_v23/aim_aim2dyn.F |
122 |
AIM_AIM2DYN |
& +QT_PBL(I2,Katm,myThid) |
|
./pkg/aim_v23/aim_aim2dyn.F |
123 |
AIM_AIM2DYN |
& +QT_LSC(I2,Katm,myThid) |
|
./pkg/aim_v23/aim_aim2dyn.F |
66 |
AIM_AIM2DYN |
INTEGER I2, Katm |
|
./pkg/aim_v23/aim_aim2dyn.F |
88 |
AIM_AIM2DYN |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_aim2dyn.F |
89 |
AIM_AIM2DYN |
aim_drag(i,j,bi,bj) = DRAG(I2,0,myThid) |
|
./pkg/aim_v23/aim_aim2dyn.F |
97 |
AIM_AIM2DYN |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_aim2dyn.F |
98 |
AIM_AIM2DYN |
aim_surfWind(i,j,bi,bj) = SPEED0(I2,myThid) |
|
./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_aim2sioce.F |
109 |
AIM_AIM2SIOCE |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_aim2sioce.F |
112 |
AIM_AIM2SIOCE |
prcAtm(i,j) = ( PRECNV(I2,myThid) |
|
./pkg/aim_v23/aim_aim2sioce.F |
113 |
AIM_AIM2SIOCE |
& + PRECLS(I2,myThid) ) |
|
./pkg/aim_v23/aim_aim2sioce.F |
119 |
AIM_AIM2SIOCE |
& SSR(I2,2,myThid) |
|
./pkg/aim_v23/aim_aim2sioce.F |
120 |
AIM_AIM2SIOCE |
& - SLR(I2,2,myThid) |
|
./pkg/aim_v23/aim_aim2sioce.F |
121 |
AIM_AIM2SIOCE |
& - SHF(I2,2,myThid) |
|
./pkg/aim_v23/aim_aim2sioce.F |
122 |
AIM_AIM2SIOCE |
& - EVAP(I2,2,myThid)*ALHC |
|
./pkg/aim_v23/aim_aim2sioce.F |
125 |
AIM_AIM2SIOCE |
EmPmR(i,j,bi,bj) = ( EVAP(I2,2,myThid) |
|
./pkg/aim_v23/aim_aim2sioce.F |
129 |
AIM_AIM2SIOCE |
Qsw(i,j,bi,bj) = SSR(I2,2,myThid) |
|
./pkg/aim_v23/aim_aim2sioce.F |
139 |
AIM_AIM2SIOCE |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_aim2sioce.F |
145 |
AIM_AIM2SIOCE |
icFrwAtm(i,j,bi,bj) = EVAP(I2,3,myThid)*convPrcEvp |
|
./pkg/aim_v23/aim_aim2sioce.F |
164 |
AIM_AIM2SIOCE |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_aim2sioce.F |
165 |
AIM_AIM2SIOCE |
IF ( EnPrec(I2,myThid).GE.0. _d 0 ) THEN |
|
./pkg/aim_v23/aim_aim2sioce.F |
168 |
AIM_AIM2SIOCE |
& + EnPrec(I2,myThid)*prcAtm(i,j) |
|
./pkg/aim_v23/aim_aim2sioce.F |
189 |
AIM_AIM2SIOCE |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_aim2sioce.F |
196 |
AIM_AIM2SIOCE |
& + ( SSR(I2,3,myThid) |
|
./pkg/aim_v23/aim_aim2sioce.F |
197 |
AIM_AIM2SIOCE |
& - SLR(I2,3,myThid) |
|
./pkg/aim_v23/aim_aim2sioce.F |
198 |
AIM_AIM2SIOCE |
& - SHF(I2,3,myThid) |
|
./pkg/aim_v23/aim_aim2sioce.F |
199 |
AIM_AIM2SIOCE |
& - EVAP(I2,3,myThid)*ALHC |
|
./pkg/aim_v23/aim_aim2sioce.F |
203 |
AIM_AIM2SIOCE |
& + ( EVAP(I2,3,myThid) |
|
./pkg/aim_v23/aim_aim2sioce.F |
208 |
AIM_AIM2SIOCE |
& + icFrac*SSR(I2,3,myThid) |
|
./pkg/aim_v23/aim_aim2sioce.F |
221 |
AIM_AIM2SIOCE |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_aim2sioce.F |
223 |
AIM_AIM2SIOCE |
& + EnPrec(I2,myThid)*prcAtm(i,j) |
|
./pkg/aim_v23/aim_aim2sioce.F |
90 |
AIM_AIM2SIOCE |
INTEGER i,j,I2 |
|
./pkg/aim_v23/aim_diagnostics.F |
321 |
AIM_DIAGNOSTICS |
I2 = I+(J-1)*sNx |
|
./pkg/aim_v23/aim_diagnostics.F |
323 |
AIM_DIAGNOSTICS |
& + TSR(I2,myThid)*DDTT |
|
./pkg/aim_v23/aim_diagnostics.F |
325 |
AIM_DIAGNOSTICS |
& + OLR(I2,myThid)*DDTT |
|
./pkg/aim_v23/aim_diagnostics.F |
327 |
AIM_DIAGNOSTICS |
& + SSR(I2,0,myThid)*DDTT |
|
./pkg/aim_v23/aim_diagnostics.F |
329 |
AIM_DIAGNOSTICS |
& + SLR(I2,0,myThid)*DDTT |
|
./pkg/aim_v23/aim_diagnostics.F |
331 |
AIM_DIAGNOSTICS |
& + SHF(I2,0,myThid)*DDTT |
|
./pkg/aim_v23/aim_diagnostics.F |
333 |
AIM_DIAGNOSTICS |
& + EVAP(I2,0,myThid)*DDTT |
|
./pkg/aim_v23/aim_diagnostics.F |
335 |
AIM_DIAGNOSTICS |
& + PRECNV(I2,myThid)*DDTT |
|
./pkg/aim_v23/aim_diagnostics.F |
337 |
AIM_DIAGNOSTICS |
& + PRECLS(I2,myThid)*DDTT |
|
./pkg/aim_v23/aim_diagnostics.F |
339 |
AIM_DIAGNOSTICS |
& + CLOUDC(I2,myThid)*DDTT |
|
./pkg/aim_v23/aim_diagnostics.F |
341 |
AIM_DIAGNOSTICS |
& + CLTOP(I2,myThid)*DDTT |
|
./pkg/aim_v23/aim_diagnostics.F |
343 |
AIM_DIAGNOSTICS |
& + CBMF(I2,myThid)*DDTT |
|
./pkg/aim_v23/aim_diagnostics.F |
345 |
AIM_DIAGNOSTICS |
& + DRAG(I2,0,myThid)*DDTT |
|
./pkg/aim_v23/aim_diagnostics.F |
347 |
AIM_DIAGNOSTICS |
& + SPEED0(I2,myThid)*DDTT |
|
./pkg/aim_v23/aim_diagnostics.F |
349 |
AIM_DIAGNOSTICS |
& + T0(I2,myThid)*DDTT |
|
./pkg/aim_v23/aim_diagnostics.F |
351 |
AIM_DIAGNOSTICS |
& + Q0(I2,myThid)*DDTT |
|
./pkg/aim_v23/aim_diagnostics.F |
353 |
AIM_DIAGNOSTICS |
& + EnPrec(I2,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
354 |
AIM_DIAGNOSTICS |
& *(PRECNV(I2,myThid)+ |
|
./pkg/aim_v23/aim_diagnostics.F |
355 |
AIM_DIAGNOSTICS |
& PRECLS(I2,myThid))*DDTT |
|
./pkg/aim_v23/aim_diagnostics.F |
357 |
AIM_DIAGNOSTICS |
& + alb1(I2,0,myThid)*DDTT |
|
./pkg/aim_v23/aim_diagnostics.F |
359 |
AIM_DIAGNOSTICS |
& + dTsurf(I2,1,myThid)*DDTT |
|
./pkg/aim_v23/aim_diagnostics.F |
368 |
AIM_DIAGNOSTICS |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_diagnostics.F |
370 |
AIM_DIAGNOSTICS |
& + RH(I2,Katm,myThid)*DDTT |
|
./pkg/aim_v23/aim_diagnostics.F |
57 |
AIM_DIAGNOSTICS |
INTEGER I,J,K, I2,Katm |
|
./pkg/aim_v23/aim_do_physics.F |
134 |
AIM_DO_PHYSICS |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_do_physics.F |
135 |
AIM_DO_PHYSICS |
PHI0(I2) = gravity*topoZ(i,j,bi,bj) |
|
./pkg/aim_v23/aim_do_physics.F |
75 |
AIM_DO_PHYSICS |
INTEGER i,j,k,I2 |
|
./pkg/aim_v23/aim_dyn2aim.F |
101 |
AIM_DYN2AIM |
PSA(I2) = 1. |
|
./pkg/aim_v23/aim_dyn2aim.F |
114 |
AIM_DYN2AIM |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_dyn2aim.F |
115 |
AIM_DYN2AIM |
dpFac(I2,Katm) = h0FacC(i,j,k,bi,bj)*rStarFacC(i,j,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
125 |
AIM_DYN2AIM |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_dyn2aim.F |
127 |
AIM_DYN2AIM |
dpFac(I2,Katm) = hFac_surfC(i,j,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
129 |
AIM_DYN2AIM |
dpFac(I2,Katm) = hFacC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
144 |
AIM_DYN2AIM |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_dyn2aim.F |
145 |
AIM_DYN2AIM |
dpFac(I2,Katm) = hFacC(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
167 |
AIM_DYN2AIM |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_dyn2aim.F |
172 |
AIM_DYN2AIM |
TA(I2,Katm) = theta(i,j,k,bi,bj)*conv_theta2T |
|
./pkg/aim_v23/aim_dyn2aim.F |
176 |
AIM_DYN2AIM |
QA(I2,Katm) = MAX( salt(i,j,k,bi,bj), zeroRL ) |
|
./pkg/aim_v23/aim_dyn2aim.F |
178 |
AIM_DYN2AIM |
ThA(I2,Katm) = theta(i,j,k,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
180 |
AIM_DYN2AIM |
TA(I2,Katm) = 300. _d 0 |
|
./pkg/aim_v23/aim_dyn2aim.F |
181 |
AIM_DYN2AIM |
QA(I2,Katm) = 0. _d 0 |
|
./pkg/aim_v23/aim_dyn2aim.F |
182 |
AIM_DYN2AIM |
ThA(I2,Katm) = 300. _d 0 |
|
./pkg/aim_v23/aim_dyn2aim.F |
190 |
AIM_DYN2AIM |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_dyn2aim.F |
191 |
AIM_DYN2AIM |
TA(I2,Katm) = TA(I2,Katm)*pStarFacK(i,j,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
201 |
AIM_DYN2AIM |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_dyn2aim.F |
204 |
AIM_DYN2AIM |
Vsurf2(I2) = 0.5 * ( |
|
./pkg/aim_v23/aim_dyn2aim.F |
211 |
AIM_DYN2AIM |
Vsurf2(I2) = 0. |
|
./pkg/aim_v23/aim_dyn2aim.F |
219 |
AIM_DYN2AIM |
DO I2=1,NGP |
|
./pkg/aim_v23/aim_dyn2aim.F |
220 |
AIM_DYN2AIM |
IF ( TA(I2,Katm).LT.lwTemp1 .OR. |
|
./pkg/aim_v23/aim_dyn2aim.F |
221 |
AIM_DYN2AIM |
& TA(I2,Katm).GT.lwTemp2 ) THEN |
|
./pkg/aim_v23/aim_dyn2aim.F |
222 |
AIM_DYN2AIM |
i = 1 + mod((I2-1),sNx) |
|
./pkg/aim_v23/aim_dyn2aim.F |
223 |
AIM_DYN2AIM |
j = 1 + int((I2-1)/sNx) |
|
./pkg/aim_v23/aim_dyn2aim.F |
225 |
AIM_DYN2AIM |
& 'AIM_DYN2AIM: Temp=', TA(I2,Katm), |
|
./pkg/aim_v23/aim_dyn2aim.F |
230 |
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 |
250 |
AIM_DYN2AIM |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_dyn2aim.F |
251 |
AIM_DYN2AIM |
WVSurf(I2,myThid) = 0. |
|
./pkg/aim_v23/aim_dyn2aim.F |
252 |
AIM_DYN2AIM |
k = kGrd(I2) |
|
./pkg/aim_v23/aim_dyn2aim.F |
257 |
AIM_DYN2AIM |
WVSurf(I2,myThid) = (LOG(PSA(I2))-SIGL(k))*WVI(k-1,1) |
|
./pkg/aim_v23/aim_dyn2aim.F |
68 |
AIM_DYN2AIM |
INTEGER i, j, I2, k, Katm |
|
./pkg/aim_v23/aim_dyn2aim.F |
78 |
AIM_DYN2AIM |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_dyn2aim.F |
79 |
AIM_DYN2AIM |
snLat(I2,myThid) = SIN(yC(i,j,bi,bj)*deg2rad) |
|
./pkg/aim_v23/aim_dyn2aim.F |
80 |
AIM_DYN2AIM |
csLat(I2,myThid) = COS(yC(i,j,bi,bj)*deg2rad) |
|
./pkg/aim_v23/aim_dyn2aim.F |
87 |
AIM_DYN2AIM |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_dyn2aim.F |
88 |
AIM_DYN2AIM |
kGrd(I2) = (Nr+1) - kSurfC(i,j,bi,bj) |
|
./pkg/aim_v23/aim_dyn2aim.F |
95 |
AIM_DYN2AIM |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_dyn2aim.F |
99 |
AIM_DYN2AIM |
PSA(I2) = Ro_surf(i,j,bi,bj)/atm_Po |
|
./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_surf_bc.F |
102 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_surf_bc.F |
103 |
AIM_SURF_BC |
fMask1(I2,1,myThid) = aim_landFr(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
142 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_surf_bc.F |
143 |
AIM_SURF_BC |
sst1(I2,myThid) = aim_sWght0*aim_sst0(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
145 |
AIM_SURF_BC |
stl1(I2,myThid) = aim_sWght0*aim_lst0(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
160 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_surf_bc.F |
169 |
AIM_SURF_BC |
soilw1(I2,myThid) = aim_sWght0*soilw_0 |
|
./pkg/aim_v23/aim_surf_bc.F |
171 |
AIM_SURF_BC |
soilw1(I2,myThid) = MIN(1. _d 0, soilw1(I2,myThid) ) |
|
./pkg/aim_v23/aim_surf_bc.F |
178 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_surf_bc.F |
179 |
AIM_SURF_BC |
snow1(I2) = aim_sWght0*aim_snw0(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
181 |
AIM_SURF_BC |
oice1(I2) = aim_sWght0*aim_oic0(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
225 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_surf_bc.F |
228 |
AIM_SURF_BC |
& *MIN( 1. _d 0, RSD*snow1(I2)) |
|
./pkg/aim_v23/aim_surf_bc.F |
257 |
AIM_SURF_BC |
alb1(I2,1,myThid) = alb_land |
|
./pkg/aim_v23/aim_surf_bc.F |
259 |
AIM_SURF_BC |
alb1(I2,2,myThid) = 0.5 _d 0 * ALBSEA |
|
./pkg/aim_v23/aim_surf_bc.F |
261 |
AIM_SURF_BC |
alb1(I2,3,myThid) = ALBICE |
|
./pkg/aim_v23/aim_surf_bc.F |
285 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_surf_bc.F |
286 |
AIM_SURF_BC |
alb1(I2,1,myThid) = aim_albedo(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
287 |
AIM_SURF_BC |
alb1(I2,2,myThid) = aim_albedo(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
288 |
AIM_SURF_BC |
alb1(I2,3,myThid) = aim_albedo(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
294 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_surf_bc.F |
295 |
AIM_SURF_BC |
alb1(I2,1,myThid) = 0. |
|
./pkg/aim_v23/aim_surf_bc.F |
296 |
AIM_SURF_BC |
alb1(I2,2,myThid) = 0. |
|
./pkg/aim_v23/aim_surf_bc.F |
297 |
AIM_SURF_BC |
alb1(I2,3,myThid) = 0. |
|
./pkg/aim_v23/aim_surf_bc.F |
305 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_surf_bc.F |
306 |
AIM_SURF_BC |
sst1(I2,myThid) = aim_sst0(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
307 |
AIM_SURF_BC |
stl1(I2,myThid) = aim_sst0(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
308 |
AIM_SURF_BC |
sti1(I2,myThid) = aim_sst0(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
314 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_surf_bc.F |
315 |
AIM_SURF_BC |
sst1(I2,myThid) = 300. |
|
./pkg/aim_v23/aim_surf_bc.F |
316 |
AIM_SURF_BC |
stl1(I2,myThid) = 300. |
|
./pkg/aim_v23/aim_surf_bc.F |
317 |
AIM_SURF_BC |
sti1(I2,myThid) = 300. |
|
./pkg/aim_v23/aim_surf_bc.F |
326 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_surf_bc.F |
327 |
AIM_SURF_BC |
soilw1(I2,myThid) = aim_sw10(i,j,bi,bj) |
|
./pkg/aim_v23/aim_surf_bc.F |
333 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_surf_bc.F |
334 |
AIM_SURF_BC |
soilw1(I2,myThid) = 0. |
|
./pkg/aim_v23/aim_surf_bc.F |
343 |
AIM_SURF_BC |
I2 = i+(j-1)*sNx |
|
./pkg/aim_v23/aim_surf_bc.F |
344 |
AIM_SURF_BC |
oice1(I2) = 0. |
|
./pkg/aim_v23/aim_surf_bc.F |
345 |
AIM_SURF_BC |
snow1(I2) = 0. |
|
./pkg/aim_v23/aim_surf_bc.F |
86 |
AIM_SURF_BC |
INTEGER i,j,I2,k, nm0 |