From 0bd1d21dbb320158cd02c6b653fe9406d7bfa4c2 Mon Sep 17 00:00:00 2001 From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr> Date: Thu, 21 Nov 2019 15:19:03 +0100 Subject: [PATCH] Philippe 21/11/2019: SURFEX: minor bugfix: initialize YSNOW_SCHEME --- src/SURFEX/init_isban.F90 | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/src/SURFEX/init_isban.F90 b/src/SURFEX/init_isban.F90 index dfa0031ef..4bdbb57e1 100644 --- a/src/SURFEX/init_isban.F90 +++ b/src/SURFEX/init_isban.F90 @@ -1,6 +1,6 @@ -!SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier +!SFX_LIC Copyright 2004-2019 CNRS, Meteo-France and Universite Paul Sabatier !SFX_LIC This is part of the SURFEX software governed by the CeCILL-C licence -!SFX_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt +!SFX_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt !SFX_LIC for details. version 1. !############################################################# SUBROUTINE INIT_ISBA_n (DTCO, OREAD_BUDGETC, UG, U, USS, GCP, IM, DTZ,& @@ -58,6 +58,7 @@ SUBROUTINE INIT_ISBA_n (DTCO, OREAD_BUDGETC, UG, U, USS, GCP, IM, DTZ,& !! V.VIonnet 2017 : Blow snow !! P.Tulet 06/16 : add MEGAN coupling !! J.Pianezzej 02/2019 : correction for use of MEGAN +! P. Wautelet 21/11/2019: initialize YSNOW_SCHEME !! !------------------------------------------------------------------------------- ! @@ -267,6 +268,8 @@ IM%O%NNBYEARSOLD = 1 IM%O%NSPINS = 1 IM%O%NSPINW = 1 ! +YSNOW_SCHEME=' ' +! IF (HINIT=='PRE') THEN CALL READ_PREP_ISBA_SNOW(HPROGRAM,YSNOW_SCHEME,ISNOW_NLAYER) ! -- GitLab