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

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_skin/bulk_flux_m.F90 (modified) (1 diff)

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

@@ -127 +127 @@
        tks = 5e-4
 
-       do iter = 1, 3
+       DO iter = 1, 3
           ! Cool skin
           dels = rns * (0.065 + 11. * tkt - 6.6e-5 / tkt &