Changeset 3914

Timestamp:

Feb 24, 2016, 6:10:54 PM (9 years ago)

Author:

ymipsl

Message:

Restart file in dynamico is generated after each start, at timestep 0.

YM

Location:

dynamico_lmdz/aquaplanet/ICOSAGCM/src

Files:

• etat0.f90 (modified) (2 diffs)
• etat0_database.f90 (modified) (2 diffs)

dynamico_lmdz/aquaplanet/ICOSAGCM/src/etat0.f90

@@ -59 +59 @@
     USE etat0_start_file_mod, ONLY : etat0_start_file=>etat0  
     USE etat0_database_mod, ONLY : etat0_database=>etat0  
+    USE write_etat0_mod
 
     IMPLICIT NONE
@@ -144 +145 @@
     END IF
 
+    CALL write_etat0(0,f_ps,f_phis,f_theta_rhodz,f_u, f_q)
+
   END SUBROUTINE etat0
 

dynamico_lmdz/aquaplanet/ICOSAGCM/src/etat0_database.f90

@@ -26 +26 @@
   USE qsat_mod
   USE pression_mod
-  USE write_etat0_mod
   USE omp_para
   IMPLICIT NONE
@@ -134 +133 @@
     ENDDO
 
-    
-    CALL writeField("ulon_out",f_ulon,once=.TRUE.)
-    CALL writeField("ulat_out",f_ulat,once=.TRUE.)
-    CALL writeField("temp_out",f_temp,once=.TRUE.)
-    CALL writeField("temp2_out",f_theta_rhodz,once=.TRUE.)
-    CALL writeField("f_qsat",f_qsat,once=.TRUE.)
-    CALL writeField("f_q1",f_q1,once=.TRUE.)
-    CALL writeField("f_q",f_q,once=.TRUE.)
-    CALL write_etat0(0,f_ps,f_phis,f_theta_rhodz,f_u, f_q)
-    
-
 
     CALL deallocate_field(f_ts)