Changeset 5101 for LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd/iniphysiq_mod.F90

Timestamp:

Jul 23, 2024, 8:22:55 AM (2 months ago)

Author:

abarral

Message:

Handle DEBUG_IO in lmdz_cppkeys_wrapper.F90
Transform some files .F -> .[fF]90
[ne compile pas à cause de writefield_u non défini - en attente de réponse Laurent]

File:

• LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd/iniphysiq_mod.F90 (modified) (4 diffs)

LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd/iniphysiq_mod.F90

@@ -15 +15 @@
   USE mod_grid_phy_lmdz, ONLY: nbp_lon,nbp_lat,nbp_lev,klon_glo ! number of atmospheric columns (on full grid)
   USE mod_phys_lmdz_para, ONLY: klon_omp ! number of columns (on local omp grid)
-  USE vertical_layers_mod, ONLY : init_vertical_layers
+  USE vertical_layers_mod, ONLY: init_vertical_layers
   USE infotrac, ONLY: nbtr, type_trac
 
 #ifdef REPROBUS
-  USE CHEM_REP, ONLY : Init_chem_rep_phys
+  USE CHEM_REP, ONLY: Init_chem_rep_phys
 #ifdef CPP_PARA
-  USE parallel_lmdz, ONLY : mpi_size, mpi_rank
-  USE bands, ONLY : distrib_phys
+  USE parallel_lmdz, ONLY: mpi_size, mpi_rank
+  USE bands, ONLY: distrib_phys
 #endif
   USE mod_phys_lmdz_omp_data, ONLY: klon_omp
@@ -36 +36 @@
   USE indice_sol_mod, ONLY: nbsrf, is_oce, is_sic, is_ter, is_lic
 #ifdef CPP_PARA
-  USE parallel_lmdz, ONLY : mpi_size, mpi_rank
-  USE bands, ONLY : distrib_phys
+  USE parallel_lmdz, ONLY: mpi_size, mpi_rank
+  USE bands, ONLY: distrib_phys
 #endif
   USE mod_phys_lmdz_omp_data, ONLY: klon_omp 
@@ -137 +137 @@
   IF (type_trac == 'repr') THEN
 #ifdef REPROBUS
-    call Init_chem_rep_phys(klon_omp,nlayer)
-    call init_reprobus_para( &
+    CALL Init_chem_rep_phys(klon_omp,nlayer)
+    CALL init_reprobus_para( &
           nbp_lon,nbp_lat,nbp_lev,klon_glo,mpi_size, &
           distrib_phys,communicator)
@@ -148 +148 @@
   IF (type_trac == 'repr') THEN
 #ifdef REPROBUS
-    call init_reprobus_para( &
+    CALL init_reprobus_para( &
           nbp_lon,nbp_lat,nbp_lev,klon_glo,mpi_size, &
           distrib_phys,communicator)