Changeset 3546 for LMDZ6/trunk/libf/phydev

Timestamp:

Jul 18, 2019, 2:09:40 PM (5 years ago)

Author:

Laurent Fairhead

Message:

Modifications needed after DNAMICO/LMDZ merge

File:

• LMDZ6/trunk/libf/phydev/phyredem.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phydev/phyredem.F90

@@ -13 +13 @@
   INTEGER,PARAMETER :: tab_cntrl_len=100
   REAL :: tab_cntrl(tab_cntrl_len)
+  INTEGER :: pass
 
   ! open file
@@ -21 +22 @@
 
   tab_cntrl(:)=0.0
- 
 
-  CALL put_var("controle", "Control parameters", tab_cntrl)
+  DO pass=1,2   ! pass=1 netcdf definition ; pass=2 netcdf write
+
+    CALL put_var(pass, "controle", "Control parameters", tab_cntrl)
 
   ! coordinates
 
-  CALL put_field("longitude", "Longitudes on physics grid", longitude_deg)
+    CALL put_field(pass, "longitude", "Longitudes on physics grid", longitude_deg)
      
-  CALL put_field("latitude", "Latitudes on physics grid", latitude_deg)
+    CALL put_field(pass, "latitude", "Latitudes on physics grid", latitude_deg)
 
+  ENDDO
   ! close file