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

Timestamp:

2006-03-20T18:27:15+01:00 (18 years ago)

Author:

opalod

Message:

nemo_v1_bugfix_032 : CT : use dt (linked to Euler time scheme) instead of 2*dt for the construction of the matrix used by the elliptic solvers

File:

• trunk/NEMO/OPA_SRC/opa.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/opa.F90

@@ -310 +310 @@
       IF( lk_obc    )   CALL obc_init       ! Open boundaries 
 
+      CALL day( nit000 )                    ! Calendar
+
+      CALL istate_init                      ! ocean initial state (Dynamics and tracers)
+
       IF( lk_dynspg_flt .OR. lk_dynspg_rl ) THEN
-      CALL solver_init                      ! Elliptic solver
-      ENDIF
-
-      CALL day( nit000 )                    ! Calendar
-
-      CALL istate_init                      ! ocean initial state (Dynamics and tracers)
+         CALL solver_init( nit000 )         ! Elliptic solver
+      ENDIF
+
 !!add
                        CALL eos( tb, sb, rhd, rhop )        ! before potential and in situ densities