Changeset 1415 for trunk/LMDZ.MARS/libf/dynlonlat_phylonlat/phymars/start2archive.F

Timestamp:

Apr 14, 2015, 9:46:47 AM (10 years ago)

Author:

milmd

Message:

Update newstart and start2archive programs of LMDZ.GENERIC and LMDZ.MARS to the new organization.

File:

• trunk/LMDZ.MARS/libf/dynlonlat_phylonlat/phymars/start2archive.F (modified) (5 diffs)

trunk/LMDZ.MARS/libf/dynlonlat_phylonlat/phymars/start2archive.F

@@ -19 +19 @@
 c=======================================================================
 
-      use infotrac, only: iniadvtrac, nqtot, tname
+      use infotrac, only: infotrac_init, nqtot, tname
       use comsoil_h, only: nsoilmx, inertiedat
       use surfdat_h, only: ini_surfdat_h, qsurf
@@ -25 +25 @@
       use comgeomphy, only: initcomgeomphy
       use filtreg_mod, only: inifilr
+      use control_mod, only: planet_type
       implicit none
 
@@ -120 +121 @@
       CALL init_phys_lmdz(iim,jjp1,llm,1,(/(jjm-1)*iim+2/))
       call initcomgeomphy
+      planet_type='mars'
 
 c=======================================================================
@@ -125 +127 @@
 c=======================================================================
 ! Load tracer number and names:
-      call iniadvtrac(nqtot,numvanle)
+!      call iniadvtrac(nqtot,numvanle)
+      call infotrac_init
 
 ! allocate arrays:
@@ -135 +138 @@
 
       fichnom = 'start.nc'
-      CALL dynetat0(fichnom,nqtot,vcov,ucov,teta,q,masse,
+      CALL dynetat0(fichnom,vcov,ucov,teta,q,masse,
      .       ps,phis,timedyn)