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

Timestamp:

2009-11-05T16:18:26+01:00 (14 years ago)

Author:

smasson

Message:

move daymod public variables in dom_oce, see ticket:590

File:

• trunk/NEMO/OPA_SRC/DOM/dom_oce.F90 (modified) (4 diffs)

trunk/NEMO/OPA_SRC/DOM/dom_oce.F90

@@ -61 +61 @@
    !!----------------------------------------------------------------------
    !! space domain parameters
-   !! -----------------------
+   !!----------------------------------------------------------------------
    LOGICAL, PUBLIC ::   lzoom      =  .FALSE.   !: zoom flag
    LOGICAL, PUBLIC ::   lzoom_e    =  .FALSE.   !: East  zoom type flag
@@ -115 +115 @@
    !!----------------------------------------------------------------------
    !! vertical coordinate and scale factors
-   !! --------------------------------------
+   !! ---------------------------------------------------------------------
    !                                           !!* Namelist namzgr : vertical coordinate *
    LOGICAL, PUBLIC ::   ln_zco     =  .TRUE.    !: z-coordinate - full step
@@ -177 +177 @@
    !!----------------------------------------------------------------------
    !! masks, bathymetry
-   !! -----------------
+   !! ---------------------------------------------------------------------
    INTEGER , PUBLIC, DIMENSION(jpi,jpj) ::   mbathy    !: number of ocean level (=0, 1, ... , jpk-1)
    REAL(wp), PUBLIC, DIMENSION(jpi,jpj) ::   bathy     !: ocean depth (meters)
@@ -193 +193 @@
 
    !!----------------------------------------------------------------------
+   !! 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
+
+   !!----------------------------------------------------------------------
    !! agrif domain
    !!----------------------------------------------------------------------