Changeset 5160 for LMDZ6/branches/Amaury_dev/libf/phylmd/Ocean_skin

Timestamp:

Aug 3, 2024, 2:56:58 PM (3 months ago)

Author:

abarral

Message:

Put .h into modules

File:

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

LMDZ6/branches/Amaury_dev/libf/phylmd/Ocean_skin/config_ocean_skin_m.F90

@@ -51 +51 @@
 #else
     WRITE(unit = *, nml = config_ocean_skin_nml)
-    print *, "Enter namelist config_ocean_skin_nml."
+    PRINT *, "Enter namelist config_ocean_skin_nml."
     read(unit = *, nml = config_ocean_skin_nml)
     WRITE(unit = *, nml = config_ocean_skin_nml)
@@ -74 +74 @@
        rain_effect = .TRUE.
     case default
-       print *, "config_ocean_skin: bad value for flag_ocean_skin."
+       PRINT *, "config_ocean_skin: bad value for flag_ocean_skin."
        stop 1
     end select