Changeset 313 for codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/dyn3dpar

Timestamp:

12/15/14 17:04:28 (10 years ago)

Author:

ymipsl

Message:

• implement splitting of XIOS file for lmdz physics
• Termination is done properly in parallel by calling MPI_ABORT instead of abort or stop

YM

File:

• codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/dyn3dpar/initialize_physics.F90 (modified) (3 diffs)

codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/dyn3dpar/initialize_physics.F90

@@ -1 +1 @@
 SUBROUTINE initialize_unstructured_physics(nbp, nlayer, communicator, nb_proc, distrib, &
-                                           punjours, pdayref,ptimestep,                  &
+                                           punjours, pdayref,time0,ptimestep,                  &
                                            nb_vertex, lat, lon, area, bounds_lon, bounds_lat, &
                                            prad,pg,pr,pcpp, preff,ap,bp )
@@ -37 +37 @@
     REAL,INTENT(in)    :: bounds_lat(nbp,nb_vertex) ! latitude boundaries of cell
     INTEGER,INTENT(in) :: pdayref ! reference day of for the simulation
+    INTEGER,INTENT(in) :: time0 ! initialtime (s)
     REAL,INTENT(in)    :: ptimestep ! physics time step (s)
     REAL,INTENT(in)    :: preff      ! reference surface pressure (Pa)
@@ -79 +80 @@
                 rlatd,rlond,airephy,prad,pg,pr,pcpp)
                 
-    CALL initialize_xios_output        
+    CALL initialize_xios_output(time0)        
 !$OMP END PARALLEL