Changeset 6608 for branches/UKMO/dev_r5518_sshinc_with_VVL
- Timestamp:
- 2016-05-24T12:51:36+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_sshinc_with_VVL/NEMOGCM/NEMO/OPA_SRC/DYN/sshwzv.F90
r6605 r6608 104 104 ! Don't directly adjust ssh but change hdivn at all levels instead 105 105 ! In trasbc also add in the heat and salt content associated with these changes at each level 106 call lbc_lnk( ssh_iau, 'T', 1.0)107 106 DO jk = 1, jpkm1 108 DO jj = 2, jpjm1 109 DO ji = fs_2, fs_jpim1 ! vector opt. 110 hdivn(ji,jj,jk) = hdivn(ji,jj,jk) - ( ssh_iau(ji,jj) / ( ht_0(ji,jj) + 1.0 - tmask(ji,jj,jk) ) ) * ( e3t_0(ji,jj,jk) / fse3t_n(ji,jj,jk) ) * tmask(ji,jj,jk) 111 END DO 112 END DO 107 hdivn(:,:,jk) = hdivn(:,:,jk) - ( ssh_iau(:,:) / ( ht_0(:,:) + 1.0 - ssmask(:,:) ) ) * ( e3t_0(:,:,jk) / fse3t_n(:,:,jk) ) * tmask(:,:,jk) 113 108 END DO 114 109 CALL lbc_lnk( hdivn, 'T', 1. ) ! Not sure that's necessary
Note: See TracChangeset
for help on using the changeset viewer.