Changeset 1528 for trunk/NEMO/TOP_SRC/TRP/trcadv_muscl.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/TOP_SRC/TRP/trcadv_muscl.F90 (modified) (1 diff)

trunk/NEMO/TOP_SRC/TRP/trcadv_muscl.F90

@@ -346 +346 @@
          END DO
          ! surface values
-         IF( lk_dynspg_rl ) THEN        ! rigid lid : flux set to zero
+         IF( lk_vvl ) THEN
+            ! variable volume: flux set to zero
             zt1(:,:, 1 ) = 0.e0
-         ELSE                           ! free surface
+         ELSE
+            ! free surface-constant volume
             zt1(:,:, 1 ) = zwn(:,:,1) * trb(:,:,1,jn)
          ENDIF