- Timestamp:
- 2017-06-19T17:43:22+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_inc_asm/NEMOGCM/NEMO/OPA_SRC/DYN/sshwzv.F90
r8041 r8190 106 106 hdivn(:,:,jk) = hdivn(:,:,jk) - ( ssh_iau(:,:) / ( ht_0(:,:) + 1.0 - ssmask(:,:) ) ) * ( e3t_0(:,:,jk) / fse3t_n(:,:,jk) ) * tmask(:,:,jk) 107 107 END DO 108 CALL lbc_lnk( hdivn, 'T', 1. ) ! Not sure that's necessary109 108 ENDIF 110 109 #endif
Note: See TracChangeset
for help on using the changeset viewer.