Changeset 1450 for trunk/NEMO/OFF_SRC/daymod.F90

Timestamp:

2009-05-15T16:12:12+02:00 (15 years ago)

Author:

cetlod

Message:

implementation of iom_put in TOP, see ticket:432

File:

• trunk/NEMO/OFF_SRC/daymod.F90 (modified) (4 diffs)

trunk/NEMO/OFF_SRC/daymod.F90

@@ -30 +30 @@
    USE in_out_manager  ! I/O manager
    USE prtctl          ! Print control
+   USE ioipsl, ONLY :   ymds2ju        ! for calendar
 
    IMPLICIT NONE
@@ -46 +47 @@
    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 run
    !                                 !: it is the accumulated duration of previous runs
@@ -95 +97 @@
       nmonth  = ( ndastp - (nyear * 10000) ) / 100
       nday    =   ndastp - (nyear * 10000) - ( nmonth * 100 ) 
+
+      CALL ymds2ju( nyear, nmonth, nday, 0.0, fjulday )  ! we assume that we start run at 00:00
+      fjulday = fjulday + 1.                             ! move back to the day at nit000 (and not at nit000 - 1)
+
 
       sec1jan000 = 0.e0
@@ -203 +209 @@
       rsec_day   = rsec_day   + rdttra(1)                 
       adatrj = adatrj + rdttra(1) / rday
-      
+      fjulday = fjulday + rdttra(1) / rday
+   
       IF( rsec_day > rday ) THEN                        ! NEW day
          !