| 1 | 52c52,58 |
|---|
| 2 | < |
|---|
| 3 | --- |
|---|
| 4 | > ! INTEGER, PARAMETER :: MONTHS_PER_YEAR = 07 |
|---|
| 5 | > ! INTEGER, PARAMETER :: mday(MONTHS_PER_YEAR) & |
|---|
| 6 | > ! = (/99,99,99,99,99,99,75/) |
|---|
| 7 | > ! INTEGER, PARAMETER :: mdayleap(MONTHS_PER_YEAR) & |
|---|
| 8 | > ! = (/99,99,99,99,99,99,75/) |
|---|
| 9 | > ! |
|---|
| 10 | > !*****Similar monthes as the GCM |
|---|
| 11 | 55c61 |
|---|
| 12 | < = (/31,28,31,30,31,30,31,31,30,31,30,31/) |
|---|
| 13 | --- |
|---|
| 14 | > = (/61,66,66,65,60,54,50,46,47,47,51,56/) |
|---|
| 15 | 57,59c63,66 |
|---|
| 16 | < = (/31,29,31,30,31,30,31,31,30,31,30,31/) |
|---|
| 17 | < INTEGER, DIMENSION(365) :: daym |
|---|
| 18 | < INTEGER, DIMENSION(366) :: daymleap |
|---|
| 19 | --- |
|---|
| 20 | > = (/61,66,66,65,60,54,50,46,47,47,51,56/) |
|---|
| 21 | > !***** |
|---|
| 22 | > INTEGER, DIMENSION(669) :: daym |
|---|
| 23 | > INTEGER, DIMENSION(669) :: daymleap |
|---|
