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

trunk/NEMO/OPA_SRC/step.F90

@@ -74 +74 @@
    USE obcrst          ! open boundary cond. restart      (obc_rst routine)
    USE obcrad          ! open boundary cond. radiation    (obc_rad routine)
-   USE obcspg          ! open boundary cond  spg          (obc_spg routine)
 
    USE bdy_par         ! unstructured open boundary data variables
@@ -109 +108 @@
    USE diahth          ! thermocline depth                (dia_hth routine)
    USE diafwb          ! freshwater budget                (dia_fwb routine)
-   USE diaspr          ! suface pressure (rigid-lid)      (dia_spr routine)
    USE flo_oce         ! floats variables
    USE floats          ! floats computation               (flo_stp routine)
@@ -246 +244 @@
                          CALL dia_wri( kstp, indic )  ! ocean model: outputs
       IF( lk_floats  )   CALL flo_stp( kstp )         ! drifting Floats
-      IF( lk_diaspr  )   CALL dia_spr( kstp )         ! Surface pressure diagnostics
       IF( lk_diahth  )   CALL dia_hth( kstp )         ! Thermocline depth (20 degres isotherm depth)
       IF( lk_diagap  )   CALL dia_gap( kstp )         ! basin averaged diagnostics
@@ -312 +309 @@
                                CALL dyn_hpg( kstp )         ! horizontal gradient of Hydrostatic pressure
                                CALL dyn_zdf( kstp )         ! vertical diffusion
-      IF( lk_dynspg_rl ) THEN
-         IF( lk_obc    )       CALL obc_spg( kstp )         ! surface pressure gradient at open boundaries
-      ENDIF
                                indic=0
                                CALL dyn_spg( kstp, indic )  ! surface pressure gradient