Changeset 9161 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/SBC/sbcrnf.F90

Timestamp:

2017-12-22T11:31:53+01:00 (6 years ago)

Author:

davestorkey

Message:

Reformulation of closea module.
See ticket #2000
https://forge.ipsl.jussieu.fr/nemo/wiki/2017WP/ROBUST-14_Dave_Storkey-Closed_Seas_rewrite

File:

• branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/SBC/sbcrnf.F90 (modified) (2 diffs)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/SBC/sbcrnf.F90

@@ -21 +21 @@
    USE sbcisf         ! PM we could remove it I think
    USE eosbn2         ! Equation Of State
-   USE usrdef_closea  ! closed seas
+   USE closea         ! closed seas
    !
    USE in_out_manager ! I/O manager
@@ -510 +510 @@
       CALL iom_close( inum )                                      ! close file
       !
-      IF( nn_closea == 1 )   CALL clo_rnf( rnfmsk )               ! closed sea inflow set as ruver mouth
+      IF( l_clo_rnf )   CALL clo_rnf( rnfmsk )   ! closed sea inflow set as river mouth
       !
       rnfmsk_z(:)   = 0._wp                                       ! vertical structure