New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 15792 – NEMO

Changeset 15792


Ignore:
Timestamp:
2022-04-22T15:33:56+02:00 (2 years ago)
Author:
frrh
Message:

Remove lbc_lnk calls for e3t* fields rendered redundant by
inclusion of lbc_lnk on rnf.

Location:
NEMO/branches/UKMO/NEMO_4.0.4_GC_couple_fixrest/src/OCE
Files:
4 edited

Legend:

Unmodified
Added
Removed

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

    r15778 r15792  
    137137 
    138138      ! Ensure all e3t_b and e3t_n halos are up to date! 
    139       call lbc_lnk('dom_vvl_init', e3t_b, 'T', 1.0_wp) 
    140       call lbc_lnk('dom_vvl_init', e3t_n, 'T', 1.0_wp)  
     139!      call lbc_lnk('dom_vvl_init', e3t_b, 'T', 1.0_wp) 
     140 !     call lbc_lnk('dom_vvl_init', e3t_n, 'T', 1.0_wp)  
    141141 
    142142      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

    r15777 r15792  
    200200         ! 
    201201 
    202         call lbc_lnk("iscpl_rst_interpol", e3t_n, 'T', 1.0_wp) 
     202        ! call lbc_lnk("iscpl_rst_interpol", e3t_n, 'T', 1.0_wp) 
    203203 
    204204         CALL dom_vvl_interpol( e3t_n(:,:,:), e3u_n(:,:,:), 'U' ) 

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

    r15777 r15792  
    248248            IF( ln_dynadv_vec ) THEN      ! Asselin filter applied on velocity 
    249249               ! Before filtered scale factor at (u/v)-points 
    250                call lbc_lnk("dynnxt", e3t_b, 'T', 1.0_wp) 
     250!               call lbc_lnk("dynnxt", e3t_b, 'T', 1.0_wp) 
    251251 
    252252               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

    r15777 r15792  
    244244               ! -------------------------------------- 
    245245 
    246                call lbc_lnk("cice_sbc_init", e3t_b, 'T', 1.0_wp) 
    247                call lbc_lnk("cice_sbc_init", e3t_n, 'T', 1.0_wp) 
     246           !    call lbc_lnk("cice_sbc_init", e3t_b, 'T', 1.0_wp) 
     247            !   call lbc_lnk("cice_sbc_init", e3t_n, 'T', 1.0_wp) 
    248248 
    249249               CALL dom_vvl_interpol( e3t_b(:,:,:), e3u_b(:,:,:), 'U' ) 
Note: See TracChangeset for help on using the changeset viewer.