Changeset 1730 for trunk/NEMO/OPA_SRC/DOM/dom_oce.F90

Timestamp:

2009-11-16T15:34:19+01:00 (15 years ago)

Author:

smasson

Message:

use integer in calendar, see ticket:601

File:

• trunk/NEMO/OPA_SRC/DOM/dom_oce.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/DOM/dom_oce.F90

@@ -200 +200 @@
    INTEGER , PUBLIC ::   ndastp      !: time step date in yyyymmdd format
    INTEGER , PUBLIC ::   nday_year   !: current day counted from jan 1st of the current year
-   REAL(wp), PUBLIC ::   rsec_year   !: current time step counted in second since 00h jan 1st of the current year
-   REAL(wp), PUBLIC ::   rsec_month  !: current time step counted in second since 00h 1st day of the current month
-   REAL(wp), PUBLIC ::   rsec_day    !: current time step counted in second since 00h of the current day
+   INTEGER , PUBLIC ::   nsec_year   !: current time step counted in second since 00h jan 1st of the current year
+   INTEGER , PUBLIC ::   nsec_month  !: current time step counted in second since 00h 1st day of the current month
+   INTEGER , PUBLIC ::   nsec_day    !: current time step counted in second since 00h of the current day
    REAL(wp), PUBLIC ::   fjulday     !: julian day 
    REAL(wp), PUBLIC ::   adatrj      !: number of elapsed days since the begining of the whole simulation
    !                                 !: (cumulative duration of previous runs that may have used different time-step size)
-   INTEGER , PUBLIC, DIMENSION(0: 1) ::   nyear_len    !: length in days of the previous/current year
-   INTEGER , PUBLIC, DIMENSION(0:13) ::   nmonth_len   !: length in days of the months of the current year
-   REAL(wp), PUBLIC, DIMENSION(0:13) ::   rmonth_half  !: second since Jan 1st 0h of the current year and the half of the months
-   REAL(wp), PUBLIC, DIMENSION(0:13) ::   rmonth_end   !: second since Jan 1st 0h of the current year and the end of the months
-   REAL(wp), PUBLIC                  ::   sec1jan000   !: second since Jan 1st 0h of nit000 year and Jan 1st 0h the current year
+   INTEGER , PUBLIC, DIMENSION(0: 1) ::   nyear_len     !: length in days of the previous/current year
+   INTEGER , PUBLIC, DIMENSION(0:13) ::   nmonth_len    !: length in days of the months of the current year
+   INTEGER , PUBLIC, DIMENSION(0:13) ::   nmonth_half   !: second since Jan 1st 0h of the current year and the half of the months
+   INTEGER , PUBLIC, DIMENSION(0:13) ::   nmonth_end    !: second since Jan 1st 0h of the current year and the end of the months
+   INTEGER , PUBLIC                  ::   nsec1jan000   !: second since Jan 1st 0h of nit000 year and Jan 1st 0h the current year
 
    !!----------------------------------------------------------------------