diff --git a/src/MNH/write_lfin.f90 b/src/MNH/write_lfin.f90 index 00f7b613ea341f90f600b755ef294b5b2604c662..2709bb58e6d249842dc5a0704f405ce8f0c9b51f 100644 --- a/src/MNH/write_lfin.f90 +++ b/src/MNH/write_lfin.f90 @@ -154,6 +154,7 @@ END MODULE MODI_WRITE_LFIFM_n !! M.Tomasini 06/12 2D west african monsoon: nesting for ADV forcing writing !! Pialat/Tulet 15/02/2012 add ForeFire variables !! J. Escobar Mars 2014 , missing YDIR="XY" in 1.6 for tendencies fields +!! J.escobar & M.Leriche 23/06/2014 Pb with JSA increment versus ini_nsv order initialization !! !------------------------------------------------------------------------------- ! @@ -933,7 +934,7 @@ IF (NSV >=1) THEN ILENCH=LEN(YCOMMENT) CALL FMWRIT(HFMFILE,YRECFM,CLUOUT,YDIR,XSVT(:,:,:,JSV),IGRID,ILENCH, & YCOMMENT,IRESP) - JSA=JSA+1 + !JSA=JSA+1 END DO ! Passive scalar variables IF (LPASPOL) THEN @@ -943,7 +944,7 @@ IF (NSV >=1) THEN ILENCH=LEN(YCOMMENT) CALL FMWRIT(HFMFILE,YRECFM,CLUOUT,YDIR,XSVT(:,:,:,JSV),IGRID,ILENCH, & YCOMMENT,IRESP) - JSA=JSA+1 + !JSA=JSA+1 END DO END IF #ifdef MNH_FOREFIRE @@ -967,7 +968,7 @@ IF (NSV >=1) THEN ILENCH=LEN(YCOMMENT) CALL FMWRIT(HFMFILE,YRECFM,CLUOUT,YDIR,XSVT(:,:,:,JSV),IGRID,ILENCH, & YCOMMENT,IRESP) - JSA=JSA+1 + !JSA=JSA+1 END DO ! END IF