diff --git a/src/MNH/modeln.f90 b/src/MNH/modeln.f90 index 82bccf2502d0e700e84f5067780f946584213219..c3002495d3c20611cedb2a373c5c3dce4e404f59 100644 --- a/src/MNH/modeln.f90 +++ b/src/MNH/modeln.f90 @@ -972,7 +972,7 @@ IF ( nfile_backup_current < NBAK_NUMB ) THEN TFILE_SURFEX => TZBAKFILE CALL GOTO_SURFEX(IMI) CALL WRITE_SURF_ATM_n(YSURF_CUR,'MESONH','ALL',.FALSE.) - IF ( nfile_backup_current -1 > 0) THEN + IF ( KTCOUNT > 1) THEN CALL DIAG_SURF_ATM_n(YSURF_CUR,'MESONH') CALL WRITE_DIAG_SURF_ATM_n(YSURF_CUR,'MESONH','ALL') END IF