diff --git a/src/MNH/ini_cpl.f90 b/src/MNH/ini_cpl.f90 index 84b4582a07317bb31e166c706f9958432b1d66dd..7878ae9704f1a04d6b82bcc67ee9b5ab5a651037 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'