Changeset 3978 for LMDZ6/trunk/libf/phylmd/iotd_ini.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_ini.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/iotd_ini.F90

@@ -39 +39 @@
       CHARACTER*11 date0b
 
-      INTEGER ierr
+      INTEGER :: ierr
 
       integer :: nvarid
@@ -60 +60 @@
 
 
-!-----------------------------------------------------------------------
+      !-----------------------------------------------------------------------
+      ! Possibilité de spécifier une liste de variables à sortir
+      ! dans iotd.def
+      ! Si iotd.def existe et est non vide,
+      ! seules les variables faisant à la fois l'objet d'un call iotd_ecrit
+      ! et étant spécifiées dans iotd.def sont sorties.
+      ! Sinon, toutes les variables faisant l'objet d'un call iotd_ecrit
+      ! sont sorties
+      !-----------------------------------------------------------------------
+      n_names_iotd_def=0
+      open(99,file='iotd.def',form='formatted',status='old',iostat=ierr)
+         if ( ierr.eq.0 ) then
+            ierr=0
+            do while (ierr==0)
+               read(99,*,iostat=ierr) un_nom
+               if (ierr==0) then
+                  n_names_iotd_def=n_names_iotd_def+1
+                  names_iotd_def(n_names_iotd_def)=un_nom
+               endif
+            enddo
+         endif
+         print*,n_names_iotd_def,names_iotd_def(1:n_names_iotd_def)
+      close(99)