Changeset 3578 for LMDZ6/trunk

Timestamp:

Oct 8, 2019, 12:48:59 PM (5 years ago)

Author:

fhourdin

Message:

Correction faites dans phylmd mais non reportee dans phydev.
Permet de refaire tourner phydev sans etat initial.
Avec par exemple
iflag_phys=101
read_start=n

File:

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

LMDZ6/trunk/libf/phydev/phyredem.F90

@@ -5 +5 @@
 
   USE geometry_mod, ONLY : longitude_deg, latitude_deg
-  USE iostart, ONLY: open_restartphy, close_restartphy, put_var, put_field
+  USE iostart, ONLY: open_restartphy, close_restartphy, enddef_restartphy, put_field, put_var
+
 
   IMPLICIT NONE
@@ -33 +34 @@
     CALL put_field(pass, "latitude", "Latitudes on physics grid", latitude_deg)
 
+    IF (pass==1) CALL enddef_restartphy
+    IF (pass==2) CALL close_restartphy
+
   ENDDO
   ! close file