Changeset 1233 for trunk/LMDZ.MARS/libf/phymars/newstart.F

Timestamp:

May 1, 2014, 12:06:13 AM (11 years ago)

Author:

aslmd

Message:

LMDZ.MARS. Filling geom arrays is now out of phys_var_state_init. Done through a merged function ini_fillgeom within the comgeomfi_h module. Cosmetic changes. New interface with the mesoscale model: lesser amount of dirty MESOSCALE includes.

File:

• trunk/LMDZ.MARS/libf/phymars/newstart.F (modified) (2 diffs)

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

@@ -33 +33 @@
       use dimradmars_mod, only: tauscaling
       use turb_mod, only: q2
+      use comgeomfi_h, only: ini_fillgeom
+
       implicit none
 
@@ -387 +389 @@
 !      'datafile' path may be changed by user)
       call phys_state_var_init(ngridmx,llm,nqtot,
-     .                         latfi,lonfi,airefi,
      .                         daysec,dtphys,rad,g,r,cpp)
+      call ini_fillgeom(ngrid,latfi,lonfi,airefi)
       call conf_phys(nqtot)