Changeset 1528 for trunk/NEMO/LIM_SRC_2

Timestamp:

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

Author:

rblod

Message:

Suppress rigid-lid option, see ticket #486

File:

• trunk/NEMO/LIM_SRC_2/limsbc_2.F90 (modified) (2 diffs)

trunk/NEMO/LIM_SRC_2/limsbc_2.F90

@@ -21 +21 @@
    USE phycst           ! physical constants
    USE ice_2            ! LIM sea-ice variables
-   USE dynspg_oce       ! choice of the surface pressure gradient scheme 
 
    USE lbclnk           ! ocean lateral boundary condition
@@ -232 +231 @@
       END DO
 
-      IF( lk_dynspg_rl )    emp (:,:) = emps(:,:)      ! rigid-lid formulation : emp = emps
-
       !------------------------------------------!
       !    momentum flux at the ocean surface    !