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

Location:
NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/ICE
Files:
11 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/ICE/icecor.F90

    r10069 r10170  
    119119            END DO 
    120120         END DO 
    121          CALL lbc_lnk_multi( u_ice, 'U', -1., v_ice, 'V', -1. )            ! lateral boundary conditions 
     121         CALL lbc_lnk_multi( 'icecor', u_ice, 'U', -1., v_ice, 'V', -1. )            ! lateral boundary conditions 
    122122      ENDIF 
    123123 

  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/ICE/icedyn.F90

    r10069 r10170  
    101101         END DO 
    102102      END DO 
    103       CALL lbc_lnk( zhmax(:,:,:), 'T', 1. ) 
     103      CALL lbc_lnk( 'icedyn', zhmax(:,:,:), 'T', 1. ) 
    104104      ! 
    105105      ! 

  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/ICE/icedyn_adv_pra.F90

    r10069 r10170  
    425425 
    426426      !-- Lateral boundary conditions 
    427       CALL lbc_lnk_multi( psm , 'T',  1., ps0 , 'T',  1.   & 
     427      CALL lbc_lnk_multi( 'icedyn_adv_pra', psm , 'T',  1., ps0 , 'T',  1.   & 
    428428         &              , psx , 'T', -1., psy , 'T', -1.   &   ! caution gradient ==> the sign changes 
    429429         &              , psxx, 'T',  1., psyy, 'T',  1.   & 
    … …  
    599599 
    600600      !-- Lateral boundary conditions 
    601       CALL lbc_lnk_multi( psm , 'T',  1.,  ps0 , 'T',  1.   & 
     601      CALL lbc_lnk_multi( 'icedyn_adv_pra', psm , 'T',  1.,  ps0 , 'T',  1.   & 
    602602         &              , psx , 'T', -1.,  psy , 'T', -1.   &   ! caution gradient ==> the sign changes 
    603603         &              , psxx, 'T',  1.,  psyy, 'T',  1.   & 

  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/ICE/icedyn_adv_umx.F90

    r10069 r10170  
    182182         END DO 
    183183      END DO 
    184       CALL lbc_lnk( zt_ups, 'T', 1. )        ! Lateral boundary conditions   (unchanged sign) 
     184      CALL lbc_lnk( 'icedyn_adv_umx', zt_ups, 'T', 1. )        ! Lateral boundary conditions   (unchanged sign) 
    185185       
    186186      ! High order (_ho) fluxes  
    … …  
    229229         END DO 
    230230      END DO 
    231       CALL lbc_lnk( ptc, 'T',  1. ) 
     231      CALL lbc_lnk( 'icedyn_adv_umx', ptc, 'T',  1. ) 
    232232      ! 
    233233   END SUBROUTINE adv_umx 
    … …  
    271271            END DO 
    272272         END DO 
    273          CALL lbc_lnk( zzt, 'T', 1. ) 
     273         CALL lbc_lnk( 'icedyn_adv_umx', zzt, 'T', 1. ) 
    274274         ! 
    275275         !                                                           !--  ultimate interpolation of pt at v-point  --! 
    … …  
    289289            END DO 
    290290         END DO 
    291          CALL lbc_lnk( zzt, 'T', 1. ) 
     291         CALL lbc_lnk( 'icedyn_adv_umx', zzt, 'T', 1. ) 
    292292         ! 
    293293         !                                                           !--  ultimate interpolation of pt at u-point  --! 
    … …  
    331331         END DO 
    332332      END DO 
    333       CALL lbc_lnk( ztu2, 'T', 1. ) 
     333      CALL lbc_lnk( 'icedyn_adv_umx', ztu2, 'T', 1. ) 
    334334      ! 
    335335      !                                                     !--  BiLaplacian in i-direction  --! 
    … …  
    343343         END DO 
    344344      END DO 
    345       CALL lbc_lnk( ztu4, 'T', 1. ) 
     345      CALL lbc_lnk( 'icedyn_adv_umx', ztu4, 'T', 1. ) 
    346346      ! 
    347347      ! 
    … …  
    450450         END DO 
    451451      END DO 
    452       CALL lbc_lnk( ztv2, 'T', 1. ) 
     452      CALL lbc_lnk( 'icedyn_adv_umx', ztv2, 'T', 1. ) 
    453453      ! 
    454454      !                                                     !--  BiLaplacian in j-direction  --! 
    … …  
    463463         END DO 
    464464      END DO 
    465       CALL lbc_lnk( ztv4, 'T', 1. ) 
     465      CALL lbc_lnk( 'icedyn_adv_umx', ztv4, 'T', 1. ) 
    466466      ! 
    467467      ! 
    … …  
    484484            END DO 
    485485         END DO 
    486          CALL lbc_lnk( pt_v, 'V',  1. ) 
     486         CALL lbc_lnk( 'icedyn_adv_umx', pt_v, 'V',  1. ) 
    487487         ! 
    488488      CASE( 3 )                                                !==  3rd order central TIM  ==! (Eq. 24) 
    … …  
    567567         END DO 
    568568      END DO 
    569       CALL lbc_lnk( zdiv, 'T', 1. )        ! Lateral boundary conditions   (unchanged sign) 
     569      CALL lbc_lnk( 'icedyn_adv_umx', zdiv, 'T', 1. )        ! Lateral boundary conditions   (unchanged sign) 
    570570 
    571571      ! Determine ice masks for before and after tracers  
    … …  
    605605         END DO 
    606606      END DO 
    607       CALL lbc_lnk_multi( zbetup, 'T', 1., zbetdo, 'T', 1. )   ! lateral boundary cond. (unchanged sign) 
     607      CALL lbc_lnk_multi( 'icedyn_adv_umx', zbetup, 'T', 1., zbetdo, 'T', 1. )   ! lateral boundary cond. (unchanged sign) 
    608608 
    609609      ! monotonic flux in the i & j direction (paa & pbb) 

  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/ICE/icedyn_rdgrft.F90

    r10069 r10170  
    790790            END DO 
    791791         END DO 
    792          CALL lbc_lnk( strength, 'T', 1. ) 
     792         CALL lbc_lnk( 'icedyn_rdgrft', strength, 'T', 1. ) 
    793793         ! 
    794794      CASE( 2 )               !--- Temporal smoothing 
    … …  
    811811            END DO 
    812812         END DO 
    813          CALL lbc_lnk( strength, 'T', 1. ) 
     813         CALL lbc_lnk( 'icedyn_rdgrft', strength, 'T', 1. ) 
    814814         ! 
    815815      END SELECT 

  • 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.,   & 

  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/ICE/iceforcing.F90

    r10069 r10170  
    8383            END DO 
    8484         END DO 
    85          CALL lbc_lnk_multi( utau_ice, 'U', -1., vtau_ice, 'V', -1. ) 
     85         CALL lbc_lnk_multi( 'iceforcing', utau_ice, 'U', -1., vtau_ice, 'V', -1. ) 
    8686      ENDIF 
    8787      ! 

  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/ICE/icethd.F90

    r10069 r10170  
    126126         END DO 
    127127      ENDIF 
    128       CALL lbc_lnk( zfric, 'T',  1. ) 
     128      CALL lbc_lnk( 'icethd', zfric, 'T',  1. ) 
    129129      ! 
    130130      !--------------------------------------------------------------------! 

  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/ICE/icethd_do.F90

    r10069 r10170  
    189189         END DO  
    190190         !  
    191          CALL lbc_lnk_multi( zvrel, 'T', 1., ht_i_new, 'T', 1.  ) 
     191         CALL lbc_lnk_multi( 'icethd_do', zvrel, 'T', 1., ht_i_new, 'T', 1.  ) 
    192192 
    193193      ENDIF 

  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/ICE/iceupdate.F90

    r10069 r10170  
    350350            END DO 
    351351         END DO 
    352          CALL lbc_lnk_multi( taum, 'T', 1., tmod_io, 'T', 1. ) 
     352         CALL lbc_lnk_multi( 'iceupdate', taum, 'T', 1., tmod_io, 'T', 1. ) 
    353353         ! 
    354354         utau_oce(:,:) = utau(:,:)                    !* save the air-ocean stresses at ice time-step 
    … …  
    374374         END DO 
    375375      END DO 
    376       CALL lbc_lnk_multi( utau, 'U', -1., vtau, 'V', -1. )   ! lateral boundary condition 
     376      CALL lbc_lnk_multi( 'iceupdate', utau, 'U', -1., vtau, 'V', -1. )   ! lateral boundary condition 
    377377      ! 
    378378      IF( ln_timing )   CALL timing_stop('ice_update_tau') 

  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/ICE/icewri.F90

    r10069 r10170  
    140140           END DO 
    141141         END DO 
    142          CALL lbc_lnk( z2d, 'T', 1. ) 
     142         CALL lbc_lnk( 'icewri', z2d, 'T', 1. ) 
    143143         IF( iom_use('icevel') )   CALL iom_put( "icevel" , z2d                   )   ! ice velocity module 
    144144      ENDIF 
Note: See TracChangeset for help on using the changeset viewer.