Changeset 5137 for LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd

Timestamp:

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

Author:

abarral

Message:

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

Location:

LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd

Files:

• etat0phys_netcdf.F90 (modified) (2 diffs)
• iniphysiq_mod.F90 (modified) (2 diffs)

LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd/etat0phys_netcdf.F90

@@ -53 +53 @@
   USE lmdz_iniprint, ONLY: lunout, prt_level
   USE lmdz_comgeom2
+  USE lmdz_clesphys
 
   PRIVATE
@@ -60 +61 @@
   INCLUDE "paramet.h"
   INCLUDE "dimsoil.h"
-  INCLUDE "clesphys.h"
   REAL, SAVE :: deg2rad
   REAL, SAVE, ALLOCATABLE :: tsol(:)

LMDZ6/branches/Amaury_dev/libf/dynphy_lonlat/phylmd/iniphysiq_mod.F90

@@ -43 +43 @@
     USE lmdz_iniprint, ONLY: lunout, prt_level
     USE lmdz_comgeom
+    USE lmdz_tracstoke
 
     IMPLICIT NONE
@@ -53 +54 @@
     INCLUDE "dimensions.h"
     INCLUDE "paramet.h"
-    INCLUDE "tracstoke.h"
 
     REAL, INTENT (IN) :: prad ! radius of the planet (m)