Changeset 5158 for LMDZ6/branches/Amaury_dev/libf/phylmdiso/phyaqua_mod.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/phylmdiso/phyaqua_mod.F90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmdiso/phyaqua_mod.F90

@@ -954 +954 @@
         !     Méthode 13 "Qmax2K" plateau réel é|  l'Equateur augmenté +2K
 
-        do j = 1, klon
+        DO j = 1, klon
           phy_sst(j, i) = 248. + 55. * (1 - sin(rlatd(j))**2)
         enddo
@@ -962 +962 @@
         PRINT*, 'Profile SST 21'
         !     Méthode 13 "Qmax2K" plateau réel é|  l'Equateur augmenté +2K
-        do j = 1, klon
+        DO j = 1, klon
           phy_sst(j, i) = 252. + 55. * (1 - sin(rlatd(j))**2)
         enddo