Changeset 9030 for branches/2017

Timestamp:

2017-12-14T11:03:50+01:00 (6 years ago)

Author:

acc

Message:

Branch 2017/dev_merge_2017. Fix compilation issue in dynhpg.F90

File:

• branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/DYN/dynhpg.F90 (modified) (1 diff)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/DYN/dynhpg.F90

@@ -463 +463 @@
                   &    MAX(   sshn(ji,jj)             ,  sshn(ji,jj+1) ) >                &
                   &    MAX(  -ht_0(ji,jj)             , -ht_0(ji,jj+1) ) + rn_wdmin1 + rn_wdmin2 )
-                  !
-               IF(ll_tmp1) THEN
-                  zcpy(ji,jj) = 1.0_wp
-               ELSE IF(ll_tmp2) THEN
-                  ! no worries about  sshn(ji,jj+1) -  sshn(ji,jj  ) = 0, it won't happen ! here
-                  zcpy(ji,jj) = ABS(   ( sshn(ji,jj+1)+ht_wd(ji,jj+1) - sshn(ji,jj) - ht_wd(ji,jj) )   &
-                     &               / ( sshn(ji,jj+1)                - sshn(ji,jj)                )   )
-               ELSE
-                  zcpy(ji,jj) = 0._wp
-               ENDIF
-            END DO
-         END DO
-         CALL lbc_lnk( zcpx, 'U', 1._wp )    ;   CALL lbc_lnk( zcpy, 'V', 1._wp )
-      ENDIF
 
              IF(ll_tmp1) THEN