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

Timestamp:

2006-10-03T17:58:55+02:00 (18 years ago)

Author:

opalod

Message:

nemo_v1_update_071:RB: add iom for restart and reorganization of restart

File:

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

trunk/NEMO/OPA_SRC/opa.F90

@@ -48 +48 @@
    USE obc_par         ! open boundary cond. parameters
    USE obcini          ! open boundary cond. initialization (obc_ini routine)
-   USE solver          ! solver initialization          (solver_init routine)
    USE istate          ! initial state setting          (istate_init routine)
    USE eosbn2          ! equation of state            (eos bn2 routine)
@@ -69 +68 @@
 
    USE step            ! OPA time-stepping                  (stp     routine)
-   USE dynspg_oce      ! 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
@@ -245 +243 @@
       CALL istate_init                      ! ocean initial state (Dynamics and tracers)
 
-      IF( lk_dynspg_flt .OR. lk_dynspg_rl ) THEN
-         CALL solver_init( nit000 )         ! Elliptic solver
-      ENDIF
-
 !!add
                        CALL eos( tb, sb, rhd, rhop )        ! before potential and in situ densities