Changeset 3841 for LMDZ6/branches/LMDZ-INCA-Dyn/libf/phylmd
- Timestamp:
- Feb 11, 2021, 3:29:29 PM (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/LMDZ-INCA-Dyn/libf/phylmd/physiq_mod.F90
r3820 r3841 42 42 USE iophy 43 43 USE limit_read_mod, ONLY : init_limit_read 44 USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat, nbp_lev, klon_glo, grid1dTo2d_glo, grid_type, unstructured 44 USE mod_grid_phy_lmdz, ONLY: nbp_lon, nbp_lat, nbp_lev, klon_glo, grid1dTo2d_glo, grid_type, unstructured, nvertex 45 45 USE mod_phys_lmdz_mpi_data, only: is_mpi_root 46 46 USE mod_phys_lmdz_para … … 1948 1948 ndays, nbsrf, is_oce,is_sic, is_ter,is_lic, calend, & 1949 1949 config_inca) 1950 1951 CALL init_inca_geometry( & 1952 longitude, latitude, & 1953 boundslon, boundslat, & 1954 dx, dy, cell_area, ind_cell_glo) 1955 1950 1956 1951 1957 … … 5281 5287 #ifdef CPP_XIOS 5282 5288 IF (is_omp_master) CALL xios_context_finalize 5289 #ifdef INCA 5290 IF (is_omp_master) THEN 5291 5292 CALL finalize_inca 5293 5294 5295 ENDIF 5296 #endif 5297 5283 5298 #endif 5284 5299 WRITE(lunout,*) ' physiq fin, nombre de steps ou cvpas = 1 : ', Ncvpaseq1
Note: See TracChangeset
for help on using the changeset viewer.