Changeset 5101 for LMDZ6/branches/Amaury_dev/libf/phylmd/ocean_forced_mod.F90

Timestamp:

Jul 23, 2024, 8:22:55 AM (4 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/phylmd/ocean_forced_mod.F90 (modified) (3 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/ocean_forced_mod.F90

@@ -39 +39 @@
     USE mod_grid_phy_lmdz
     USE indice_sol_mod
-    USE phys_output_var_mod, ONLY : sens_prec_liq_o, sens_prec_sol_o, lat_prec_liq_o, lat_prec_sol_o
+    USE phys_output_var_mod, ONLY: sens_prec_liq_o, sens_prec_sol_o, lat_prec_liq_o, lat_prec_sol_o
     use config_ocean_skin_m, only: activate_ocean_skin
 #ifdef ISO
@@ -262 +262 @@
     USE geometry_mod, ONLY: longitude,latitude
     USE calcul_fluxs_mod
-    USE surface_data,     ONLY : calice, calsno
+    USE surface_data,     ONLY: calice, calsno
     USE limit_read_mod
-    USE fonte_neige_mod,  ONLY : fonte_neige
+    USE fonte_neige_mod,  ONLY: fonte_neige
     USE indice_sol_mod
-    USE phys_output_var_mod, ONLY : sens_prec_liq_o, sens_prec_sol_o, lat_prec_liq_o, lat_prec_sol_o
+    USE phys_output_var_mod, ONLY: sens_prec_liq_o, sens_prec_sol_o, lat_prec_liq_o, lat_prec_sol_o
 #ifdef ISO
     USE infotrac_phy, ONLY: niso, ntiso
@@ -511 +511 @@
 ! This subroutine specifies the surface temperature to be used in 1D simulations
 
-!      USE dimphy, ONLY : klon
+!      USE dimphy, ONLY: klon
 
 !      INTEGER, INTENT(IN)                  :: knon     ! nomber of points on compressed grid