Changeset 5296 for LMDZ6/trunk/libf/phylmd/Dust

Timestamp:

Oct 30, 2024, 2:05:33 PM (3 months ago)

Author:

abarral

Message:

Turn compbl.h into a module
Move calcul_REGDYN.h to obsolete
Create phys_constants_mod.f90

File:

• LMDZ6/trunk/libf/phylmd/Dust/phys_output_write_spl_mod.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/Dust/phys_output_write_spl_mod.F90

@@ -89 +89 @@
     ! defined and initialised mainly in phytracr_spl_mod.F90 (SPLA tracers, subroutine phytracr_spl_out_init)
 
-USE alpale_mod
+USE compbl_mod_h
+    USE alpale_mod
         USE dimphy, ONLY: klon, klev, klevp1
     USE ocean_slab_mod, ONLY: nslay
@@ -395 +396 @@
 
     USE dimensions_mod, ONLY: iim, jjm, llm, ndm
-USE yomcst_mod_h
+    USE yomcst_mod_h
     USE clesphys_mod_h
     USE iniprint_mod_h
+    USE phys_constants_mod, ONLY: dobson_u
 IMPLICIT NONE
 
 !   INCLUDE "temps.h"
-    INCLUDE "compbl.h"
 
     ! Input
@@ -433 +434 @@
     INTEGER, DIMENSION(iim*jjmp1)  :: ndex2d
     INTEGER, DIMENSION(iim*jjmp1*klev) :: ndex3d
-    REAL, PARAMETER :: dobson_u = 2.1415e-05 ! Dobson unit, in kg m-2
     REAL :: missing_val
     REAL, PARAMETER :: un_jour=86400.