- Timestamp:
- 2017-06-02T16:08:12+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_r8127_AGRIF_LIM3_GHOST/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90
r7822 r8129 328 328 IF( ln_ssr ) CALL sbc_ssr_init ! Sea-Surface Restoring initialization 329 329 ! 330 IF( ln_isf ) CALL sbc_isf_init 330 IF( ln_isf ) CALL sbc_isf_init ! Compute iceshelves 331 331 ! 332 332 CALL sbc_rnf_init ! Runof initialization 333 333 ! 334 IF( nn_ice == 3 ) CALL sbc_lim_init ! LIM3 initialization 335 ! 336 IF( nn_ice == 4 ) CALL cice_sbc_init( nsbc ) ! CICE initialization 334 IF ( lk_agrif .AND. nn_ice == 0 ) THEN 335 IF( sbc_ice_alloc() /= 0 ) CALL ctl_stop( 'STOP', 'sbc_ice_alloc : unable to allocate arrays' ) ! clem2017: allocate ice arrays in case agrif + lim + no-ice in child grid 336 ELSEIF( nn_ice == 3 ) THEN ; CALL sbc_lim_init ! LIM3 initialization 337 ELSEIF( nn_ice == 4 ) THEN ; CALL cice_sbc_init( nsbc ) ! CICE initialization 338 ENDIF 337 339 ! 338 340 IF( ln_wave ) CALL sbc_wave_init ! surface wave initialisation
Note: See TracChangeset
for help on using the changeset viewer.