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

Timestamp:

2004-02-17T08:25:44+01:00 (20 years ago)

Author:

opalod

Message:

CT : UPDATE001 : First major NEMO update

File:

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

trunk/NEMO/OPA_SRC/daymod.F90

@@ -20 +20 @@
 
    !! * Shared module variables
-   INTEGER, PUBLIC ::         &
-      nyear   ,               &  ! current year
-      nmonth  ,               &  ! current month
-      nday    ,               &  ! current day of the month
-      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 ,          &   ! (non integer) number of elapsed days since the begining of the experiment
-          adatrj0               !  value of adatrj at nit000-1 (before the present run).
-                                ! it is the accumulated duration of previous runs
-                                ! that may have been run with different time steps.
-
+   INTEGER , PUBLIC ::   &  !:
+      nyear     ,   &  !: current year
+      nmonth    ,   &  !: current month
+      nday      ,   &  !: current day of the month
+      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
+       adatrj0         !: value of adatrj at nit000-1 (before the present run).
+       !               !  it is the accumulated duration of previous runs
+       !               !  that may have been run with different time steps.
+   !!----------------------------------------------------------------------
+   !!  OPA 9, LODYC-IPSL (2004)
    !!----------------------------------------------------------------------
 
 CONTAINS
 
-   SUBROUTINE day ( kt )
+   SUBROUTINE day( kt )
       !!----------------------------------------------------------------------
-      !!                  ***  ROUTINE day  ***
+      !!                      ***  ROUTINE day  ***
       !! 
       !! ** Purpose :   Compute the date with a day iteration IF necessary.
@@ -50 +50 @@
       !!              - nday_year : current day of the year nyear
       !!              - ndastp    : =nyear*10000+nmonth*100+nday
-      !!              - adatrj    : date in days since the beginning
-      !!                            of the experiment
+      !!              - adatrj    : date in days since the beginning of the run
       !!
       !! History :
@@ -69 +68 @@
       REAL(wp) :: zadatrjn, zadatrjb     ! adatrj at timestep kt-1 and kt-2 
       !!----------------------------------------------------------------------
-      !!  OPA 9, LODYC-IPSL (2004)
-      !!----------------------------------------------------------------------
 
       ! 0.  initialization of adatrj0 and nday, nmonth,nyear, nday_year.
@@ -76 +73 @@
       !-----------------------------------------------------------------
 
-      IF (  kt == nit000 ) THEN
+      IF( kt == nit000 ) THEN
 
-         IF ( .NOT.ln_rstart )   adatrj0 = 0.e0      ! adatrj0 initialized in rst_read when restart 
+         IF( .NOT.ln_rstart )   adatrj0 = 0.e0      ! adatrj0 initialized in rst_read when restart 
 
          adatrj  = adatrj0
@@ -115 +112 @@
       iday1 = INT( zadatrjn )
 
-      if ( iday1 - iday0 >= 1 .AND. ( kt /= nit000 .OR. nrstdt == 2 ) ) THEN
+      IF( iday1 - iday0 >= 1 .AND. ( kt /= nit000 .OR. nrstdt == 2 ) ) THEN
 
          ! increase calendar