Changeset 11395 for NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/ISF/iscplrst.F90

Timestamp:

2019-08-02T16:19:00+02:00 (5 years ago)

Author:

mathiot

Message:

ENHANCE-02_ISF_nemo : Initial commit isf simplification (add ISF directory, moved isf routine in and split isf cavity and isf parametrisation, ...) (ticket #2142)

Location:

NEMO/branches/2019/ENHANCE-02_ISF_nemo

Files:

• . (copied) (copied from NEMO/trunk)
• src/OCE/ISF (added)
• src/OCE/ISF/iscplrst.F90 (copied) (copied from NEMO/trunk/src/OCE/DOM/iscplrst.F90) (2 diffs)

NEMO/branches/2019/ENHANCE-02_ISF_nemo/src/OCE/ISF/iscplrst.F90

@@ -71 +71 @@
       CALL iscpl_rst_interpol( ztmask_b, zumask_b, zvmask_b, zsmask_b, ze3t_b, ze3u_b, ze3v_b, zdepw_b )
       !
-      IF ( ln_hsb ) THEN      ! compute correction if conservation needed
+      IF ( ln_iscpl_hsb ) THEN      ! compute correction if conservation needed
          IF( iscpl_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'rst_iscpl : unable to allocate rst_iscpl arrays' )
          CALL iscpl_cons(ztmask_b, zsmask_b, ze3t_b, htsc_iscpl, hdiv_iscpl, rdt_iscpl)
@@ -79 +79 @@
       IF( ln_meshmask .AND. ln_iscpl )   CALL dom_wri
       !
-      IF ( ln_hsb ) THEN
+      IF ( ln_iscpl_hsb ) THEN
          cfile='correction'
          cfile = TRIM( cfile )