From b1345b3033acbf37d49a15ef044bf950ee07cf2f Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?S=C3=A9bastien=20Riette?= <sebastien.riette@meteo.fr> Date: Mon, 21 Mar 2022 13:37:36 +0100 Subject: [PATCH] =?UTF-8?q?S=C3=A9bastien=20Riette=2021/03/2022=20suppresi?= =?UTF-8?q?on=20of=20duplicate=20modd=5Fcst?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/arome/micro/modd_cst.F90 | 101 ----------------------------------- 1 file changed, 101 deletions(-) delete mode 100644 src/arome/micro/modd_cst.F90 diff --git a/src/arome/micro/modd_cst.F90 b/src/arome/micro/modd_cst.F90 deleted file mode 100644 index 863615736..000000000 --- a/src/arome/micro/modd_cst.F90 +++ /dev/null @@ -1,101 +0,0 @@ -! ######spl - MODULE MODD_CST -! ############### -! -!!**** *MODD_CST* - declaration of Physic constants -!! -!! PURPOSE -!! ------- -! The purpose of this declarative module is to declare the -! Physics constants. -! -!! -!!** IMPLICIT ARGUMENTS -!! ------------------ -!! None -!! -!! REFERENCE -!! --------- -!! Book2 of documentation of Meso-NH (MODD_CST) -!! -!! AUTHOR -!! ------ -!! V. Ducrocq *Meteo France* -!! -!! MODIFICATIONS -!! ------------- -!! Original 16/05/94 -!! J. Stein 02/01/95 add xrholw -!! J.-P. Pinty 13/12/95 add XALPI,XBETAI,XGAMI -!! J. Stein 25/07/97 add XTH00 -!! V. Masson 05/10/98 add XRHOLI -!! C. Mari 31/10/00 add NDAYSEC -!! V. Masson 01/03/03 add conductivity of ice -!! R. El Khatib 04/08/14 add pre-computed quantities -!! J.L. Redelsperger 03/2021 add constants for ocean penetrating solar -!------------------------------------------------------------------------------- -! -!* 0. DECLARATIONS -! ------------ -! -IMPLICIT NONE -REAL,SAVE :: XPI ! Pi -! -REAL,SAVE :: XDAY,XSIYEA,XSIDAY ! day duration, sideral year duration, - ! sideral day duration -! -REAL,SAVE :: XKARMAN ! von karman constant -REAL,SAVE :: XLIGHTSPEED ! light speed -REAL,SAVE :: XPLANCK ! Planck constant -REAL,SAVE :: XBOLTZ ! Boltzman constant -REAL,SAVE :: XAVOGADRO ! Avogadro number -! -REAL,SAVE :: XRADIUS,XOMEGA ! Earth radius, earth rotation -REAL,SAVE :: XG ! Gravity constant -! -REAL,SAVE :: XP00 ! Reference pressure -REAL,SAVE :: XP00OCEAN ! Reference pressure for ocean model -REAL,SAVE :: XRH00OCEAN ! Reference density for ocean model -! -REAL,SAVE :: XSTEFAN,XI0 ! Stefan-Boltzman constant, solar constant -! -REAL,SAVE :: XMD,XMV ! Molar mass of dry air and molar mass of vapor -REAL,SAVE :: XRD,XRV ! Gaz constant for dry air, gaz constant for vapor -REAL,SAVE :: XEPSILO ! XMV/XMD -REAL,SAVE :: XCPD,XCPV ! Cpd (dry air), Cpv (vapor) -REAL,SAVE :: XRHOLW ! Volumic mass of liquid water -REAL,SAVE :: XCL,XCI ! Cl (liquid), Ci (ice) -REAL,SAVE :: XTT ! Triple point temperature -REAL,SAVE :: XLVTT ! Vaporization heat constant -REAL,SAVE :: XLSTT ! Sublimation heat constant -REAL,SAVE :: XLMTT ! Melting heat constant -REAL,SAVE :: XESTT ! Saturation vapor pressure at triple point - ! temperature -REAL,SAVE :: XALPW,XBETAW,XGAMW ! Constants for saturation vapor - ! pressure function -REAL,SAVE :: XALPI,XBETAI,XGAMI ! Constants for saturation vapor - ! pressure function over solid ice -REAL,SAVE :: XCONDI ! thermal conductivity of ice (W m-1 K-1) -REAL,SAVE :: XALPHAOC ! thermal expansion coefficient for ocean (K-1) -REAL,SAVE :: XBETAOC ! Haline contraction coeff for ocean (S-1) -REAL,SAVE :: XTH00 ! reference value for the potential temperature -REAL,SAVE :: XTH00OCEAN ! Ref value for pot temp in ocean model -REAL,SAVE :: XSA00OCEAN ! Ref value for SAlinity in ocean model -REAL,SAVE :: XROC=0.69! 3 coeffs for SW penetration in Ocean (Hoecker et al) -REAL,SAVE :: XD1=1.1 -REAL,SAVE :: XD2=23. -! Values used in SURFEX CMO -!REAL,SAVE :: XROC=0.58 -!REAL,SAVE :: XD1=0.35 -!REAL,SAVE :: XD2=23. - -REAL,SAVE :: XRHOLI ! Volumic mass of liquid water -! -INTEGER, SAVE :: NDAYSEC ! Number of seconds in a day -! -REAL,SAVE :: RDSRV ! XRD/XRV -REAL,SAVE :: RDSCPD ! XRD/XCPD -REAL,SAVE :: RINVXP00 ! 1./XP00 -! -REAL,SAVE :: XMNH_EPSILON ! minimum space with 1.0 -END MODULE MODD_CST -- GitLab