From f17c641e78fbe67553a50037249e458c5debead3 Mon Sep 17 00:00:00 2001
From: Juan Escobar <juan.escobar@aero.obs-mip.fr>
Date: Thu, 27 Mar 2014 15:26:10 +0000
Subject: [PATCH] Juan 26/03/2014: bug in init of NSV_USER on RESTA case

---
 src/MNH/ini_cpl.f90 | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/MNH/ini_cpl.f90 b/src/MNH/ini_cpl.f90
index 84b4582a0..7878ae970 100644
--- a/src/MNH/ini_cpl.f90
+++ b/src/MNH/ini_cpl.f90
@@ -213,6 +213,7 @@ END MODULE MODI_INI_CPL
 !!                                       SST forcing
 !!      Modification             05/2006  Remove KEPS
 !!                     (Escobar) 2/2014 add Forefire
+!!                     (J.Escobar) 26/03/2014 bug in init of NSV_USER on RESTA case
 !-------------------------------------------------------------------------------
 !
 !*       0.    DECLARATIONS
@@ -515,7 +516,7 @@ CALL INI_LS(CCPLFILE(NCPL_CUR),HLUOUT,HGETRVM,GLSOURCE,PLSUS,PLSVS,PLSWS,PLSTHS,
 !   IF (LPASPOL) YGETSVM(NSV_PPBEG: NSV_PPEND) = 'INIT'
 !   IF (LFOREFIRE) YGETSVM(NSV_FFBEG: NSV_FFEND) = 'INIT'
 #endif
-!   IF (NSV_USER /= 0) YGETSVM(1/NSV_USER) = 'INIT'
+!   IF (NSV_USER /= 0) YGETSVM(1:NSV_USER) = 'INIT'
 !   IF (NSV_C2R2 /= 0) YGETSVM(NSV_C2R2BEG: NSV_C2R2END) = 'INIT'
 !   IF (NSV_C1R3 /= 0) YGETSVM(NSV_C1R3BEG: NSV_C1R3END) = 'INIT'
 !   IF (NSV_ELEC /= 0) YGETSVM(NSV_ELECBEG: NSV_ELECEND) = 'INIT'
-- 
GitLab