Changeset 1528 for trunk/NEMO/OPA_SRC/DYN/dynadv_cen2.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/DYN/dynadv_cen2.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/DYN/dynadv_cen2.F90

@@ -14 +14 @@
    USE oce            ! ocean dynamics and tracers
    USE dom_oce        ! ocean space and time domain
-   USE dynspg_oce     ! surface pressure gradient
    USE in_out_manager ! I/O manager
-   USE dynspg_rl      ! surface pressure gradient
    USE trdmod         ! ocean dynamics trends
    USE trdmod_oce     ! ocean variables trends
@@ -134 +132 @@
             zfv_vw(:,:,jpk) = 0.e0
             !                              ! Surface value
-            IF( lk_dynspg_rl ) THEN             ! rigid lid : flux set to zero
+            IF( lk_vvl ) THEN
+               ! variable volume : flux set to zero
                zfu_uw(:,:, 1 ) = 0.e0    
                zfv_vw(:,:, 1 ) = 0.e0
-            ELSE                                ! free surface-constant volume
+            ELSE
+               ! free surface-constant volume
                DO jj = 2, jpjm1
                   DO ji = fs_2, fs_jpim1