42 |
INTEGER j, iday, ny, iyr |
INTEGER j, iday, ny, iyr |
43 |
parameter (ny=jjm+1) |
parameter (ny=jjm+1) |
44 |
|
|
45 |
INTEGER im, day1, day2, im2, ismaller |
INTEGER im, day1, day2, im2 |
46 |
double precision pi_so4_1(iim, jjm+1, klev, 12) |
double precision pi_so4_1(iim, jjm+1, klev, 12) |
47 |
|
|
48 |
double precision pi_so4(klon, klev, 12) ! SO4 in right dimension |
double precision pi_so4(klon, klev, 12) ! SO4 in right dimension |
50 |
double precision pi_so4_out(klon, klev) |
double precision pi_so4_out(klon, klev) |
51 |
SAVE pi_so4_out |
SAVE pi_so4_out |
52 |
|
|
53 |
CHARACTER*4 cyear |
CHARACTER(len=4) cyear |
54 |
LOGICAL lnewday |
LOGICAL lnewday |
55 |
|
|
56 |
|
|