Ignore:
Timestamp:
2020-10-01T12:09:56+02:00 (5 months ago)
Author:
hadcv
Message:

#2365: Remove diagnostic output lbc_lnk calls

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/dev_r13383_HPC-02_Daley_Tiling/src/OCE/DIA/diaar5.F90

    r13519 r13552  
    308308   END SUBROUTINE dia_ar5 
    309309 
    310    ! TEMP: These changes and lbc_lnk not necessary if using XIOS (subdomain support, will not output haloes) 
     310   ! TEMP: These changes not necessary if using XIOS (subdomain support, will not output haloes) 
    311311   SUBROUTINE dia_ar5_hst( ktra, cptr, puflx, pvflx ) 
    312312      !!---------------------------------------------------------------------- 
     
    348348      IF( ntile == 0 .OR. ntile == nijtile ) THEN 
    349349         IF( cptr == 'adv' ) THEN 
    350             CALL lbc_lnk( 'diaar5', hstr_adv(:,:,ktra,1), 'U', -1.0_wp ) 
    351350            IF( ktra == jp_tem ) CALL iom_put( 'uadv_heattr' , rho0_rcp * hstr_adv(:,:,ktra,1) )  ! advective heat transport in i-direction 
    352351            IF( ktra == jp_sal ) CALL iom_put( 'uadv_salttr' , rho0     * hstr_adv(:,:,ktra,1) )  ! advective salt transport in i-direction 
    353             CALL lbc_lnk( 'diaar5', hstr_adv(:,:,ktra,2), 'V', -1.0_wp ) 
    354352            IF( ktra == jp_tem ) CALL iom_put( 'vadv_heattr' , rho0_rcp * hstr_adv(:,:,ktra,2) )  ! advective heat transport in j-direction 
    355353            IF( ktra == jp_sal ) CALL iom_put( 'vadv_salttr' , rho0     * hstr_adv(:,:,ktra,2) )  ! advective salt transport in j-direction 
    356354         ENDIF 
    357355         IF( cptr == 'ldf' ) THEN 
    358             CALL lbc_lnk( 'diaar5', hstr_ldf(:,:,ktra,1), 'U', -1.0_wp ) 
    359356            IF( ktra == jp_tem ) CALL iom_put( 'udiff_heattr' , rho0_rcp * hstr_ldf(:,:,ktra,1) ) ! diffusive heat transport in i-direction 
    360357            IF( ktra == jp_sal ) CALL iom_put( 'udiff_salttr' , rho0     * hstr_ldf(:,:,ktra,1) ) ! diffusive salt transport in i-direction 
    361             CALL lbc_lnk( 'diaar5', hstr_ldf(:,:,ktra,2), 'V', -1.0_wp ) 
    362358            IF( ktra == jp_tem ) CALL iom_put( 'vdiff_heattr' , rho0_rcp * hstr_ldf(:,:,ktra,2) ) ! diffusive heat transport in j-direction 
    363359            IF( ktra == jp_sal ) CALL iom_put( 'vdiff_salttr' , rho0     * hstr_ldf(:,:,ktra,2) ) ! diffusive salt transport in j-direction 
Note: See TracChangeset for help on using the changeset viewer.