diff --git a/src/OCE/LBC/mppini.F90 b/src/OCE/LBC/mppini.F90 index 22bc6beb51123c49b730b0b52e0eb8fab42cc6e0..e5cd21c354c4e766e2e79045f80c25ffeda116bb 100644 --- a/src/OCE/LBC/mppini.F90 +++ b/src/OCE/LBC/mppini.F90 @@ -855,6 +855,7 @@ CONTAINS IF(lwp) THEN WRITE(numout,*) WRITE(numout,*) ' -----------------------------------------------------------' + CALL FLUSH(numout) ENDIF CALL mppsync CALL mppstop( ld_abort = .TRUE. ) diff --git a/src/OCE/SBC/sbcrnf.F90 b/src/OCE/SBC/sbcrnf.F90 index 753bc673c8b87eed4900c2ed04ff963cd1407c65..1a2d0df69f28095d5f12e630d145831bfbf3fe81 100644 --- a/src/OCE/SBC/sbcrnf.F90 +++ b/src/OCE/SBC/sbcrnf.F90 @@ -362,9 +362,9 @@ CONTAINS IF( .NOT. sn_dep_rnf%ln_clim ) THEN ; WRITE(rn_dep_file, '(a,"_y",i4)' ) TRIM( rn_dep_file ), nyear ! add year IF( sn_dep_rnf%clftyp == 'monthly' ) WRITE(rn_dep_file, '(a,"m",i2)' ) TRIM( rn_dep_file ), nmonth ! add month ENDIF - CALL iom_open ( rn_dep_file, inum ) ! open file - CALL iom_get ( inum, jpdom_global, sn_dep_rnf%clvar, h_rnf ) ! read the river mouth array - CALL iom_close( inum ) ! close file + CALL iom_open ( rn_dep_file, inum ) ! open file + CALL iom_get ( inum, jpdom_global, sn_dep_rnf%clvar, h_rnf, kfill = jpfillcopy ) ! read the river mouth. no 0 on halos! + CALL iom_close( inum ) ! close file ! nk_rnf(:,:) = 0 ! set the number of level over which river runoffs are applied DO_2D( nn_hls, nn_hls, nn_hls, nn_hls )