Changeset 4013 for LMDZ6/branches/Ocean_skin/libf/phylmd/iotd_ecrit.F90

Timestamp:

Nov 19, 2021, 4:58:59 PM (3 years ago)

Author:

lguez

Message:

Sync latest trunk changes to Ocean_skin

Location:

LMDZ6/branches/Ocean_skin

Files:

• . (modified) (1 prop)
• libf/phylmd/iotd_ecrit.F90 (modified) (5 diffs)

LMDZ6/branches/Ocean_skin/libf/phylmd/iotd_ecrit.F90

@@ -63 +63 @@
       
 
+
+       if (n_names_iotd_def>0 .and..not.any(names_iotd_def==nom)) return
 !***************************************************************
 ! Initialisation of 'firstnom' and create/open the "diagfi.nc" NetCDF file
@@ -74 +76 @@
 
 
-! Compute/write/extend 'Time' coordinate (date given in days)
+! Compute/write/extend 'time' coordinate (date given in days)
 ! (done every "first call" (at given time level) to writediagfi)
 ! Note: date is incremented as 1 step ahead of physics time
@@ -84 +86 @@
         endif
 
-!      print*,'nom ',nom,firstnom
+       !print*,'nom ',nom,firstnom
 
 !! Quand on tombe sur la premiere variable on ajoute un pas de temps
@@ -93 +95 @@
 
 !!          print*,'ntime ',ntime
-           date=ntime
+           date=iotd_t0+ntime*iotd_ts
+           !print*,'iotd_ecrit ',iotd_ts,ntime, date
 !          date= float (zitau +1)/float (day_step)
 
            ! compute corresponding date (in days and fractions thereof)
-           ! Get NetCDF ID of 'Time' variable
+           ! Get NetCDF ID of 'time' variable
 
            ierr=NF_SYNC(nid)
 
-           ierr= NF_INQ_VARID(nid,"Time",varid)
-           ! Write (append) the new date to the 'Time' array
+           ierr= NF_INQ_VARID(nid,"time",varid)
+           ! Write (append) the new date to the 'time' array
 
 
@@ -159 +162 @@
           ierr = NF_REDEF (nid)
           ierr = NF_DEF_VAR(nid,nom,NF_FLOAT,ndim,dim_cc,varid)
-          print*,'DEF ',nom,nid,varid
+          !print*,'DEF ',nom,nid,varid
           ierr = NF_ENDDEF(nid)
       else
          ierr= NF_INQ_VARID(nid,nom,varid)
-          print*,'INQ ',nom,nid,varid
+          !print*,'INQ ',nom,nid,varid
 ! Commandes pour recuperer automatiquement les coordonnees
 !             ierr= NF_INQ_DIMID(nid,"longitude",id(1))