Changeset 5144 for LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/lmdz_old_1dconv.f90

Timestamp:

Jul 29, 2024, 11:01:04 PM (7 weeks ago)

Author:

abarral

Message:

Put YOMCST.h into modules

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/dyn1d/lmdz_old_1dconv.f90 (modified) (3 diffs)

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

@@ -1 +1 @@
 MODULE lmdz_old_1dconv
-   PRIVATE  ! -- We'd love to put IMPLICIT NONE;  here...
+  PRIVATE  ! -- We'd love to put IMPLICIT NONE;  here...
   PUBLIC get_uvd, copie, get_uvd2, rdgrads, spaces
 CONTAINS
@@ -7 +7 @@
           &       ht, hq, hw, hu, hv, hthturb, hqturb, &
           &       Ts, imp_fcg, ts_fcg, Tp_fcg, Turb_fcg)
+
+    USE lmdz_yomcst
 
     IMPLICIT NONE
@@ -14 +16 @@
     ! pouvoir calculer la convergence et le cisaillement dans la physiq
     !cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc
-
-    INCLUDE "YOMCST.h"
 
     INTEGER klev