Changeset 359 for trunk/NEMO/OPA_SRC/opa.F90

Timestamp:

2005-12-21T11:46:45+01:00 (18 years ago)

Author:

opalod

Message:

nemo_v1_update_033 : RB + CT : Add new surface pressure gradient algorithms

File:

• trunk/NEMO/OPA_SRC/opa.F90 (modified) (3 diffs)

trunk/NEMO/OPA_SRC/opa.F90

@@ -47 +47 @@
 
    USE step            ! OPA time-stepping                  (stp     routine)
+   USE dynspg          ! Control choice of surface pressure gradient schemes
    USE prtctl          ! Print control                 (prt_ctl_init routine)
    USE ini1d           ! re-initialization of u-v mask for the 1D configuration
@@ -100 +101 @@
       !!    "   !  04-08  (C. Talandier) New trends organization
       !!    "   !  05-06  (C. Ethe) Add the 1D configuration possibility
+      !!    "   !  05-11  (V. Garnier) Surface pressure gradient organization
       !!----------------------------------------------------------------------
       !! * Local declarations
@@ -162 +164 @@
       IF( lk_obc    )   CALL obc_init       ! Open boundaries 
 
-      CALL solver_init                      ! Elliptic solver
+      IF( lk_dynspg_flt .OR. lk_dynspg_rl ) THEN
+         CALL solver_init                   ! Elliptic solver
+      ENDIF
 
       CALL day( nit000 )                    ! Calendar