Changeset 1528 for trunk/NEMO/OPA_SRC/TRA/traadv_muscl2.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_muscl2.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/TRA/traadv_muscl2.F90

@@ -428 +428 @@
 
       ! surface values
-      IF( lk_dynspg_rl .OR. lk_vvl ) THEN               ! rigid lid or variable volume: flux set to zero
+      IF( lk_vvl ) THEN
+         ! variable volume : flux set to zero
          zt1(:,:, 1 ) = 0.e0
          zs1(:,:, 1 ) = 0.e0
-      ELSE                                              ! free surface
+      ELSE
+         ! free surface-constant volume
          zt1(:,:, 1 ) = pwn(:,:,1) * tb(:,:,1)
          zs1(:,:, 1 ) = pwn(:,:,1) * sb(:,:,1)