Skip to content
Snippets Groups Projects
Commit 63e756ca authored by Sebastien Masson's avatar Sebastien Masson
Browse files

Merge branch '33-bug-in-sbcrnf-f90' into 'main'

Resolve "Bug in 'sbcrnf.F90' ?"

Closes #33

See merge request nemo/nemo!57
parents 33c2b7d5 e416ea5d
No related branches found
No related tags found
No related merge requests found
......@@ -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 )
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment