Changeset 1415 for trunk/LMDZ.MARS/libf/dynlonlat_phylonlat/phymars/newstart.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/newstart.F (modified) (6 diffs)

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

@@ -16 +16 @@
 
       use ioipsl_getincom, only: getin 
-      use infotrac, only: iniadvtrac, nqtot, tname
+      use infotrac, only: infotrac_init, nqtot, tname
       use tracer_mod, only: noms, mmol,
      &                      igcm_dust_number, igcm_dust_mass,
@@ -26 +26 @@
      &                     co2ice, emis
       use comsoil_h, only: inertiedat, layer, mlayer, nsoilmx, tsoil
-      use control_mod, only: day_step, iphysiq, anneeref
+      use control_mod, only: day_step, iphysiq, anneeref, planet_type
       use phyredem, only: physdem0, physdem1
       use iostart, only: open_startphy
@@ -179 +179 @@
       preff  = 610.    ! for Mars, instead of 101325. (Earth)
       pa= 20           ! for Mars, instead of 500 (Earth)
+      planet_type="mars"
 
 ! initialize "serial/parallel" related stuff
@@ -185 +186 @@
 
 ! Load tracer number and names:
-      call iniadvtrac(nqtot,numvanle)
+!      call iniadvtrac(nqtot,numvanle)
+      call infotrac_init
 ! allocate arrays
       allocate(q(iip1,jjp1,llm,nqtot))
@@ -1628 +1630 @@
       phis(iip1,:) = phis(1,:)
 
-      CALL inidissip ( lstardis, nitergdiv, nitergrot, niterh,
-     *                tetagdiv, tetagrot , tetatemp  )
+c      CALL inidissip ( lstardis, nitergdiv, nitergrot, niterh,
+c     *                tetagdiv, tetagrot , tetatemp  )
       itau=0
       if (choix_1.eq.0) then
@@ -1644 +1646 @@
 c    $    phi,conser,du,dv,dteta,dp,w, pbaru,pbarv, day_ini )
 
-      CALL dynredem0("restart.nc",day_ini,anneeref,phis,nqtot)
+      CALL dynredem0("restart.nc",day_ini,phis)
       CALL dynredem1("restart.nc",hour_ini,vcov,ucov,teta,q,
-     .               nqtot,masse,ps)
+     .               masse,ps)
 C
 C Ecriture etat initial physique