From 6a29c627187dcf6db2ccc1dbd499a1e99942ae34 Mon Sep 17 00:00:00 2001 From: Gaelle Tanguy <gaelle.tanguy@meteo.fr> Date: Thu, 20 Nov 2014 10:18:26 +0000 Subject: [PATCH] G.Delautier 20/11/2014: BUG if ZFRC and ZFRC_ADV or ZFRC_REL are used together --- src/MNH/prep_ideal_case.f90 | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/src/MNH/prep_ideal_case.f90 b/src/MNH/prep_ideal_case.f90 index d4ff21d24..0721e35ac 100644 --- a/src/MNH/prep_ideal_case.f90 +++ b/src/MNH/prep_ideal_case.f90 @@ -307,7 +307,8 @@ !! USE MODDB_ADVFRC_n for grid-nesting 02*2012 (M. Tomasini) !! LBOUSS in MODD_REF 07/2013 (C.Lac) !! Correction for ZS in PGD file 04/2014 (G. TANGUY) -!! Bug : remove NC WRITE_HGRID 05/2014 (S. Bielli via J.Escobar ) +!! Bug : remove NC WRITE_HGRID 05/2014 (S. Bielli via J.Escobar ) +!! BUG if ZFRC and ZFRC_ADV or ZFRC_REL are used together 11/2014 (G. Delautier) !------------------------------------------------------------------------------- ! !* 0. DECLARATIONS @@ -1448,7 +1449,7 @@ END IF ! IF (LFORCING) THEN WRITE(NLUOUT,FMT=*) 'FORCING IS ENABLED, ATTEMPT TO SET FORCING FIELDS' - CALL POSKEY(NLUPRE,NLUOUT,'ZFRC','PFRC') + CALL POSKEY(NLUPRE,NLUOUT,'ZFRC ','PFRC') CALL SET_FRC(CEXPRE) END IF ! -- GitLab