Changeset 314 for codes/icosagcm/branches/SATURN_DYNAMICO/ICOSAGCM/src/physics_lmdz_generic.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/physics_lmdz_generic.f90 (modified) (2 diffs)

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

@@ -54 +54 @@
   REAL(rstd),ALLOCATABLE :: bounds_latfi(:,:)
   REAL(rstd),ALLOCATABLE :: bounds_lonfi(:,:)
+  INTEGER :: time0
 
     start_day=0
@@ -120 +121 @@
     ENDDO
 
-
+    time0=itau0*dt
     CALL initialize_unstructured_physics(nbp_phys,llm, comm_icosa, mpi_size,distrib,            &
-                                         day_length,start_day,itau_physics*dt,                  &
+                                         day_length,start_day,time0,itau_physics*dt,                  &
                                          6,latfi,lonfi,airefi,bounds_lonfi,bounds_latfi,         &
                                          radius,g, gas_constant/mu, cpp,                        &