Changeset 1233 for trunk/LMDZ.MARS/libf/phymars/iniphysiq.F90

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/iniphysiq.F90 (modified) (2 diffs)

trunk/LMDZ.MARS/libf/phymars/iniphysiq.F90

@@ -16 +16 @@
                        rlatd ! latitudes
 use infotrac, only : nqtot ! number of advected tracers
+use comgeomfi_h, only: ini_fillgeom
 
 implicit none
@@ -70 +71 @@
 ! and do some initializations 
 call phys_state_var_init(klon_omp,nlayer,nqtot, &
-                         rlatd,rlond,airephy, &
                          punjours,ptimestep,prad,pg,pr,pcpp)
+call ini_fillgeom(ngrid,rlatd,rlond,airephy)
 call conf_phys(nqtot)