Changeset 1573 for trunk/LMDZ.MARS/libf/dynphy_lonlat/phymars

Timestamp:

Jul 12, 2016, 3:17:48 PM (8 years ago)

Author:

emillour

Message:

All GCMS:
Cleanup concerning iniphysiq/inigeomphy initializations: initializations
related to routines in phy_common or dynphy_lonlat can be done in
inigeomphy, but any initialization for modules/routines in a physics
package (directory phy*) must be done in the related phy*/iniphysiq
routine.
EM

File:

• trunk/LMDZ.MARS/libf/dynphy_lonlat/phymars/iniphysiq_mod.F90 (modified) (4 diffs)

trunk/LMDZ.MARS/libf/dynphy_lonlat/phymars/iniphysiq_mod.F90

@@ -20 +20 @@
 ! necessary to get klon_omp
 USE mod_phys_lmdz_para, ONLY: klon_omp ! number of columns (on local omp grid)
+USE dimphy, ONLY: init_dimphy
 
 implicit none
@@ -49 +50 @@
   !------------------------------------------
   ! --> initialize physics distribution, global fields and geometry
+  ! (i.e. things in phy_common or dynphy_lonlat)
   CALL inigeomphy(ii,jj,nlayer, &
                nbp, communicator, &
@@ -55 +57 @@
                airedyn,cudyn,cvdyn)
 
-  ! the distinct part for all planetary physics
+  ! the distinct part for all planetary physics (ie. things in phymars)
   !------------------------------------------
 
@@ -62 +64 @@
 ! copy some fundamental parameters to physics 
 ! and do some initializations 
+
+! Initialize dimphy module
+call init_dimphy(klon_omp,nlayer)
 
 call phys_state_var_init(klon_omp,nlayer,nqtot, &