- Timestamp:
- 2012-11-28T09:06:00+01:00 (12 years ago)
- Location:
- trunk/NEMOGCM/NEMO/OPA_SRC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/DOM/istate.F90
r3562 r3693 137 137 IF( lk_agrif ) THEN ! read free surface arrays in restart file 138 138 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 142 145 ENDIF 143 146 ! -
trunk/NEMOGCM/NEMO/OPA_SRC/SOL/solver.F90
r3294 r3693 83 83 84 84 ! ! 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 86 88 87 89 SELECT CASE( nn_solv ) !* parameter check
Note: See TracChangeset
for help on using the changeset viewer.