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

Timestamp:

Feb 15, 2021, 4:27:07 PM (4 years ago)

Author:

acozic

Message:

need to initialize lon and lev for inca before call init_inca_para

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 @@
 
 
+!    IF (type_trac == 'inca') THEN
+#ifdef INCA
+       CALL Init_inca_dim(klon_omp,nbp_lev)
+#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)
@@ -37 +43 @@
 #ifdef REPROBUS
        CALL Init_chem_rep_phys(klon_omp,nbp_lev)
-#endif
-!    END IF
-!    IF (type_trac == 'inca') THEN
-#ifdef INCA
-       CALL Init_inca_dim(klon_omp,nbp_lev)
 #endif
 !    END IF