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/LDF/ldftra.F90

    r13515 r13552  
    796796!!gm     to be redesigned....    
    797797      !                                                  !==  eiv stream function: output  ==! 
    798       CALL lbc_lnk_multi( 'ldftra', psi_uw, 'U', -1.0_wp , psi_vw, 'V', -1.0_wp ) 
    799       ! 
    800798!!gm      CALL iom_put( "psi_eiv_uw", psi_uw )                 ! output 
    801799!!gm      CALL iom_put( "psi_eiv_vw", psi_vw ) 
     
    805803      zw3d(:,:,jpk) = 0._wp                                    ! bottom value always 0 
    806804      ! 
    807       DO_3D( 1, 1, 1, 1, 1, jpkm1 )                                  ! e2u e3u u_eiv = -dk[psi_uw] 
     805      DO_3D( 0, 0, 0, 0, 1, jpkm1 )                                  ! e2u e3u u_eiv = -dk[psi_uw] 
    808806         zw3d(ji,jj,jk) = ( psi_uw(ji,jj,jk+1) - psi_uw(ji,jj,jk) ) / ( e2u(ji,jj) * e3u(ji,jj,jk,Kmm) ) 
    809807      END_3D 
    810808      CALL iom_put( "uoce_eiv", zw3d ) 
    811809      ! 
    812       DO_3D( 1, 1, 1, 1, 1, jpkm1 )                                  ! e1v e3v v_eiv = -dk[psi_vw] 
     810      DO_3D( 0, 0, 0, 0, 1, jpkm1 )                                  ! e1v e3v v_eiv = -dk[psi_vw] 
    813811         zw3d(ji,jj,jk) = ( psi_vw(ji,jj,jk+1) - psi_vw(ji,jj,jk) ) / ( e1v(ji,jj) * e3v(ji,jj,jk,Kmm) ) 
    814812      END_3D 
     
    819817            &              + psi_uw(ji,jj,jk) - psi_uw(ji-1,jj  ,jk)  ) / e1e2t(ji,jj) 
    820818      END_3D 
    821       CALL lbc_lnk( 'ldftra', zw3d, 'T', 1.0_wp )      ! lateral boundary condition 
    822819      CALL iom_put( "woce_eiv", zw3d ) 
    823820      ! 
    824821      IF( iom_use('weiv_masstr') ) THEN   ! vertical mass transport & its square value 
    825          DO_2D( 1, 1, 1, 1 ) 
     822         DO_2D( 0, 0, 0, 0 ) 
    826823            zw2d(ji,jj) = rho0 * e1e2t(ji,jj) 
    827824         END_2D 
     
    849846           zw2d(ji,jj) = zw2d(ji,jj) + zw3d(ji,jj,jk) 
    850847        END_3D 
    851         CALL lbc_lnk( 'ldftra', zw2d, 'U', -1.0_wp ) 
    852         CALL lbc_lnk( 'ldftra', zw3d, 'U', -1.0_wp ) 
    853848        CALL iom_put( "ueiv_heattr"  , zztmp * zw2d )                  ! heat transport in i-direction 
    854849        CALL iom_put( "ueiv_heattr3d", zztmp * zw3d )                  ! heat transport in i-direction 
     
    870865         zw2d(ji,jj) = zw2d(ji,jj) + zw3d(ji,jj,jk) 
    871866      END_3D 
    872       CALL lbc_lnk( 'ldftra', zw2d, 'V', -1.0_wp ) 
    873       CALL lbc_lnk( 'ldftra', zw3d, 'V', -1. ) 
    874867      CALL iom_put( "veiv_heattr"  , zztmp * zw2d )                  !  heat transport in j-direction 
    875868      CALL iom_put( "veiv_heattr3d", zztmp * zw3d )                  !  heat transport in j-direction 
     
    886879           zw2d(ji,jj) = zw2d(ji,jj) + zw3d(ji,jj,jk) 
    887880        END_3D 
    888         CALL lbc_lnk( 'ldftra', zw2d, 'U', -1.0_wp ) 
    889         CALL lbc_lnk( 'ldftra', zw3d, 'U', -1.0_wp ) 
    890881        CALL iom_put( "ueiv_salttr", zztmp * zw2d )                  ! salt transport in i-direction 
    891882        CALL iom_put( "ueiv_salttr3d", zztmp * zw3d )                ! salt transport in i-direction 
     
    898889         zw2d(ji,jj) = zw2d(ji,jj) + zw3d(ji,jj,jk) 
    899890      END_3D 
    900       CALL lbc_lnk( 'ldftra', zw2d, 'V', -1.0_wp ) 
    901       CALL lbc_lnk( 'ldftra', zw3d, 'V', -1. ) 
    902891      CALL iom_put( "veiv_salttr"  , zztmp * zw2d )                  !  salt transport in j-direction 
    903892      CALL iom_put( "veiv_salttr3d", zztmp * zw3d )                  !  salt transport in j-direction 
Note: See TracChangeset for help on using the changeset viewer.