52c52,58
< 
---
> !      INTEGER, PARAMETER :: MONTHS_PER_YEAR = 07
> !      INTEGER, PARAMETER :: mday(MONTHS_PER_YEAR)   &
> !                          = (/99,99,99,99,99,99,75/)
> !      INTEGER, PARAMETER :: mdayleap(MONTHS_PER_YEAR) &
> !                          = (/99,99,99,99,99,99,75/)
> !
> !*****Similar monthes as the GCM
55c61
<                           = (/31,28,31,30,31,30,31,31,30,31,30,31/)
---
>                           = (/61,66,66,65,60,54,50,46,47,47,51,56/)
57,59c63,66
<                           = (/31,29,31,30,31,30,31,31,30,31,30,31/)
<       INTEGER, DIMENSION(365) :: daym
<       INTEGER, DIMENSION(366) :: daymleap
---
>                           = (/61,66,66,65,60,54,50,46,47,47,51,56/)
> !*****
>       INTEGER, DIMENSION(669) :: daym
>       INTEGER, DIMENSION(669) :: daymleap
