Changeset 3825 for dynamico_lmdz/aquaplanet/LMDZ5/libf/dyn3dmem

Timestamp:

May 6, 2015, 12:14:12 PM (10 years ago)

Author:

ymipsl

Message:

Reorganize geometry and grid modules. Prepare physics for unstructutured grid support. Simplify initialization of physics from dynamic.
Compiled only with dynd3dmem, but not tested for moment.

YM

File:

• dynamico_lmdz/aquaplanet/LMDZ5/libf/dyn3dmem/gcm.F (modified) (4 diffs)

dynamico_lmdz/aquaplanet/LMDZ5/libf/dyn3dmem/gcm.F

@@ -13 +13 @@
       USE parallel_lmdz
       USE infotrac
-#ifdef CPP_PHYS
-      USE mod_interface_dyn_phys, ONLY: init_interface_dyn_phys
-#endif
       USE mod_hallo
       USE Bands
@@ -28 +25 @@
 #endif
 
-#ifdef CPP_PHYS
-!      USE mod_grid_phy_lmdz
-!      USE mod_phys_lmdz_para, ONLY : klon_mpi_para_nb
-!      USE dimphy
-!      USE comgeomphy
-#endif
       IMPLICIT NONE
 
@@ -160 +151 @@
       call Read_Distrib
 
-#ifdef CPP_PHYS
-        CALL Init_Phys_lmdz(iim,jjp1,llm,mpi_size,distrib_phys,
-     &                      COMM_LMDZ)
+!#ifdef CPP_PHYS
+!        CALL Init_Phys_lmdz(iim,jjp1,llm,mpi_size,distrib_phys,
+!     &                      COMM_LMDZ)
 !#endif
 !      CALL set_bands
 !#ifdef CPP_PHYS
-      CALL Init_interface_dyn_phys
-#endif
+!      CALL Init_interface_dyn_phys
+!#endif
       CALL barrier
 
@@ -429 +420 @@
 ! Physics:
 #ifdef CPP_PHYS
-         CALL iniphysiq(iim,jjm,llm,daysec,day_ini,dtphys/nsplit_phys,
+         CALL iniphysiq(iim,jjm, distrib_phys(mpi_rank), comm_lmdz, llm, daysec, day_ini, dtphys/nsplit_phys,
      &                rlatu,rlatv,rlonu,rlonv,aire,cu,cv,rad,g,r,cpp,
      &                iflag_phys)