Changeset 3693


Ignore:
Timestamp:
2012-11-28T09:06:00+01:00 (8 years ago)
Author:
rblod
Message:

Fix Agrif and solver, see tocket #1030

Location:
trunk/NEMOGCM/NEMO/OPA_SRC
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/DOM/istate.F90

    r3562 r3693  
    137137      IF( lk_agrif ) THEN                  ! read free surface arrays in restart file 
    138138         IF( ln_rstart ) THEN 
    139             IF( lk_dynspg_flt )   CALL flt_rst( nit000, 'READ' )      ! read or initialize the following fields 
    140             !                                                         ! gcx, gcxb for agrif_opa_init 
    141          ENDIF                                                        ! explicit case not coded yet with AGRIF 
     139            IF( lk_dynspg_flt )  THEN      ! read or initialize the following fields 
     140               !                           ! gcx, gcxb for agrif_opa_init 
     141               IF( sol_oce_alloc()  > 0 )   CALL ctl_stop('agrif sol_oce_alloc: allocation of arrays failed') 
     142               CALL flt_rst( nit000, 'READ' ) 
     143            ENDIF 
     144         ENDIF                             ! explicit case not coded yet with AGRIF 
    142145      ENDIF 
    143146      ! 
  • trunk/NEMOGCM/NEMO/OPA_SRC/SOL/solver.F90

    r3294 r3693  
    8383 
    8484      !                              ! allocate solver arrays 
    85       IF( sol_oce_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'solver_init : unable to allocate sol_oce arrays' ) 
     85      IF( .NOT. lk_agrif .OR. .NOT. ln_rstart) THEN 
     86         IF( sol_oce_alloc() /= 0 )   CALL ctl_stop( 'STOP', 'solver_init : unable to allocate sol_oce arrays' ) 
     87      ENDIF 
    8688 
    8789      SELECT CASE( nn_solv )          !* parameter check 
Note: See TracChangeset for help on using the changeset viewer.