Changeset 3848 for LMDZ6/branches/LMDZ-INCA-Dyn

Timestamp:

Feb 18, 2021, 11:23:57 AM (4 years ago)

Author:

acozic

Message:

init_inca_dim need to be call after init_dimphy

File:

• LMDZ6/branches/LMDZ-INCA-Dyn/libf/phy_common/physics_distribution_mod.F90 (modified) (2 diffs)

LMDZ6/branches/LMDZ-INCA-Dyn/libf/phy_common/physics_distribution_mod.F90

@@ -28 +28 @@
 
 
+
+    CALL init_grid_phy_lmdz(grid_type,nvertex, nbp_lon,nbp_lat,nbp_lev)
+    CALL init_phys_lmdz_para(nbp,nbp_lon, nbp_lat,nbp_lev, grid_type,nvertex, communicator)
+!$OMP PARALLEL
+    CALL init_dimphy(klon_omp,nbp_lev)
+
+
 !    IF (type_trac == 'inca') THEN
 #ifdef INCA
@@ -33 +40 @@
 #endif
 !    END IF
-
-    CALL init_grid_phy_lmdz(grid_type,nvertex, nbp_lon,nbp_lat,nbp_lev)
-    CALL init_phys_lmdz_para(nbp,nbp_lon, nbp_lat,nbp_lev, grid_type,nvertex, communicator)
-!$OMP PARALLEL
-    CALL init_dimphy(klon_omp,nbp_lev)
 
 ! Initialization of Reprobus