Changeset 3978 for LMDZ6/trunk/libf/phylmd/iotd_ecrit.F90

Timestamp:

Aug 30, 2021, 8:37:06 PM (3 years ago)

Author:

fhourdin

Message:

Nouvelle option des programme iotd*
Possibilite de controler les variables de sorties via
iotd.def

File:

• LMDZ6/trunk/libf/phylmd/iotd_ecrit.F90 (modified) (3 diffs)

LMDZ6/trunk/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
@@ -94 +96 @@
 !!          print*,'ntime ',ntime
            date=iotd_t0+ntime*iotd_ts
-           print*,'iotd_ecrit ',iotd_ts,ntime, date
+           !print*,'iotd_ecrit ',iotd_ts,ntime, date
 !          date= float (zitau +1)/float (day_step)
 
@@ -160 +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))