Changeset 5134 for LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/lmdz_1dutils.f90

Timestamp:

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

Author:

abarral

Message:

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

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/lmdz_1dutils.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)