Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/trunk/libf/phylmd/radlwsw_m.F90

    r5285 r5296  
    8989    USE clesphys_mod_h
    9090    USE yoethf_mod_h
     91    USE phys_constants_mod, ONLY: dobson_u
    9192
    9293    !======================================================================
     
    403404    REAL(KIND=8) zsolsw_aero(kdlon,9), zsolsw0_aero(kdlon,9)
    404405    REAL(KIND=8) ztopswcf_aero(kdlon,3), zsolswcf_aero(kdlon,3)     
    405     ! real, parameter:: dobson_u = 2.1415e-05 ! Dobson unit, in kg m-2 deje declare dans physiq.F MPL 20130618
    406406    !MPL input supplementaires pour RECMWFL
    407407    ! flwc, fiwc = Liquid Water Content & Ice Water Content (kg/kg)
     
    471471    !      REAL(KIND=8) SUN(3)
    472472    !      REAL(KIND=8) SUN_FRACT(2)
    473     REAL, PARAMETER:: dobson_u = 2.1415e-05 ! Dobson unit, in kg m-2
    474473    CHARACTER (LEN=80) :: abort_message
    475474    CHARACTER (LEN=80) :: modname='radlwsw_m'
Note: See TracChangeset for help on using the changeset viewer.