- Timestamp:
- 2019-12-07T12:40:06+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r12072_TOP-01_ENHANCE-11_CEthe/src/OCE/SBC/sbcmod.F90
r11993 r12109 244 244 fwfisf_b(:,:) = 0._wp ; risf_tsc_b(:,:,:) = 0._wp 245 245 END IF 246 ! 247 IF( sbc_ssr_alloc() /= 0 ) CALL ctl_stop( 'STOP', 'sbc_init : unable to allocate sbc_ssr arrays' ) 248 IF( .NOT.ln_ssr ) THEN !* Initialize qrp and erp if no restoring 249 qrp(:,:) = 0._wp 250 erp(:,:) = 0._wp 251 ENDIF 252 ! 253 246 254 IF( nn_ice == 0 ) THEN !* No sea-ice in the domain : ice fraction is always zero 247 255 IF( nn_components /= jp_iam_opa ) fr_i(:,:) = 0._wp ! except for OPA in SAS-OPA coupled case … … 552 560 CALL iom_put( "taum" , taum ) ! wind stress module 553 561 CALL iom_put( "wspd" , wndm ) ! wind speed module over free ocean or leads in presence of sea-ice 562 CALL iom_put( "qrp", qrp ) ! heat flux damping 563 CALL iom_put( "erp", erp ) ! freshwater flux damping 554 564 ENDIF 555 565 !
Note: See TracChangeset
for help on using the changeset viewer.