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 15775 – NEMO

Changeset 15775


Ignore:
Timestamp:
2022-04-08T15:41:26+02:00 (2 years ago)
Author:
frrh
Message:

Revert previous change, committed in error.

Location:
NEMO/branches/UKMO/NEMO_4.0.4_GC_couple_pkg/src/OCE
Files:
5 edited

Legend:

Unmodified
Added
Removed

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

    r15772 r15775  
    135135      !                    !== Set of all other vertical scale factors  ==!  (now and before) 
    136136      !                                ! Horizontal interpolation of e3t 
    137  
    138       ! 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)  
    141  
    142137      CALL dom_vvl_interpol( e3t_b(:,:,:), e3u_b(:,:,:), 'U' )    ! from T to U 
    143138      CALL dom_vvl_interpol( e3t_n(:,:,:), e3u_n(:,:,:), 'U' ) 

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

    r15772 r15775  
    199199         END DO 
    200200         ! 
    201  
    202          call lbc_lnk("iscpl_rst_interpol", e3t_n, 'T', 1.0_wp) 
    203  
    204201         CALL dom_vvl_interpol( e3t_n(:,:,:), e3u_n(:,:,:), 'U' ) 
    205202         CALL dom_vvl_interpol( e3t_n(:,:,:), e3v_n(:,:,:), 'V' ) 

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

    r15772 r15775  
    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) 
    251  
    252250               CALL dom_vvl_interpol( e3t_b(:,:,:), e3u_b(:,:,:), 'U' ) 
    253251               CALL dom_vvl_interpol( e3t_b(:,:,:), e3v_b(:,:,:), 'V' ) 

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

    r15772 r15775  
    243243               ! Horizontal scale factor interpolations 
    244244               ! -------------------------------------- 
    245  
    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) 
    248  
    249245               CALL dom_vvl_interpol( e3t_b(:,:,:), e3u_b(:,:,:), 'U' ) 
    250246               CALL dom_vvl_interpol( e3t_b(:,:,:), e3v_b(:,:,:), 'V' ) 

  • NEMO/branches/UKMO/NEMO_4.0.4_GC_couple_pkg/src/OCE/step.F90

    r15772 r15775  
    9393      ! 
    9494      IF( ln_timing )   CALL timing_start('stp') 
    95  
    96       CALL lbc_lnk_multi('step',e3u_b,'U',1., e3v_b,'V',1.) 
    97       CALL lbc_lnk_multi('step',e3u_n,'U',1., e3v_n,'V',1.) 
    98       CALL lbc_lnk_multi('step',e3t_b,'T',1., e3t_n,'T',1.) 
    99  
    10095      ! 
    10196      !>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> 
    … …  
    278273!!jc: That would be better, but see comment above 
    279274!! 
    280       CALL lbc_lnk_multi('step',ub,'U',-1., vb,'V',-1.,tsb(:,:,:,jp_tem),'T',1.,  tsb(:,:,:,jp_sal),'T',1.) 
    281       CALL lbc_lnk_multi('step',ub,'U',-1., vb,'V',-1.) 
    282  
    283       CALL lbc_lnk('step', sshb,'T',1.) 
    284       CALL lbc_lnk_multi('step',un,'U',-1., vn,'V',-1.,tsn(:,:,:,jp_tem),'T',1., tsn(:,:,:,jp_sal),'T',1., rhop,'T',1.) 
    285       CALL lbc_lnk_multi('step',un,'U',-1., vn,'V',-1.) 
    286       CALL lbc_lnk('step', sshn,'T',1.) 
    287  
    288275      IF( lrst_oce   )   CALL rst_write    ( kstp )   ! write output ocean restart file 
    289276      IF( ln_sto_eos )   CALL sto_rst_write( kstp )   ! write restart file for stochastic parameters 
Note: See TracChangeset for help on using the changeset viewer.