Changeset 3841 for LMDZ6/branches/LMDZ-INCA-Dyn/libf/phylmd/physiq_mod.F90

Timestamp:

Feb 11, 2021, 3:29:29 PM (3 years ago)

Author:

acozic

Message:

add parameters to define unstructured grid on Inca model

File:

• LMDZ6/branches/LMDZ-INCA-Dyn/libf/phylmd/physiq_mod.F90 (modified) (3 diffs)

LMDZ6/branches/LMDZ-INCA-Dyn/libf/phylmd/physiq_mod.F90

@@ -42 +42 @@
     USE iophy
     USE limit_read_mod, ONLY : init_limit_read
-    USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat, nbp_lev, klon_glo, grid1dTo2d_glo, grid_type, unstructured
+    USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat, nbp_lev, klon_glo, grid1dTo2d_glo, grid_type, unstructured, nvertex
     USE mod_phys_lmdz_mpi_data, only: is_mpi_root
     USE mod_phys_lmdz_para
@@ -1948 +1948 @@
           ndays, nbsrf, is_oce,is_sic, is_ter,is_lic, calend, &
           config_inca)
+
+          CALL init_inca_geometry( & 
+               longitude, latitude, &
+               boundslon, boundslat, &
+               dx, dy, cell_area, ind_cell_glo) 
+          
 
 
@@ -5281 +5287 @@
 #ifdef CPP_XIOS
        IF (is_omp_master) CALL xios_context_finalize
+#ifdef INCA
+       IF (is_omp_master) THEN 
+
+          CALL finalize_inca
+
+
+       ENDIF
+#endif
+
 #endif
        WRITE(lunout,*) ' physiq fin, nombre de steps ou cvpas = 1 : ', Ncvpaseq1