Changeset 4127 for LMDZ6/trunk/libf/dynphy_lonlat/phylmd/iniphysiq_mod.F90

Timestamp:

Apr 20, 2022, 11:01:09 AM (2 years ago)

Author:

acozic

Message:

modify lmdz code in order to transfer to inca model all infomations necessary for the coupling with dynamico

File:

• LMDZ6/trunk/libf/dynphy_lonlat/phylmd/iniphysiq_mod.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/dynphy_lonlat/phylmd/iniphysiq_mod.F90

@@ -150 +150 @@
 !$OMP END PARALLEL
 
-  IF (type_trac == 'inca' .OR. type_trac == 'inco') THEN
-#ifdef INCA
-     call init_const_lmdz( &
-          anneeref,dayref, iphysiq,day_step,nday,  &
-          nbsrf, is_oce,is_sic, is_ter,is_lic, calend, &
-          config_inca)
-     call init_inca_para( &
-          nbp_lon,nbp_lat,nbp_lev,klon_glo,mpi_size, &
-          distrib_phys,communicator)
-#endif
-  END IF
+
   IF (type_trac == 'repr') THEN
 #ifdef REPROBUS
@@ -178 +168 @@
   IF (type_trac == 'inca' .OR. type_trac == 'inco') THEN
 #ifdef INCA
-     CALL init_inca_dim(klon_omp,nbp_lev,nbp_lon,nbp_lat - 1, &
-          rlonudyn,rlatudyn,rlonvdyn,rlatvdyn)
+     CALL init_inca_dim_reg(nbp_lon, nbp_lat - 1, &
+          rlonudyn, rlatudyn, rlonvdyn, rlatvdyn)
 #endif
   END IF
+
   IF (type_trac == 'repr') THEN
 #ifdef REPROBUS