Changeset 9421 for branches/2017/dev_merge_2017/NEMOGCM/NEMO/LIM_SRC_3/icedyn_adv_umx.F90

Timestamp:

2018-03-22T18:55:41+01:00 (6 years ago)

Author:

clem

Message:

cosmetics

File:

• branches/2017/dev_merge_2017/NEMOGCM/NEMO/LIM_SRC_3/icedyn_adv_umx.F90 (modified) (2 diffs)

branches/2017/dev_merge_2017/NEMOGCM/NEMO/LIM_SRC_3/icedyn_adv_umx.F90

@@ -233 +233 @@
          END DO
       END DO
-      CALL lbc_lnk( ptc(:,:) , 'T',  1. )
+      CALL lbc_lnk( ptc, 'T',  1. )
       !
    END SUBROUTINE adv_umx
@@ -488 +488 @@
             END DO
          END DO
-         CALL lbc_lnk( pt_v(:,:) , 'V',  1. )
+         CALL lbc_lnk( pt_v, 'V',  1. )
          !
       CASE( 3 )                                                !==  3rd order central TIM  ==! (Eq. 24)