Changeset 5134 for LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d

Timestamp:

Jul 26, 2024, 5:56:37 PM (4 months ago)

Author:

abarral

Message:

Replace academic.h, alpale.h, comdissip.h, comdissipn.h, comdissnew.h by modules
Remove unused clesph0.h

Location:

LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d

Files:

• lmdz_1dutils.f90 (modified) (1 diff)
• lmdz_old_1dconv.f90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/lmdz_1dutils.f90

@@ -6 +6 @@
 CONTAINS
   REAL FUNCTION fq_sat(kelvin, millibar)
-    IMPLICIT none
+    IMPLICIT NONE
     !======================================================================
     ! Autheur(s): Z.X. Li (LMD/CNRS)

LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/lmdz_old_1dconv.f90

@@ -632 +632 @@
   SUBROUTINE rdgrads(itape, icount, nl, z, ht, hq, hw, hu, hv, hthtur, hqtur, &
           &  ts_fcg, ts, imp_fcg, Turb_fcg)
-    IMPLICIT none
+    IMPLICIT NONE
     INTEGER itape, icount, icomp, nl
     REAL z(nl), ht(nl), hq(nl), hw(nl), hu(nl), hv(nl)