Changeset 5283 for LMDZ6/trunk/libf/phylmd/concvl.f90

Timestamp:

Oct 28, 2024, 1:47:34 PM (9 hours ago)

Author:

abarral

Message:

Turn tracstoke.h conema3.h cv30_routines.f90 cv30param.h into modules

File:

• LMDZ6/trunk/libf/phylmd/concvl.f90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/concvl.f90

@@ -47 +47 @@
           , RESTT, RALPW, RBETW, RGAMW, RALPS, RBETS, RGAMS            &
           , RALPD, RBETD, RGAMD
+  USE conema3_mod_h
   IMPLICIT NONE
 ! ======================================================================
@@ -238 +239 @@
   include "YOETHF.h"
   include "FCTTRE.h"
-!jyg<
-  include "conema3.h"
-!>jyg
 
   IF (first) THEN