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

Timestamp:

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

Author:

abarral

Message:

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

Location:

LMDZ6/branches/Amaury_dev/libf/dyn3dmem

Files:

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

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

@@ -12 +12 @@
   USE lmdz_vampir
   USE write_field_loc
-
+  USE lmdz_tracstoke
 
   IMPLICIT NONE
@@ -26 +26 @@
   INCLUDE "dimensions.h"
   INCLUDE "paramet.h"
-  INCLUDE "tracstoke.h"
 
   !   Arguments:

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

@@ -30 +30 @@
           tetagrot, tetatemp, coefdis, vert_prof_dissip
   USE lmdz_comgeom
+  USE lmdz_tracstoke
 
   IMPLICIT NONE
@@ -64 +65 @@
   INCLUDE "dimensions.h"
   INCLUDE "paramet.h"
-  INCLUDE "tracstoke.h"
 
   REAL zdtvr

LMDZ6/branches/Amaury_dev/libf/dyn3dmem/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