Changeset 56 for LMDZ.3.3/trunk/libf/dyn3d/dynredem.F

Timestamp:

Feb 18, 2000, 2:38:11 PM (25 years ago)

Author:

lmdzadmin

Message:

Probleme de calendrier regle. LF

File:

• LMDZ.3.3/trunk/libf/dyn3d/dynredem.F (modified) (3 diffs)

LMDZ.3.3/trunk/libf/dyn3d/dynredem.F

@@ -1 +1 @@
       SUBROUTINE dynredem0(fichnom,idayref,anneeref,phis,nq)
+      USE IOIPSL
       IMPLICIT NONE
 c=======================================================================
@@ -44 +45 @@
       INTEGER idim_tim
       INTEGER nid,nvarid
+
+      REAL zan0,zjulian,hours
+      INTEGER yyears0,jjour0, mmois0
+      character*30 unites
+
+
 c-----------------------------------------------------------------------
       modname='dynredem'
+
+      call ymds2ju(anneeref,1,idayref,0.0, zjulian)
+      call ju2ymds(zjulian, yyears0,mmois0,jjour0,hours)
+        
 
       DO l=1,length
@@ -353 +364 @@
       ierr = NF_PUT_ATT_TEXT (nid, nvarid, "title", 19,
      .                       "Temps de simulation")
+      write(unites,200)yyears0,mmois0,jjour0
+200   format('days since ',i4,'-',i2.2,'-',i2.2,' 00:00:00')
+      ierr = NF_PUT_ATT_TEXT (nid, nvarid, "units", 30,
+     .                         unites)
+
 c
       dims4(1) = idim_rlonu