Changeset 999 for trunk/LMDZ.MARS/libf/phymars/testphys1d.F

Timestamp:

Jul 2, 2013, 9:40:28 AM (11 years ago)

Author:

tnavarro

Message:

Possibility to store multiple initial states in one start/startfi. This is RETROCOMPATIBLE. New option ecrithist in run.def to write data in start/startfi every ecrithist dynamical timestep. New option timestart in run.def to initialize the GCM with the time timestart stored in start

File:

• trunk/LMDZ.MARS/libf/phymars/testphys1d.F (modified) (1 diff)

trunk/LMDZ.MARS/libf/phymars/testphys1d.F

@@ -641 +641 @@
 c  It is needed to transfert physics variables to "physiq"...
 
-      call physdem1("startfi.nc",long,lati,nsoilmx,nqmx,
-     .              dtphys,float(day0),time,tsurf,
-     .              tsoil,co2ice,emis,q2,qsurf,area,albedodat,
-     .              inertiedat,zmea,zstd,zsig,zgam,zthe)
+      call physdem0("startfi.nc",long,lati,nsoilmx,nqmx,
+     .              dtphys,float(day0),time,area,
+     .              albedodat,inertiedat,zmea,zstd,zsig,zgam,zthe)
+      call physdem1("startfi.nc",nsoilmx,nqmx,
+     .              dtphys,time,
+     .              tsurf,tsoil,co2ice,emis,q2,qsurf)
 
 c=======================================================================