From 1781167e4d5dfb7601bafd18c1831eb204a393de Mon Sep 17 00:00:00 2001 From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr> Date: Fri, 21 Oct 2022 16:01:35 +0200 Subject: [PATCH] Philippe 21/10/2022: init XTSRAD to XUNDEF from SURFEX --- src/MNH/ini_aircraft_balloon.f90 | 3 ++- src/MNH/ini_modeln.f90 | 3 ++- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/src/MNH/ini_aircraft_balloon.f90 b/src/MNH/ini_aircraft_balloon.f90 index 6191e60d5..7509894df 100644 --- a/src/MNH/ini_aircraft_balloon.f90 +++ b/src/MNH/ini_aircraft_balloon.f90 @@ -177,6 +177,7 @@ CONTAINS !---------------------------------------------------------------------------- SUBROUTINE ALLOCATE_FLYER(TPFLYER) ! +USE MODD_SURF_PAR, ONLY: XUNDEF_SFX => XUNDEF ! CLASS(TFLYERDATA), INTENT(INOUT) :: TPFLYER ! @@ -262,7 +263,7 @@ TPFLYER%XCRARE_ATT = XUNDEF TPFLYER%XWZ = XUNDEF TPFLYER%XZZ = XUNDEF TPFLYER%XTKE = XUNDEF -TPFLYER%XTSRAD = XUNDEF +TPFLYER%XTSRAD = XUNDEF_SFX TPFLYER%XZS = XUNDEF TPFLYER%XTKE_DISS = XUNDEF ! diff --git a/src/MNH/ini_modeln.f90 b/src/MNH/ini_modeln.f90 index 258172aeb..81161434a 100644 --- a/src/MNH/ini_modeln.f90 +++ b/src/MNH/ini_modeln.f90 @@ -394,6 +394,7 @@ use MODD_SALT_OPT_LKT, only: NMAX_RADIUS_LKT_SALT=>NMAX_RADIUS_LKT, NMAX_SI USE MODD_SERIES, only: LSERIES USE MODD_SHADOWS_n USE MODD_STAND_ATM, only: XSTROATM, XSMLSATM, XSMLWATM, XSPOSATM, XSPOWATM +USE MODD_SURF_PAR, only: XUNDEF_SFX => XUNDEF USE MODD_TIME USE MODD_TIME_n USE MODD_TURB_CLOUD, only: NMODEL_CLOUD, CTURBLEN_CLOUD,XCEI @@ -1494,7 +1495,7 @@ IF (CRAD /= 'NONE') THEN ALLOCATE(XDIR_ALB(IIU,IJU,NSWB_MNH)) ALLOCATE(XSCA_ALB(IIU,IJU,NSWB_MNH)) ALLOCATE(XEMIS (IIU,IJU,NLWB_MNH)) - ALLOCATE(XTSRAD (IIU,IJU)) ; XTSRAD = 0.0 + ALLOCATE(XTSRAD (IIU,IJU)) ; XTSRAD = XUNDEF_SFX ALLOCATE(XSEA (IIU,IJU)) ALLOCATE(XZS_XY (IIU,IJU)) ALLOCATE(NCLEARCOL_TM1(IIU,IJU)) -- GitLab