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 9814 for NEMO/branches/2018/dev_r9759_HPC09_ESIWACE/src/OCE/SBC/sbcwave.F90 – NEMO

Ignore:
Timestamp:
2018-06-20T15:41:08+02:00 (6 years ago)
Author:
smasson
Message:

dev_r9759_HPC09_ESIWACE: get more informations

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2018/dev_r9759_HPC09_ESIWACE/src/OCE/SBC/sbcwave.F90

    r9598 r9814  
    210210      ENDIF 
    211211 
    212       CALL lbc_lnk_multi( usd, 'U', -1., vsd, 'V', -1. ) 
     212      CALL lbc_lnk_multi("sbcwave",usd, 'U', -1., vsd, 'V', -1. ) 
    213213 
    214214      ! 
    … …  
    235235#endif 
    236236      ! 
    237       CALL lbc_lnk( ze3divh, 'T', 1. ) 
     237      CALL lbc_lnk("sbcwave",ze3divh, 'T', 1. ) 
    238238      ! 
    239239      IF( ln_linssh ) THEN   ;   ik = 1   ! none zero velocity through the sea surface 
    … …  
    296296            END DO 
    297297         END DO 
    298          CALL lbc_lnk_multi( utau(:,:), 'U', -1. , vtau(:,:), 'V', -1. , taum(:,:) , 'T', -1. ) 
     298         CALL lbc_lnk_multi("sbcwave",utau(:,:), 'U', -1. , vtau(:,:), 'V', -1. , taum(:,:) , 'T', -1. ) 
    299299      ENDIF 
    300300      ! 
Note: See TracChangeset for help on using the changeset viewer.