Changeset 5134 for LMDZ6/branches/Amaury_dev/libf/dyn3d/leapfrog.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/leapfrog.F90 (modified) (4 diffs)

LMDZ6/branches/Amaury_dev/libf/dyn3d/leapfrog.F90

@@ -28 +28 @@
   USE lmdz_iniprint, ONLY: lunout, prt_level
   USE lmdz_ssum_scopy, ONLY: scopy, ssum
-
+  USE lmdz_academic, ONLY: tetarappel, knewt_t, kfrict, knewt_g, clat4
+  USE lmdz_comdissnew, ONLY: lstardis, nitergdiv, nitergrot, niterh, tetagdiv, &
+          tetagrot, tetatemp, coefdis, vert_prof_dissip
 
   IMPLICIT NONE
@@ -63 +65 @@
   !   -------------
 
-  include "dimensions.h"
-  include "paramet.h"
-  include "comdissnew.h"
-  include "comgeom.h"
-  include "academic.h"
+  INCLUDE "dimensions.h"
+  INCLUDE "paramet.h"
+  INCLUDE "comgeom.h"
 
   REAL, INTENT(IN) :: time_0 ! not used
@@ -686 +686 @@
         ! For some Grads outputs of fields
         IF (output_grads_dyn) THEN
-          include "write_grads_dyn.h"
+          INCLUDE "write_grads_dyn.h"
         endif
       endif ! of if (leapf.OR.(.NOT.leapf.AND.(.NOT.forward)))
@@ -806 +806 @@
         ! For some Grads outputs
         IF (output_grads_dyn) THEN
-          include "write_grads_dyn.h"
+          INCLUDE "write_grads_dyn.h"
         endif