Changeset 6604
- Timestamp:
- 2016-05-23T15:55:26+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_r6393_NOC_WAD/NEMOGCM/NEMO/OPA_SRC/DYN/sshwzv.F90
r6152 r6604 88 88 ENDIF 89 89 ! 90 91 IF(ln_wd) THEN 92 zcoef = 0.5_wp * r1_rau0 93 CALL wad_lmt(sshb, zcoef * (emp_b(:,:) + emp(:,:)), z2dt) 94 END IF 95 90 96 CALL div_hor( kt ) ! Horizontal divergence 91 97 ! … … 104 110 ! compute the vertical velocity which can be used to compute the non-linear terms of the momentum equations. 105 111 ! 106 zcoef = 0.5_wp * r1_rau0107 108 IF(ln_wd) CALL wad_lmt(sshb, zcoef * (emp_b(:,:) + emp(:,:)), z2dt)109 110 112 ssha(:,:) = ( sshb(:,:) - z2dt * ( zcoef * ( emp_b(:,:) + emp(:,:) ) + zhdiv(:,:) ) ) * ssmask(:,:) 111 113
Note: See TracChangeset
for help on using the changeset viewer.