Changeset 5137 for LMDZ6/branches/Amaury_dev/libf/dyn3d

Timestamp:

Jul 28, 2024, 10:25:12 PM (3 months ago)

Author:

abarral

Message:

Put gradsdef.h, tracstoke.h, clesphys.h into modules

Location:

LMDZ6/branches/Amaury_dev/libf/dyn3d

Files:

• fluxstokenc.F90 (modified) (2 diffs)
• gcm.F90 (modified) (2 diffs)
• wrgrads.f90 (modified) (2 diffs)

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

@@ -9 +9 @@
   USE lmdz_ssum_scopy, ONLY: scopy
   USE lmdz_comgeom
+  USE lmdz_tracstoke
 
   !
@@ -20 +21 @@
   INCLUDE "dimensions.h"
   INCLUDE "paramet.h"
-  INCLUDE "tracstoke.h"
 
   REAL :: time_step, t_wrt, t_ops

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

@@ -31 +31 @@
           tetagrot, tetatemp, coefdis, vert_prof_dissip
   USE lmdz_comgeom
+  USE lmdz_tracstoke
 
   IMPLICIT NONE
@@ -66 +67 @@
   INCLUDE "dimensions.h"
   INCLUDE "paramet.h"
-  INCLUDE "tracstoke.h"
 
   REAL zdtvr

LMDZ6/branches/Amaury_dev/libf/dyn3d/wrgrads.f90

@@ -3 +3 @@
 subroutine wrgrads(if, nl, field, name, titlevar)
   USE lmdz_formcoord, ONLY: formcoord
-
+  USE lmdz_gradsdef
 
   IMPLICIT NONE
@@ -13 +13 @@
   !    name    petit nom
   !    titlevar   Titre
-
-  INCLUDE "gradsdef.h"
 
   !   arguments