| 1 | MODULE mod_calendar |
|---|
| 2 | ! |
|---|
| 3 | ! -- calendar.h 01-11-95 Version 2.0 Author: Laurent Terray |
|---|
| 4 | ! ********** |
|---|
| 5 | !@ |
|---|
| 6 | !@ Contents : variables related to the coupler calendar |
|---|
| 7 | !@ -------- |
|---|
| 8 | !@ |
|---|
| 9 | !@ -- nddeb : beginning date of the simulation (yyyymmdd) |
|---|
| 10 | !@ (always 00000000 in blkdata.f, not present in namcouple) |
|---|
| 11 | !@ |
|---|
| 12 | !@ -- nadeb : beginning year of the simulation (yy) |
|---|
| 13 | !@ (always 00 as ndded always 00000000) |
|---|
| 14 | !@ |
|---|
| 15 | !@ -- nmdeb : beginning month of the simulation (mm) |
|---|
| 16 | !@ (always 00 as ndded always 00000000) |
|---|
| 17 | !@ |
|---|
| 18 | !@ -- njdeb : beginning day of the simulation (dd) |
|---|
| 19 | !@ (always 00 as ndded always 00000000) |
|---|
| 20 | !@ |
|---|
| 21 | !@ -- ndate : initial date (yyyymmdd) |
|---|
| 22 | !@ |
|---|
| 23 | !@ -- njini : initial day (dd) |
|---|
| 24 | !@ |
|---|
| 25 | !@ -- nmini : initial month (mm) |
|---|
| 26 | !@ |
|---|
| 27 | !@ -- naini : initial year (yy) |
|---|
| 28 | !@ |
|---|
| 29 | !@ -- njnow : current day (dd) |
|---|
| 30 | !@ |
|---|
| 31 | !@ -- njone : inf. day limit for linear time interpolation (dd) |
|---|
| 32 | !@ 'sea <<<--->>> sea' case |
|---|
| 33 | !@ |
|---|
| 34 | !@ -- njtwo : sup. day limit for linear time interpolation (dd) |
|---|
| 35 | !@ 'sea <<<--->>> sea' case |
|---|
| 36 | !@ |
|---|
| 37 | !@ -- ndone : inf. day limit for linear time interpolation (dd) |
|---|
| 38 | !@ 'sea <<<--->>> ice' case |
|---|
| 39 | !@ |
|---|
| 40 | !@ -- ndtwo : sup. day limit for linear time interpolation (dd) |
|---|
| 41 | !@ 'sea <<<--->>> ice' case |
|---|
| 42 | !@ |
|---|
| 43 | !@ -- nmnow : current month (mm) |
|---|
| 44 | !@ |
|---|
| 45 | !@ -- nmone : inf. month limit for linear time interpolation (mm) |
|---|
| 46 | !@ |
|---|
| 47 | !@ -- nmtwo : sup. month limit for linear time interpolation (mm) |
|---|
| 48 | !@ |
|---|
| 49 | !@ -- nanow : current year (yy) |
|---|
| 50 | !@ |
|---|
| 51 | !@ -- ndinc : day increment for each coupler time step |
|---|
| 52 | !@ |
|---|
| 53 | !@ -- nsrec : number of records to be skipped in climatology (SE) file |
|---|
| 54 | !@ |
|---|
| 55 | !@ -- nmrec : number of records to be skipped in interannual (MO) file |
|---|
| 56 | !@ |
|---|
| 57 | !@ -- ncaltype : calendar type |
|---|
| 58 | !@ 0 = 365 day calendar (no leap years) |
|---|
| 59 | !@ 1 = Gregorian calendar |
|---|
| 60 | !@ n (>1) = n day month caledar |
|---|
| 61 | !@ |
|---|
| 62 | !@ ------------------------------------------------------------------- |
|---|
| 63 | USE mod_kinds_oasis |
|---|
| 64 | INTEGER(kind=ip_intwp_p) :: ndate, njini, nmini, naini, njnow,njone, njtwo |
|---|
| 65 | INTEGER(kind=ip_intwp_p) :: ndtwo, nmnow,nmone, nmtwo, nanow, ndinc, nsrec |
|---|
| 66 | INTEGER(kind=ip_intwp_p) :: ndone, nmrec |
|---|
| 67 | INTEGER(kind=ip_intwp_p) :: ncaltype, nddeb, nadeb, nmdeb, njdeb |
|---|
| 68 | INTEGER(kind=ip_intwp_p) :: ig_date(6) |
|---|
| 69 | ! |
|---|
| 70 | END MODULE mod_calendar |
|---|
| 71 | ! ------------------------------------------------------------------- |
|---|
