Changeset 5134 for LMDZ6/branches/Amaury_dev/libf/dyn3dmem/advtrac_loc.f90

Timestamp:

Jul 26, 2024, 5:56:37 PM (4 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/dyn3dmem/advtrac_loc.f90 (modified) (1 diff)

LMDZ6/branches/Amaury_dev/libf/dyn3dmem/advtrac_loc.f90

@@ -21 +21 @@
   USE lmdz_description, ONLY: descript
   USE lmdz_libmath, ONLY: minmax
-
+  USE lmdz_comdissip, ONLY: coefdis, tetavel, tetatemp, gamdissip, niterdis
 
   IMPLICIT NONE
 
-  include "dimensions.h"
-  include "paramet.h"
-  include "comdissip.h"
-  include "comgeom2.h"
+  INCLUDE "dimensions.h"
+  INCLUDE "paramet.h"
+  INCLUDE "comgeom2.h"
 
   !---------------------------------------------------------------------------