Changeset 514 for codes/icosagcm/trunk

Timestamp:

12/19/16 23:53:02 (8 years ago)

Author:

ymipsl

Message:

Start file is created before entering time loop, except if starting from restart file.

YM

File:

• codes/icosagcm/trunk/src/timeloop_gcm.f90 (modified) (2 diffs)

codes/icosagcm/trunk/src/timeloop_gcm.f90

@@ -175 +175 @@
     USE output_field_mod
     USE write_etat0_mod
+    USE restart_mod
     USE checksum_mod
     USE explicit_scheme_mod
@@ -222 +223 @@
       IF (is_omp_master) CALL xios_update_calendar(1)
     END IF
+    
+    IF (write_start) CALL write_etat0(itau0,f_ps, f_phis,f_theta_rhodz,f_u,f_q) 
+   
     CALL write_output_fields_basic(.TRUE., f_phis, f_ps, f_mass, f_geopot, f_theta_rhodz, f_u, f_W, f_q)