Changeset 5296 for LMDZ6/trunk/libf/phylmd/radlwsw_m.F90

Timestamp:

Oct 30, 2024, 2:05:33 PM (31 hours 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/radlwsw_m.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmd/radlwsw_m.F90

@@ -89 +89 @@
     USE clesphys_mod_h
     USE yoethf_mod_h
+    USE phys_constants_mod, ONLY: dobson_u
 
     !======================================================================
@@ -403 +404 @@
     REAL(KIND=8) zsolsw_aero(kdlon,9), zsolsw0_aero(kdlon,9)
     REAL(KIND=8) ztopswcf_aero(kdlon,3), zsolswcf_aero(kdlon,3)     
-    ! real, parameter:: dobson_u = 2.1415e-05 ! Dobson unit, in kg m-2 deje declare dans physiq.F MPL 20130618
     !MPL input supplementaires pour RECMWFL
     ! flwc, fiwc = Liquid Water Content & Ice Water Content (kg/kg)
@@ -471 +471 @@
     !      REAL(KIND=8) SUN(3)
     !      REAL(KIND=8) SUN_FRACT(2)
-    REAL, PARAMETER:: dobson_u = 2.1415e-05 ! Dobson unit, in kg m-2
     CHARACTER (LEN=80) :: abort_message
     CHARACTER (LEN=80) :: modname='radlwsw_m'