Changeset 5134 for LMDZ6/branches/Amaury_dev/libf/dyn3d_common/gradiv2.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/dyn3d_common/gradiv2.f90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3d_common/gradiv2.f90

@@ -17 +17 @@
   USE lmdz_filtreg, ONLY: filtreg
   USE lmdz_ssum_scopy, ONLY: scopy
+  USE lmdz_comdissipn, ONLY: tetaudiv, tetaurot, tetah, cdivu, crot, cdivh
 
   IMPLICIT NONE
@@ -23 +24 @@
   INCLUDE "paramet.h"
   INCLUDE "comgeom.h"
-  INCLUDE "comdissipn.h"
   !
   ! ........    variables en arguments      ........