Changeset 8190 for branches/UKMO/dev_r5518_GO6_package_inc_asm/NEMOGCM/NEMO/OPA_SRC/DYN/sshwzv.F90

Timestamp:

2017-06-19T17:43:22+02:00 (7 years ago)

Author:

jwhile

Message:

Update due to Tim's review

File:

• branches/UKMO/dev_r5518_GO6_package_inc_asm/NEMOGCM/NEMO/OPA_SRC/DYN/sshwzv.F90 (modified) (1 diff)

branches/UKMO/dev_r5518_GO6_package_inc_asm/NEMOGCM/NEMO/OPA_SRC/DYN/sshwzv.F90

@@ -106 +106 @@
                  hdivn(:,:,jk) = hdivn(:,:,jk) - ( ssh_iau(:,:) / ( ht_0(:,:) + 1.0 - ssmask(:,:) ) ) * ( e3t_0(:,:,jk) / fse3t_n(:,:,jk) ) * tmask(:,:,jk) 
         END DO
-        CALL lbc_lnk( hdivn, 'T', 1. ) ! Not sure that's necessary
       ENDIF
 #endif