From 4c907030ce65862d734fa6a181c536196a3b6914 Mon Sep 17 00:00:00 2001 From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr> Date: Fri, 20 May 2022 16:21:28 +0200 Subject: [PATCH] Philippe 20/05/2022: move XLAM_CRAD to modd_cst --- src/MNH/ini_aircraft_balloon.f90 | 1 - src/MNH/modd_aircraft_balloon.f90 | 1 - src/MNH/modd_cst.f90 | 11 +++++++---- src/MNH/profilern.f90 | 3 +-- 4 files changed, 8 insertions(+), 8 deletions(-) diff --git a/src/MNH/ini_aircraft_balloon.f90 b/src/MNH/ini_aircraft_balloon.f90 index 58803387b..367f70535 100644 --- a/src/MNH/ini_aircraft_balloon.f90 +++ b/src/MNH/ini_aircraft_balloon.f90 @@ -429,7 +429,6 @@ IF (CCLOUD=='LIMA') THEN ENDIF TPFLYER%IWCZ = XUNDEF TPFLYER%LWCZ = XUNDEF -XLAM_CRAD = 3.154E-3 ! (in m) <=> 95.04 GHz = Rasta cloud radar frequency TPFLYER%CRARE = XUNDEF TPFLYER%CRARE_ATT= XUNDEF TPFLYER%WZ= XUNDEF diff --git a/src/MNH/modd_aircraft_balloon.f90 b/src/MNH/modd_aircraft_balloon.f90 index e3c30efca..cc6b45b24 100644 --- a/src/MNH/modd_aircraft_balloon.f90 +++ b/src/MNH/modd_aircraft_balloon.f90 @@ -146,7 +146,6 @@ REAL, DIMENSION(:) , POINTER :: THW_FLUX => NULL() ! thw_flux(n) REAL, DIMENSION(:) , POINTER :: RCW_FLUX => NULL() ! rcw_flux(n) REAL, DIMENSION(:,:), POINTER :: SVW_FLUX => NULL() ! psw_flux(n) END TYPE FLYER -REAL :: XLAM_CRAD ! cloud radar wavelength (m) ! !------------------------------------------------------------------------------------------- ! diff --git a/src/MNH/modd_cst.f90 b/src/MNH/modd_cst.f90 index 73607888c..e720256f3 100644 --- a/src/MNH/modd_cst.f90 +++ b/src/MNH/modd_cst.f90 @@ -1,10 +1,10 @@ -!MNH_LIC Copyright 1994-2021 CNRS, Meteo-France and Universite Paul Sabatier +!MNH_LIC Copyright 1994-2022 CNRS, Meteo-France and Universite Paul Sabatier !MNH_LIC This is part of the Meso-NH software governed by the CeCILL-C licence -!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt +!MNH_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !MNH_LIC for details. version 1. !----------------------------------------------------------------- ! ############### - MODULE MODD_CST + MODULE MODD_CST ! ############### ! !!**** *MODD_CST* - declaration of Physic constants @@ -37,7 +37,8 @@ !! C. Mari 31/10/00 add NDAYSEC !! V. Masson 01/03/03 add conductivity of ice !! J.Escobar : 10/2017 : for real*4 , add XMNH_HUGE_12_LOG -!! J.L. Redelsperger 03/2021 add constants for ocean penetrating solar +! J.L. Redelsperger 03/2021: add constants for ocean penetrating solar +! P. Wautelet 20/05/2022: add RASTA cloud radar wavelength !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS @@ -97,6 +98,8 @@ REAL,SAVE :: XD2=23. REAL,SAVE :: XRHOLI ! Volumic mass of liquid water ! INTEGER, SAVE :: NDAYSEC ! Number of seconds in a day + +REAL, PARAMETER :: XLAM_CRAD = 3.154E-3 ! RASTA cloud radar wavelength (m) <=> 95.04 GHz ! ! ! Some machine precision value depending of real4/8 use diff --git a/src/MNH/profilern.f90 b/src/MNH/profilern.f90 index a9215eb8e..5554c6cd2 100644 --- a/src/MNH/profilern.f90 +++ b/src/MNH/profilern.f90 @@ -88,7 +88,7 @@ END MODULE MODI_PROFILER_n !* 0. DECLARATIONS ! ------------ ! -USE MODD_CST, ONLY: XCPD, XG, XLIGHTSPEED, XP00, XPI, XRD, XRHOLW, XRV, XTT +USE MODD_CST, ONLY: XCPD, XG, XLAM_CRAD, XLIGHTSPEED, XP00, XPI, XRD, XRHOLW, XRV, XTT USE MODD_DIAG_IN_RUN USE MODD_GRID, ONLY: XBETA, XLON0, XRPK USE MODD_NSV, ONLY: NSV_C2R2BEG, NSV_C2R2END, NSV_LIMA_NC, NSV_LIMA_NI, NSV_LIMA_NR @@ -235,7 +235,6 @@ ZK2 = 0.704 ! K/Pa ZK3 = 3739. ! K2/Pa ZRDSRV=XRD/XRV ! -XLAM_CRAD = 3.154E-3 ! (in m) <=> 95.04 GHz = Rasta cloud radar frequency !* 2.1 Indices ! ------- ! -- GitLab