Changeset 15793

Timestamp:

2022-04-22T15:39:27+02:00 (2 years ago)

Author:

frrh

Message:

Remove redundant commented out calls to lbc_lnk

Location:

NEMO/branches/UKMO/NEMO_4.0.4_GC_couple_fixrest/src/OCE

Files:

• DOM/domvvl.F90 (modified) (1 diff)
• DOM/iscplrst.F90 (modified) (1 diff)
• DYN/dynnxt.F90 (modified) (1 diff)
• SBC/sbcice_cice.F90 (modified) (1 diff)

NEMO/branches/UKMO/NEMO_4.0.4_GC_couple_fixrest/src/OCE/DOM/domvvl.F90

@@ -136 +136 @@
       !                                ! Horizontal interpolation of e3t
 
-      ! Ensure all e3t_b and e3t_n halos are up to date!
-!      call lbc_lnk('dom_vvl_init', e3t_b, 'T', 1.0_wp)
- !     call lbc_lnk('dom_vvl_init', e3t_n, 'T', 1.0_wp) 
 
       CALL dom_vvl_interpol( e3t_b(:,:,:), e3u_b(:,:,:), 'U' )    ! from T to U

NEMO/branches/UKMO/NEMO_4.0.4_GC_couple_fixrest/src/OCE/DOM/iscplrst.F90

@@ -199 +199 @@
          END DO
          !
-
-        ! call lbc_lnk("iscpl_rst_interpol", e3t_n, 'T', 1.0_wp)
 
          CALL dom_vvl_interpol( e3t_n(:,:,:), e3u_n(:,:,:), 'U' )

NEMO/branches/UKMO/NEMO_4.0.4_GC_couple_fixrest/src/OCE/DYN/dynnxt.F90

@@ -248 +248 @@
             IF( ln_dynadv_vec ) THEN      ! Asselin filter applied on velocity
                ! Before filtered scale factor at (u/v)-points
-!               call lbc_lnk("dynnxt", e3t_b, 'T', 1.0_wp)
 
                CALL dom_vvl_interpol( e3t_b(:,:,:), e3u_b(:,:,:), 'U' )

NEMO/branches/UKMO/NEMO_4.0.4_GC_couple_fixrest/src/OCE/SBC/sbcice_cice.F90

@@ -244 +244 @@
                ! --------------------------------------
 
-           !    call lbc_lnk("cice_sbc_init", e3t_b, 'T', 1.0_wp)
-            !   call lbc_lnk("cice_sbc_init", e3t_n, 'T', 1.0_wp)
-
                CALL dom_vvl_interpol( e3t_b(:,:,:), e3u_b(:,:,:), 'U' )
                CALL dom_vvl_interpol( e3t_b(:,:,:), e3v_b(:,:,:), 'V' )