Changeset 3693 for trunk/NEMOGCM/NEMO/OPA_SRC/SOL/solver.F90

Timestamp:

2012-11-28T09:06:00+01:00 (11 years ago)

Author:

rblod

Message:

Fix Agrif and solver, see tocket #1030

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/SOL/solver.F90 (modified) (1 diff)

trunk/NEMOGCM/NEMO/OPA_SRC/SOL/solver.F90

@@ -83 +83 @@
 
       !                              ! allocate solver arrays
-      IF( sol_oce_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'solver_init : unable to allocate sol_oce arrays' )
+      IF( .NOT. lk_agrif .OR. .NOT. ln_rstart) THEN
+         IF( sol_oce_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'solver_init : unable to allocate sol_oce arrays' )
+      ENDIF
 
       SELECT CASE( nn_solv )          !* parameter check