Changeset 3978 for LMDZ6/trunk/libf/phylmd/iotd.h

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.h (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/iotd.h

@@ -13 +13 @@
       INTEGER dim_coord(4)
       real iotd_ts,iotd_t0
+      integer :: n_names_iotd_def
+      character*20, dimension(200) :: names_iotd_def
+      character*20 :: un_nom
 
-      common/ecritd_c/imax,jmax,lmax,nid,dim_coord,iotd_t0,iotd_ts
-!$OMP THREADPRIVATE(/ecritd_c/)
+      common/iotd_ca/imax,jmax,lmax,nid,dim_coord,iotd_t0,iotd_ts
+      common/iotd_cb/n_names_iotd_def,names_iotd_def
+!$OMP THREADPRIVATE(/iotd_ca/)
+!$OMP THREADPRIVATE(/iotd_cb/)