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 9098 for branches/2017/dev_merge_2017/NEMOGCM – NEMO

Ignore:
Timestamp:
2017-12-15T18:38:45+01:00 (6 years ago)
Author:
flavoni
Message:

change lbc_lnk in lbc_lnk_multi

Location:
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/SBC
Files:
6 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/SBC/geo2ocean.F90

    r7753 r9098  
    273273      ! =========================== ! 
    274274      !           ! lateral boundary cond.: T-, U-, V-, F-pts, sgn 
    275       CALL lbc_lnk( gcost, 'T', -1. )   ;   CALL lbc_lnk( gsint, 'T', -1. ) 
    276       CALL lbc_lnk( gcosu, 'U', -1. )   ;   CALL lbc_lnk( gsinu, 'U', -1. ) 
    277       CALL lbc_lnk( gcosv, 'V', -1. )   ;   CALL lbc_lnk( gsinv, 'V', -1. ) 
    278       CALL lbc_lnk( gcosf, 'F', -1. )   ;   CALL lbc_lnk( gsinf, 'F', -1. ) 
     275      CALL lbc_lnk_multi( gcost, 'T', -1., gsint, 'T', -1., gcosu, 'U', -1., gsinu, 'U', -1., &  
     276                      &   gcosv, 'V', -1., gsinv, 'V', -1., gcosf, 'F', -1., gsinf, 'F', -1.  ) 
    279277      ! 
    280278   END SUBROUTINE angle 
  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk.F90

    r9076 r9098  
    411411         END DO 
    412412      END DO 
    413       CALL lbc_lnk( zwnd_i(:,:) , 'T', -1. ) 
    414       CALL lbc_lnk( zwnd_j(:,:) , 'T', -1. ) 
     413      CALL lbc_lnk_multi( zwnd_i, 'T', -1., zwnd_j, 'T', -1. ) 
    415414      ! ... scalar wind ( = | U10m - U_oce | ) at T-point (masked) 
    416415      wndm(:,:) = SQRT(  zwnd_i(:,:) * zwnd_i(:,:)   & 
     
    490489         END DO 
    491490      END DO 
    492       CALL lbc_lnk( utau(:,:), 'U', -1. ) 
    493       CALL lbc_lnk( vtau(:,:), 'V', -1. ) 
    494  
     491      CALL lbc_lnk_multi( utau, 'U', -1., vtau, 'V', -1. ) 
    495492 
    496493      !  Turbulent fluxes over ocean 
     
    794791            END DO 
    795792         END DO 
    796          CALL lbc_lnk( utau_ice, 'I', -1. ) 
    797          CALL lbc_lnk( vtau_ice, 'I', -1. ) 
     793         CALL lbc_lnk_multi( utau_ice, 'I', -1., vtau_ice, 'I', -1. ) 
    798794         ! 
    799795      CASE( 'C' )                  ! C-grid ice dynamics :   U & V-points (same as ocean) 
     
    806802            END DO 
    807803         END DO 
    808          CALL lbc_lnk( utau_ice, 'U', -1. ) 
    809          CALL lbc_lnk( vtau_ice, 'V', -1. ) 
     804         CALL lbc_lnk_multi( utau_ice, 'U', -1., vtau_ice, 'V', -1. ) 
    810805         ! 
    811806      END SELECT 
  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90

    r9034 r9098  
    11701170                  END DO 
    11711171               END DO 
    1172                CALL lbc_lnk( frcv(jpr_otx1)%z3(:,:,1), 'U',  -1. )   ;   CALL lbc_lnk( frcv(jpr_oty1)%z3(:,:,1), 'V',  -1. ) 
     1172               CALL lbc_lnk_multi( frcv(jpr_otx1)%z3(:,:,1), 'U',  -1., frcv(jpr_oty1)%z3(:,:,1), 'V',  -1. ) 
    11731173            ENDIF 
    11741174            llnewtx = .TRUE. 
     
    15891589            END SELECT 
    15901590            IF( srcv(jpr_itx1)%clgrid /= 'I' ) THEN  
    1591                CALL lbc_lnk( p_taui, 'I',  -1. )   ;   CALL lbc_lnk( p_tauj, 'I',  -1. ) 
     1591               CALL lbc_lnk_multi( p_taui, 'I',  -1., p_tauj, 'I',  -1. ) 
    15921592            ENDIF 
    15931593            ! 
     
    16221622            END SELECT 
    16231623            IF( srcv(jpr_itx1)%clgrid /= 'F' ) THEN  
    1624                CALL lbc_lnk( p_taui, 'F',  -1. )   ;   CALL lbc_lnk( p_tauj, 'F',  -1. ) 
     1624               CALL lbc_lnk_multi( p_taui, 'F',  -1., p_tauj, 'F',  -1. ) 
    16251625            ENDIF 
    16261626            ! 
     
    16531653            END SELECT 
    16541654            IF( srcv(jpr_itx1)%clgrid /= 'U' ) THEN  
    1655                CALL lbc_lnk( p_taui, 'U',  -1. )   ;   CALL lbc_lnk( p_tauj, 'V',  -1. ) 
     1655               CALL lbc_lnk_multi( p_taui, 'U',  -1., p_tauj, 'V',  -1. ) 
    16561656            ENDIF 
    16571657         END SELECT 
     
    24432443                  END DO 
    24442444               END SELECT 
    2445                CALL lbc_lnk( zitx1, 'T', -1. )   ;   CALL lbc_lnk( zity1, 'T', -1. ) 
     2445               CALL lbc_lnk_multi( zitx1, 'T', -1., zity1, 'T', -1. ) 
    24462446            CASE( 'mixed oce-ice'        ) 
    24472447               SELECT CASE ( cp_ice_msh ) 
     
    24792479               END SELECT 
    24802480            END SELECT 
    2481             CALL lbc_lnk( zotx1, ssnd(jps_ocx1)%clgrid, -1. )   ;   CALL lbc_lnk( zoty1, ssnd(jps_ocy1)%clgrid, -1. ) 
     2481            CALL lbc_lnk_multi( zotx1, ssnd(jps_ocx1)%clgrid, -1., zoty1, ssnd(jps_ocy1)%clgrid, -1. ) 
    24822482            ! 
    24832483         ENDIF 
     
    25762576                END DO  
    25772577             END SELECT  
    2578              CALL lbc_lnk( zitx1, 'T', -1. )   ;   CALL lbc_lnk( zity1, 'T', -1. )  
     2578             CALL lbc_lnk_multi( zitx1, 'T', -1., zity1, 'T', -1. )  
    25792579          CASE( 'mixed oce-ice'        )  
    25802580             SELECT CASE ( cp_ice_msh )  
     
    26122612             END SELECT  
    26132613          END SELECT  
    2614          CALL lbc_lnk( zotx1, ssnd(jps_ocxw)%clgrid, -1. )   ;   CALL lbc_lnk( zoty1, ssnd(jps_ocyw)%clgrid, -1. )  
     2614         CALL lbc_lnk_multi( zotx1, ssnd(jps_ocxw)%clgrid, -1., zoty1, ssnd(jps_ocyw)%clgrid, -1. )  
    26152615         !  
    26162616         !  
  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90

    r9019 r9098  
    227227      ENDDO 
    228228 
    229       CALL lbc_lnk ( fr_iu , 'U', 1. ) 
    230       CALL lbc_lnk ( fr_iv , 'V', 1. ) 
     229      CALL lbc_lnk_multi( fr_iu , 'U', 1.,  fr_iv , 'V', 1. ) 
    231230 
    232231      ! set the snow+ice mass 
     
    607606      fmmflx(:,:) = ztmp1(:,:) !!Joakim edit 
    608607       
    609       CALL lbc_lnk( emp , 'T', 1. ) 
    610       CALL lbc_lnk( sfx , 'T', 1. ) 
     608      CALL lbc_lnk_multi( emp , 'T', 1., sfx , 'T', 1. ) 
    611609 
    612610! Solar penetrative radiation and non solar surface heat flux 
     
    669667      ENDDO 
    670668 
    671       CALL lbc_lnk ( fr_iu , 'U', 1. ) 
    672       CALL lbc_lnk ( fr_iv , 'V', 1. ) 
     669      CALL lbc_lnk_multi( fr_iu , 'U', 1., fr_iv , 'V', 1. ) 
    673670 
    674671      ! set the snow+ice mass 
  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/SBC/sbcisf.F90

    r9019 r9098  
    158158 
    159159         ! lbclnk 
    160          CALL lbc_lnk( risf_tsc(:,:,jp_tem),'T',1.) 
    161          CALL lbc_lnk( risf_tsc(:,:,jp_sal),'T',1.) 
    162          CALL lbc_lnk( fwfisf  (:,:)       ,'T',1.) 
    163          CALL lbc_lnk( qisf    (:,:)       ,'T',1.) 
    164  
     160         CALL lbc_lnk_multi( risf_tsc(:,:,jp_tem), 'T', 1., risf_tsc(:,:,jp_sal), 'T', 1., fwfisf,'T', 1., qisf, 'T', 1.) 
    165161         ! output 
    166162         IF( iom_use('iceshelf_cea') )   CALL iom_put( 'iceshelf_cea', -fwfisf(:,:)                      )   ! isf mass flux 
     
    697693            END DO 
    698694         END DO 
    699          CALL lbc_lnk(pgt(:,:),'T',1.) 
    700          CALL lbc_lnk(pgs(:,:),'T',1.) 
     695         CALL lbc_lnk_multi( pgt, 'T', 1., pgs, 'T', 1.) 
    701696      END SELECT 
    702697      ! 
  • branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/SBC/sbcwave.F90

    r9033 r9098  
    183183      ENDIF 
    184184 
    185       CALL lbc_lnk( usd(:,:,:), 'U', -1. ) 
    186       CALL lbc_lnk( vsd(:,:,:), 'V', -1. ) 
    187  
     185      CALL lbc_lnk_multi( usd, 'U', -1., vsd, 'V', -1. ) 
    188186 
    189187      ! 
Note: See TracChangeset for help on using the changeset viewer.