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

trunk/NEMO/LIM_SRC_3/limsbc.F90

@@ -23 +23 @@
    USE ice              ! LIM sea-ice variables
    USE iceini           ! ???
-   USE dynspg_oce       ! choice of the surface pressure gradient scheme 
 
    USE lbclnk           ! ocean lateral boundary condition
@@ -431 +430 @@
       ENDIF
 
-      IF( lk_dynspg_rl )    emp (:,:) = emps(:,:)      ! rigid-lid formulation : emp = emps
-
       !-----------------------------------------------!
       !   Storing the transmitted variables           !