Changeset 592 for trunk/NEMO/OPA_SRC/LDF

Timestamp:

2007-02-09T10:15:25+01:00 (17 years ago)

Author:

opalod

Message:

nemo_v2_update_001 : CT : - add non linear free surface (variable volume) with new cpp key key_vvl

File:

• trunk/NEMO/OPA_SRC/LDF/ldfslp.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/LDF/ldfslp.F90

@@ -723 +723 @@
       wslpjml(:,:) = 0.e0
 
-      IF( ln_traldf_hor .OR. ln_dynldf_hor ) THEN
+      IF( (ln_traldf_hor .OR. ln_dynldf_hor) .AND. .NOT. (lk_vvl .AND. ln_rstart) ) THEN
          IF(lwp) THEN
             WRITE(numout,*) '          Horizontal mixing in s-coordinate: slope = slope of s-surfaces'