Changeset 314 for codes/icosagcm/branches/SATURN_DYNAMICO/ICOSAGCM/src/time.f90

Timestamp:

12/15/14 17:10:42 (10 years ago)

Author:

ymipsl

Message:

• activate splitting of XIOS file in physics so starting time is passed to the physic initialiszation.
• call restart file periodically using the - itau_write_etat0 - start parameter.

YM

File:

• codes/icosagcm/branches/SATURN_DYNAMICO/ICOSAGCM/src/time.f90 (modified) (3 diffs)

codes/icosagcm/branches/SATURN_DYNAMICO/ICOSAGCM/src/time.f90

@@ -17 +17 @@
   REAL(rstd),SAVE :: write_period
 !$OMP THREADPRIVATE(write_period)  
-  INTEGER,SAVE    :: itau_out, itau_adv, itau_dissip, itau_physics, itaumax
-!$OMP THREADPRIVATE(itau_out, itau_adv, itau_dissip, itau_physics, itaumax)  
+  INTEGER,SAVE    :: itau_out, itau_adv, itau_dissip, itau_physics, itaumax, itau_write_etat0
+!$OMP THREADPRIVATE(itau_out, itau_adv, itau_dissip, itau_physics, itaumax, itau_write_etat0)  
   
   INTEGER,SAVE :: day_step,ndays
@@ -38 +38 @@
 
   PUBLIC create_time_counter_header, update_time_counter, close_time_counter, init_time,  &
-         dt, write_period, itau_out, itau_adv, itau_dissip, itau_physics, itaumax, & 
+         dt, write_period, itau_out, itau_adv, itau_dissip, itau_physics,itau_write_etat0, itaumax, & 
 day_step,ndays,jD_ref,jH_ref,day_ini,day_end,annee_ref,day_ref,an, mois, jour,heure, &
             calend,time_style,itau0
@@ -86 +86 @@
     itau_physics=1
     CALL getin('itau_physics',itau_physics)
+
+    itau_write_etat0=HUGE(itau_write_etat0)
+    CALL getin('itau_write_etat0',itau_write_etat0)
+    itau_write_etat0=itau_write_etat0/dt
 
     IF (is_mpi_root .AND. omp_master)  THEN