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

Timestamp:

May 20, 2016, 8:16:32 AM (9 years ago)

Author:

emillour

Message:

All GCMS:

• correction wrt previous commit: inigeom is also the name of a routine

in dyn3d_common! To avoid confusion rename inigeom (in dynphy_lonlat)
inigeomphy.

• cosmetic cleanup in leapfrog ('fake' calls to init_phys_lmdz,

which no longer exists, removed).
EM

File:

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

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

@@ -14 +14 @@
 use temps_mod, only: day_ini, hour_ini
 use phys_state_var_init_mod, only: phys_state_var_init
-
+use inigeomphy_mod, only: inigeomphy
 use geometry_mod, only: cell_area, & ! physics grid area (m2)
                         longitude, & ! longitudes (rad)
@@ -49 +49 @@
   !------------------------------------------
   ! --> initialize physics distribution, global fields and geometry
-  CALL inigeom(ii,jj,nlayer, &
+  CALL inigeomphy(ii,jj,nlayer, &
                nbp, communicator, &
                rlatudyn,rlatvdyn, &