Changeset 5117 for LMDZ6/branches/Amaury_dev/libf/phylmd/conf_phys_m.F90

Timestamp:

Jul 24, 2024, 4:23:34 PM (4 months ago)

Author:

abarral

Message:

rename modules properly lmdz_*
move some unused files to obsolete/
(lint) uppercase fortran keywords

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/conf_phys_m.F90 (modified) (2 diffs)

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

@@ -32 +32 @@
     USE lmdz_grid_phy, ONLY: klon_glo
     USE lmdz_print_control, ONLY: lunout
-    use config_ocean_skin_m, ONLY: config_ocean_skin
+    USE config_ocean_skin_m, ONLY: config_ocean_skin
     USE phys_state_var_mod, ONLY: phys_tstep
     USE infotrac_phy, ONLY: type_trac
@@ -2300 +2300 @@
     ok_veget = .TRUE.
     type_veget = type_veget_omp
-    IF (type_veget=='n' .or. type_veget=='bucket' .or. type_veget=='betaclim') THEN
+    IF (type_veget=='n' .OR. type_veget=='bucket' .OR. type_veget=='betaclim') THEN
       ok_veget = .FALSE.
     ENDIF