- Timestamp:
- 2019-12-11T10:18:26+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r12072_MERGE_OPTION2_2019/src/OCE/SBC/sbcmod.F90
r12166 r12169 96 96 & nn_ice , ln_ice_embd, & 97 97 & ln_traqsr, ln_dm2dc , & 98 & ln_rnf , nn_fwb , ln_ssr , ln_ isf , ln_apr_dyn , &98 & ln_rnf , nn_fwb , ln_ssr , ln_apr_dyn , & 99 99 & ln_wave , ln_cdgw , ln_sdw , ln_tauwoc , ln_stcor , & 100 100 & ln_tauw , nn_lsm, nn_sdrift … … 244 244 #endif 245 245 ! 246 IF( .NOT.ln_isf ) THEN !* No ice-shelf in the domain : allocate and set to zero247 IF( sbc_isf_alloc() /= 0 ) CALL ctl_stop( 'STOP', 'sbc_init : unable to allocate sbc_isf arrays' )248 fwfisf (:,:) = 0._wp ; risf_tsc (:,:,:) = 0._wp249 fwfisf_b(:,:) = 0._wp ; risf_tsc_b(:,:,:) = 0._wp250 ENDIF251 !252 246 IF( sbc_ssr_alloc() /= 0 ) CALL ctl_stop( 'STOP', 'sbc_init : unable to allocate sbc_ssr arrays' ) 253 247 IF( .NOT.ln_ssr ) THEN !* Initialize qrp and erp if no restoring
Note: See TracChangeset
for help on using the changeset viewer.