Changeset 5159 for LMDZ6/branches/Amaury_dev/libf/phylmdiso/lmdz_concvl.F90

Timestamp:

Aug 2, 2024, 9:58:25 PM (3 months ago)

Author:

abarral

Message:

Put dimensions.h and paramet.h into modules

File:

• LMDZ6/branches/Amaury_dev/libf/phylmdiso/lmdz_concvl.F90 (modified) (3 diffs)

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

@@ -66 +66 @@
   USE lmdz_clesphys
   USE lmdz_conema3
-
   USE lmdz_yomcst
+  USE lmdz_yomcst2
+  USE lmdz_cv3_inip, ONLY: cv3_inip
 
   IMPLICIT NONE
@@ -298 +299 @@
 !$OMP THREADPRIVATE(itap, igout)
 
- include "YOMCST2.h"
-
   IF (first) THEN
 ! Allocate some variables LF 04/2008
@@ -347 +346 @@
 
     IF (iflag_con==3) THEN
-!      CALL cv3_inicp()
       CALL cv3_inip()
     END IF