Changeset 9161 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/SAS_SRC

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/SAS_SRC/sbcssm.F90 (modified) (2 diffs)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/SAS_SRC/sbcssm.F90

@@ -23 +23 @@
    USE lbclnk          ! ocean lateral boundary conditions (or mpp link)
    USE zpshde          ! z-coord. with partial steps: horizontal derivatives
+   USE closea          ! for ln_closea
    !
    USE in_out_manager  ! I/O manager
@@ -224 +225 @@
          nn_fwb = 0
       ENDIF
-      IF( nn_closea > 0 ) THEN
+      IF( ln_closea ) THEN
          IF( lwp ) WRITE(numout,*) 'No closed seas adjustment needed with StandAlone Surface scheme'
-         nn_closea = 0
+         ln_closea = .false.
       ENDIF
       IF (l_sasread) THEN