- Timestamp:
- 2016-11-30T17:56:53+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_merge_2016/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_core.F90
r6813 r7403 745 745 746 746 !! Neutral coefficients at 10m: 747 IF( ln_ cdgw ) THEN ! wave drag case747 IF( ln_wave .AND. ln_cdgw ) THEN ! wave drag case 748 748 cdn_wave(:,:) = cdn_wave(:,:) + rsmall * ( 1._wp - tmask(:,:,1) ) 749 749 ztmp0 (:,:) = cdn_wave(:,:) … … 791 791 END IF 792 792 793 IF( ln_ cdgw ) THEN ! surface wave case793 IF( ln_wave .AND. ln_cdgw ) THEN ! surface wave case 794 794 sqrt_Cd = vkarmn / ( vkarmn / sqrt_Cd_n10 - zpsi_m_u ) 795 795 Cd = sqrt_Cd * sqrt_Cd
Note: See TracChangeset
for help on using the changeset viewer.