Changeset 2351 for LMDZ5/trunk/libf/dynlonlat_phylonlat/phylmd/ce0l.F90

Timestamp:

Aug 25, 2015, 5:14:59 PM (9 years ago)

Author:

Ehouarn Millour

Message:

More on physics/dynamics separation and cleanup:

• Set things up so that all physics-related initializations are done via iniphysiq.
• Created a "geometry_mod.F90" module in phy_common to store information on the loacl grid (i.e. replaces comgeomphy) and moreover give these variables more obvious names (e.g.: rlond => longitude, rlatd => latitude, airephy => cell_area).
• removed obsolete comgeomphy.h and comgeomphy.F90

EM

File:

• LMDZ5/trunk/libf/dynlonlat_phylonlat/phylmd/ce0l.F90 (modified) (3 diffs)

LMDZ5/trunk/libf/dynlonlat_phylonlat/phylmd/ce0l.F90

@@ -26 +26 @@
   USE filtreg_mod,    ONLY: inifilr
   USE iniphysiq_mod,  ONLY: iniphysiq
+  USE mod_const_mpi,  ONLY: comm_lmdz
 #ifdef inca
   USE indice_sol_mod, ONLY: nbsrf, is_oce, is_sic, is_ter, is_lic
@@ -106 +107 @@
   CALL read_distrib()
   CALL init_mod_hallo()
-  CALL Init_Phys_lmdz(iim,jjp1,llm,mpi_size,distrib_phys)
-  CALL init_interface_dyn_phys()
-#else
-  CALL Init_Phys_lmdz(iim,jjp1,llm,1,(/(jjm-1)*iim+2/))
 #endif
   WRITE(lunout,*)'---> klon=',klon
@@ -126 +123 @@
 
   CALL inifilr()
-  CALL iniphysiq(iim,jjm,llm,daysec,day_ini,dtphys/nsplit_phys, &
+  CALL iniphysiq(iim,jjm,llm, &
+                 distrib_phys(mpi_rank),comm_lmdz, &
+                 daysec,day_ini,dtphys/nsplit_phys, &
                  rlatu,rlatv,rlonu,rlonv,aire,cu,cv,rad,g,r,cpp,iflag_phys)
   IF(pressure_exner) CALL test_disvert