Changeset 956 for trunk/NEMO/OFF_SRC/daymod.F90

Timestamp:

2008-05-14T18:46:05+02:00 (16 years ago)

Author:

cetlod

Message:

phasing the OFFLINE module to the new version of NEMO, see ticket 146

File:

• trunk/NEMO/OFF_SRC/daymod.F90 (modified) (2 diffs)

trunk/NEMO/OFF_SRC/daymod.F90

@@ -26 +26 @@
       nday_year ,   &  !: curent day counted from jan 1st of the current year
       ndastp           !: time step date in year/month/day aammjj
+
    REAL(wp), PUBLIC ::   &  !:
        adatrj   ,   &  !: number of elapsed days since the begining of the run
@@ -31 +32 @@
        !               !  it is the accumulated duration of previous runs
        !               !  that may have been run with different time steps.
+
+   INTEGER, PUBLIC, DIMENSION(12) ::   nbiss = (/ 31, 29, 31, 30, 31, 30,    &  !: number of days per month
+      &                                           31, 31, 30, 31, 30, 31 /)     !: (leap-year)
+   INTEGER, PUBLIC, DIMENSION(12) ::   nobis = (/ 31, 28, 31, 30, 31, 30,    &  !: number of days per month
+      &                                           31, 31, 30, 31, 30, 31 /)     !: (365 days a year)
+
    !!----------------------------------------------------------------------
    !!  OPA 9.0 , LOCEAN-IPSL (2005)