Changeset 3820 for LMDZ6/branches/LMDZ-INCA-Dyn/libf/dynphy_lonlat/phylmd/iniphysiq_mod.F90

Timestamp:

Feb 4, 2021, 3:59:25 PM (3 years ago)

Author:

lmdz-users

Message:

to be able to work with dynamico's dynamic, we modify call for the inca initialisation

File:

• LMDZ6/branches/LMDZ-INCA-Dyn/libf/dynphy_lonlat/phylmd/iniphysiq_mod.F90 (modified) (2 diffs)

LMDZ6/branches/LMDZ-INCA-Dyn/libf/dynphy_lonlat/phylmd/iniphysiq_mod.F90

@@ -172 +172 @@
 !$OMP END PARALLEL
 
-  IF (type_trac == 'inca') 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
@@ -198 +187 @@
   END IF
 
-  IF (type_trac == 'inca') THEN
-#ifdef INCA
-     CALL init_inca_dim(klon_omp,nbp_lev,nbp_lon,nbp_lat - 1, &
-          rlonudyn,rlatudyn,rlonvdyn,rlatvdyn)
-#endif
-    IF (type_trac == 'repr') THEN
-#ifdef REPROBUS
-       CALL Init_chem_rep_phys(klon_omp,nbp_lev)
-#endif
-    END IF
-  END IF
-
 !$OMP END PARALLEL