Changeset 5117 for LMDZ6/branches/Amaury_dev/libf/phylmd/oasis.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/oasis.F90 (modified) (3 diffs)

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

@@ -112 +112 @@
     USE surface_data, ONLY: version_ocean
     USE carbon_cycle_mod, ONLY: carbon_cycle_cpl
-    USE wxios, ONLY: wxios_context_init
+    USE lmdz_wxios, ONLY: wxios_context_init
     USE chemistry_cycle_mod, ONLY: dms_cycle_cpl, n2o_cycle_cpl
     USE lmdz_xios  
@@ -197 +197 @@
     infosend(ids_calvin)%action = .TRUE. ; infosend(ids_calvin)%name = 'COCALVIN'
     
-    if (activate_ocean_skin == 2) THEN
+    IF (activate_ocean_skin == 2) THEN
        infosend(ids_delta_sst)%action = .TRUE.
        infosend(ids_delta_sst)%name = 'CODELSST'
@@ -247 +247 @@
    inforecv(idr_icetem)%action = .TRUE. ; inforecv(idr_icetem)%name = 'SIICTEMW'
 
-   if (activate_ocean_skin >= 1) THEN
+   IF (activate_ocean_skin >= 1) THEN
       inforecv(idr_sss)%action = .TRUE.
       inforecv(idr_sss)%name = 'SISUSALW'