From e416ea5d326707d4df20b26696b241b7b37e5a12 Mon Sep 17 00:00:00 2001
From: sebastien masson <smasson@Macintosh-62.local>
Date: Mon, 28 Mar 2022 17:39:03 +0200
Subject: [PATCH] fix #33 on sbcrnf
---
src/OCE/SBC/sbcrnf.F90 | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/src/OCE/SBC/sbcrnf.F90 b/src/OCE/SBC/sbcrnf.F90
index 753bc673c..1a2d0df69 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 )
--
GitLab