Changeset 1559 for trunk/NEMO/OPA_SRC/daymod.F90

Timestamp:

2009-07-29T16:03:14+02:00 (15 years ago)

Author:

ctlod

Message:

only cosmetic changes

File:

• trunk/NEMO/OPA_SRC/daymod.F90 (modified) (6 diffs)

trunk/NEMO/OPA_SRC/daymod.F90

@@ -4 +4 @@
    !! Ocean        :  calendar 
    !!=====================================================================
-   !! History :        !  94-09  (M. Pontaud M. Imbard)  Original code
-   !!                  !  97-03  (O. Marti)
-   !!                  !  97-05  (G. Madec) 
-   !!                  !  97-08  (M. Imbard)
-   !!             9.0  !  03-09  (G. Madec)  F90 + nyear, nmonth, nday
-   !!                  !  04-01  (A.M. Treguier) new calculation based on adatrj
-   !!                  !  06-08  (G. Madec)  surface module major update
+   !! History :  OPA  ! 1994-09  (M. Pontaud M. Imbard)  Original code
+   !!                 ! 1997-03  (O. Marti)
+   !!                 ! 1997-05  (G. Madec) 
+   !!                 ! 1997-08  (M. Imbard)
+   !!   NEMO     1.0  ! 2003-09  (G. Madec)  F90 + nyear, nmonth, nday
+   !!                 ! 2004-01  (A.M. Treguier) new calculation based on adatrj
+   !!                 ! 2006-08  (G. Madec)  surface module major update
    !!----------------------------------------------------------------------      
 
@@ -30 +30 @@
    USE in_out_manager  ! I/O manager
    USE iom             ! 
-   USE ioipsl, ONLY :   ymds2ju        ! for calendar
+   USE ioipsl, ONLY :   ymds2ju   ! for calendar
    USE prtctl          ! Print control
    USE restart         ! 
@@ -37 +37 @@
    PRIVATE
 
-   PUBLIC day        ! called by step.F90
-   PUBLIC day_init   ! called by istate.F90
+   PUBLIC   day        ! called by step.F90
+   PUBLIC   day_init   ! called by istate.F90
 
    INTEGER , PUBLIC ::   nyear       !: current year
@@ -50 +50 @@
 
    REAL(wp), PUBLIC ::   fjulday     !: julian day 
-   REAL(wp), PUBLIC ::   adatrj      !: number of elapsed days since the begining of the run
-   !                                 !: it is the accumulated duration of previous runs
-   !                                 !: that may have been run with different time steps.
-   INTEGER , PUBLIC, DIMENSION(0:1)  ::   nyear_len    !: length in days of the previous/current year
+   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 the beginning of the year and the halft of the months
-   REAL(wp), PUBLIC, DIMENSION(0:13) ::   rmonth_end   !: second since the beginning of the year and the end of the months
-   REAL(wp), PUBLIC                  ::   sec1jan000   !: second since Jan. 1st 00h of nit000 year and Jan. 1st 00h 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
 
    ! this two variables are wrong DO NOT USE THEM !!!
@@ -65 +64 @@
       &                                           31, 31, 30, 31, 30, 31 /)     !: (365 days a year)
 
-
    !!----------------------------------------------------------------------
-   !!  OPA 9.0 , LOCEAN-IPSL (2006) 
+   !! NEMO/OPA 3.2 , LOCEAN-IPSL (2009) 
    !! $Id$
    !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt)
@@ -183 +181 @@
          rmonth_end(jm) = rmonth_end(jm-1) + rday * REAL( nmonth_len(jm), wp )
       END DO
-                 
+      !           
    END SUBROUTINE