New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 3693 for trunk/NEMOGCM/NEMO/OPA_SRC/DOM/istate.F90 – NEMO

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

Fix Agrif and solver, see tocket #1030

File:
1 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      ! 
Note: See TracChangeset for help on using the changeset viewer.