Changeset 5158 for LMDZ6/branches/Amaury_dev/libf/phylmd/ocean_albedo.F90

Timestamp:

Aug 2, 2024, 2:12:03 PM (3 months ago)

Author:

abarral

Message:

Add missing klon on strataer_emiss_mod.F90
Correct various missing explicit declarations
Replace tabs by spaces (tabs are not part of the fortran charset)
Continue cleaning modules
Removed unused arguments and variables

File:

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

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

@@ -24 +24 @@
 !!    AUTHOR
 !!    ------
-!!      R. Séférian           * Meteo-France *
+!!    R. Séférian           * Meteo-France *
 !!
 !!    MODIFICATIONS
@@ -158 +158 @@
 !!  ENDWHERE
 
-    do JI = 1, knon
+    DO JI = 1, knon
       IF (ZCHL(JI) > 0.02) THEN
         ZNU(JI)=MIN(0.0,0.5*(ZWORK3(JI)-0.3))