Ignore:
Timestamp:
2018-10-03T16:49:50+02:00 (2 years ago)
Author:
smasson
Message:

dev_r10164_HPC09_ESIWACE_PREP_MERGE: action 2a: add report calls of lbc_lnk, see #2133

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/ICE/icedyn_rhg_evp.F90

    r10069 r10170  
    189189         END DO 
    190190      END DO 
    191       CALL lbc_lnk( zfmask, 'F', 1._wp ) 
     191      CALL lbc_lnk( 'icedyn_rhg_evp', zfmask, 'F', 1._wp ) 
    192192 
    193193      ! Lateral boundary conditions on velocity (modify zfmask) 
     
    216216         ENDIF 
    217217      END DO 
    218       CALL lbc_lnk( zfmask, 'F', 1._wp ) 
     218      CALL lbc_lnk( 'icedyn_rhg_evp', zfmask, 'F', 1._wp ) 
    219219 
    220220      !------------------------------------------------------------------------------! 
     
    326326         END DO 
    327327      END DO 
    328       CALL lbc_lnk_multi( zmf, 'T', 1., zdt_m, 'T', 1. ) 
     328      CALL lbc_lnk_multi( 'icedyn_rhg_evp', zmf, 'T', 1., zdt_m, 'T', 1. ) 
    329329      ! 
    330330      !------------------------------------------------------------------------------! 
     
    353353            END DO 
    354354         END DO 
    355          CALL lbc_lnk( zds, 'F', 1. ) 
     355         CALL lbc_lnk( 'icedyn_rhg_evp', zds, 'F', 1. ) 
    356356 
    357357         DO jj = 2, jpj    ! loop to jpi,jpj to avoid making a communication for zs1,zs2,zs12 
     
    397397            END DO 
    398398         END DO 
    399          CALL lbc_lnk( zp_delt, 'T', 1. ) 
     399         CALL lbc_lnk( 'icedyn_rhg_evp', zp_delt, 'T', 1. ) 
    400400 
    401401         DO jj = 1, jpjm1 
     
    492492               END DO 
    493493            END DO 
    494             CALL lbc_lnk( v_ice, 'V', -1. ) 
     494            CALL lbc_lnk( 'icedyn_rhg_evp', v_ice, 'V', -1. ) 
    495495            ! 
    496496#if defined key_agrif 
     
    540540               END DO 
    541541            END DO 
    542             CALL lbc_lnk( u_ice, 'U', -1. ) 
     542            CALL lbc_lnk( 'icedyn_rhg_evp', u_ice, 'U', -1. ) 
    543543            ! 
    544544#if defined key_agrif 
     
    590590               END DO 
    591591            END DO 
    592             CALL lbc_lnk( u_ice, 'U', -1. ) 
     592            CALL lbc_lnk( 'icedyn_rhg_evp', u_ice, 'U', -1. ) 
    593593            ! 
    594594#if defined key_agrif 
     
    638638               END DO 
    639639            END DO 
    640             CALL lbc_lnk( v_ice, 'V', -1. ) 
     640            CALL lbc_lnk( 'icedyn_rhg_evp', v_ice, 'V', -1. ) 
    641641            ! 
    642642#if defined key_agrif 
     
    703703         END DO 
    704704      END DO 
    705       CALL lbc_lnk_multi( pshear_i, 'T', 1., pdivu_i, 'T', 1., pdelta_i, 'T', 1. ) 
     705      CALL lbc_lnk_multi( 'icedyn_rhg_evp', pshear_i, 'T', 1., pdivu_i, 'T', 1., pdelta_i, 'T', 1. ) 
    706706       
    707707      ! --- Store the stress tensor for the next time step --- ! 
    708       CALL lbc_lnk_multi( zs1, 'T', 1., zs2, 'T', 1., zs12, 'F', 1. ) 
     708      CALL lbc_lnk_multi( 'icedyn_rhg_evp', zs1, 'T', 1., zs2, 'T', 1., zs12, 'F', 1. ) 
    709709      pstress1_i (:,:) = zs1 (:,:) 
    710710      pstress2_i (:,:) = zs2 (:,:) 
     
    750750            END DO 
    751751         END DO 
    752          CALL lbc_lnk_multi( zsig1, 'T', 1., zsig2, 'T', 1., zsig3, 'T', 1. ) 
     752         CALL lbc_lnk_multi( 'icedyn_rhg_evp', zsig1, 'T', 1., zsig2, 'T', 1., zsig3, 'T', 1. ) 
    753753         ! 
    754754         IF( iom_use('isig1') )   CALL iom_put( "isig1" , zsig1 ) 
     
    807807         END DO 
    808808          
    809          CALL lbc_lnk_multi( zdiag_sig1   , 'T',  1., zdiag_sig2   , 'T',  1.,   & 
     809         CALL lbc_lnk_multi( 'icedyn_rhg_evp', zdiag_sig1   , 'T',  1., zdiag_sig2   , 'T',  1.,   & 
    810810            &                zdiag_dssh_dx, 'U', -1., zdiag_dssh_dy, 'V', -1.,   & 
    811811            &                zdiag_corstrx, 'U', -1., zdiag_corstry, 'V', -1.,   &  
    812812            &                zdiag_intstrx, 'U', -1., zdiag_intstry, 'V', -1.    ) 
    813813                   
    814          CALL lbc_lnk_multi( zdiag_utau_oi  , 'U', -1., zdiag_vtau_oi  , 'V', -1.,   & 
     814         CALL lbc_lnk_multi( 'icedyn_rhg_evp', zdiag_utau_oi  , 'U', -1., zdiag_vtau_oi  , 'V', -1.,   & 
    815815            &                zdiag_xmtrp_ice, 'U', -1., zdiag_xmtrp_snw, 'U', -1.,   & 
    816816            &                zdiag_xatrp    , 'U', -1., zdiag_ymtrp_ice, 'V', -1.,   & 
Note: See TracChangeset for help on using the changeset viewer.