Changeset 3693 for trunk/NEMOGCM/NEMO/OPA_SRC/DOM/istate.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/DOM/istate.F90 (modified) (1 diff)

trunk/NEMOGCM/NEMO/OPA_SRC/DOM/istate.F90

@@ -137 +137 @@
       IF( lk_agrif ) THEN                  ! read free surface arrays in restart file
          IF( ln_rstart ) THEN
-            IF( lk_dynspg_flt )   CALL flt_rst( nit000, 'READ' )      ! read or initialize the following fields
-            !                                                         ! gcx, gcxb for agrif_opa_init
-         ENDIF                                                        ! explicit case not coded yet with AGRIF
+            IF( lk_dynspg_flt )  THEN      ! read or initialize the following fields
+               !                           ! gcx, gcxb for agrif_opa_init
+               IF( sol_oce_alloc()  > 0 )   CALL ctl_stop('agrif sol_oce_alloc: allocation of arrays failed')
+               CALL flt_rst( nit000, 'READ' )
+            ENDIF
+         ENDIF                             ! explicit case not coded yet with AGRIF
       ENDIF
       !