Changeset 5137 for LMDZ6/branches/Amaury_dev/libf/phylmd/iophy.F90

Timestamp:

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

Author:

abarral

Message:

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

File:

• LMDZ6/branches/Amaury_dev/libf/phylmd/iophy.F90 (modified) (7 diffs)

LMDZ6/branches/Amaury_dev/libf/phylmd/iophy.F90

@@ -213 +213 @@
   USE ioipsl, ONLY: histbeg
   USE lmdz_wxios, ONLY: wxios_add_file, using_xios
+  USE lmdz_clesphys
+
   IMPLICIT NONE
-  INCLUDE 'clesphys.h'
-    
+
   CHARACTER*(*), INTENT(IN) :: name
   INTEGER, INTENT(IN) :: itau0
@@ -462 +463 @@
     USE aero_mod, ONLY: naero_tot, name_aero_tau
     USE lmdz_print_control, ONLY: prt_level,lunout
+    USE lmdz_clesphys
 
     IMPLICIT NONE
-
-    INCLUDE "clesphys.h"
 
     INTEGER                          :: iff
@@ -538 +538 @@
     USE lmdz_grid_phy, ONLY: nbp_lon, nbp_lat
     USE lmdz_print_control, ONLY: prt_level,lunout
+    USE lmdz_clesphys
+
     IMPLICIT NONE
-
-    INCLUDE "clesphys.h"
 
     INTEGER                          :: iff
@@ -592 +592 @@
     USE lmdz_wxios, ONLY: wxios_add_field_to_file, using_xios
     USE lmdz_print_control, ONLY: prt_level,lunout
+    USE lmdz_clesphys
     IMPLICIT NONE
-
-    INCLUDE "clesphys.h"
 
     INTEGER                          :: iff
@@ -707 +706 @@
     USE lmdz_wxios, ONLY: wxios_add_field_to_file, using_xios
     USE lmdz_print_control, ONLY: prt_level,lunout
+    USE lmdz_clesphys
+
     IMPLICIT NONE
-
-    INCLUDE "clesphys.h"
 
     INTEGER                          :: iff
@@ -955 +954 @@
   USE lmdz_xios, ONLY: xios_send_field, xios_field_is_active, using_xios
   USE lmdz_print_control, ONLY: lunout, prt_level
+  USE lmdz_clesphys
 
   IMPLICIT NONE
-  INCLUDE 'clesphys.h'
 
   TYPE(ctrl_out), INTENT(IN) :: var
@@ -1167 +1166 @@
   USE lmdz_xios, ONLY: xios_send_field, xios_field_is_active, using_xios
   USE lmdz_print_control, ONLY: prt_level,lunout
+  USE lmdz_clesphys
 
   IMPLICIT NONE
-  INCLUDE 'clesphys.h'
 
   TYPE(ctrl_out), INTENT(IN) :: var