Changeset 1716 for trunk/NEMO/OFF_SRC/DOM

Timestamp:

2009-11-05T17:00:25+01:00 (15 years ago)

Author:

cetlod

Message:

move daymod public variables in dom_oce for OFFLINE configuration, see ticket:590

File:

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

trunk/NEMO/OFF_SRC/DOM/dom_oce.F90

@@ -190 +190 @@
       n_cla                    !: flag (0/1) for cross land advection to
       !                        ! parameterize exchanges through straits
+   !!----------------------------------------------------------------------
+   !! calendar variables
+   !! ---------------------------------------------------------------------
+   INTEGER , PUBLIC ::   nyear       !: current year
+   INTEGER , PUBLIC ::   nmonth      !: current month
+   INTEGER , PUBLIC ::   nday        !: current day of the month
+   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
+   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
+
 
 #if defined key_off_degrad