Changeset 5283 for LMDZ6/trunk/libf/phylmdiso/concvl.F90

Timestamp:

Oct 28, 2024, 1:47:34 PM (4 days ago)

Author:

abarral

Message:

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

File:

• LMDZ6/trunk/libf/phylmdiso/concvl.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmdiso/concvl.F90

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