Changeset 1528 for trunk/NEMO/OPA_SRC/TRA/traadv_ubs.F90

Timestamp:

2009-07-23T16:38:47+02:00 (15 years ago)

Author:

rblod

Message:

Suppress rigid-lid option, see ticket #486

File:

• trunk/NEMO/OPA_SRC/TRA/traadv_ubs.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/TRA/traadv_ubs.F90

@@ -373 +373 @@
       ! -------------------------------------------------------------------
       ! Surface value
-      IF( lk_dynspg_rl .OR. lk_vvl ) THEN                           ! rigid lid : flux set to zero
+      IF( lk_vvl ) THEN
+         ! variable volume : flux set to zero
          ztw(:,:,1) = 0.e0
          zsw(:,:,1) = 0.e0
-      ELSE                                              ! free surface
+      ELSE
+         ! free surface-constant volume
          DO jj = 1, jpj
             DO ji = 1, jpi