28 |
|
|
29 |
USE dimens_m, ONLY: iim, jjm |
USE dimens_m, ONLY: iim, jjm |
30 |
USE dimphy, ONLY: klev, klon |
USE dimphy, ONLY: klev, klon |
31 |
|
USE dynetat0_m, ONLY: annee_ref |
32 |
use getso4fromfile_m, only: getso4fromfile |
use getso4fromfile_m, only: getso4fromfile |
|
USE temps, ONLY: annee_ref |
|
33 |
|
|
34 |
! Input: |
! Input: |
35 |
|
|
48 |
INTEGER j, iday, ny, iyr, iyr1, iyr2 |
INTEGER j, iday, ny, iyr, iyr1, iyr2 |
49 |
parameter (ny=jjm+1) |
parameter (ny=jjm+1) |
50 |
|
|
51 |
INTEGER ismaller |
CHARACTER(len=4) cyear |
|
!JLD INTEGER idec1, idec2 ! The two decadal data read ini |
|
|
CHARACTER*4 cyear |
|
52 |
|
|
53 |
INTEGER im, day1, day2, im2 |
INTEGER im, day1, day2, im2 |
54 |
double precision so4_1(iim, jjm+1, klev, 12) |
double precision so4_1(iim, jjm+1, klev, 12) |