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 10170 for NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/tests/BENCH/MY_SRC/usrdef_istate.F90 – NEMO

Ignore:
Timestamp:
2018-10-03T16:49:50+02:00 (5 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/tests/BENCH/MY_SRC/usrdef_istate.F90

    r10166 r10170  
    8080      ENDDO 
    8181      ! 
    82       CALL lbc_lnk(pssh, 'T',  1. )            ! apply boundary conditions 
    83       CALL lbc_lnk( pts, 'T',  1. )            ! apply boundary conditions 
    84       CALL lbc_lnk(  pu, 'U', -1. )            ! apply boundary conditions 
    85       CALL lbc_lnk(  pv, 'V', -1. )            ! apply boundary conditions 
     82      CALL lbc_lnk('usrdef_istate', pssh, 'T',  1. )            ! apply boundary conditions 
     83      CALL lbc_lnk( 'usrdef_istate', pts, 'T',  1. )            ! apply boundary conditions 
     84      CALL lbc_lnk(  'usrdef_istate', pu, 'U', -1. )            ! apply boundary conditions 
     85      CALL lbc_lnk(  'usrdef_istate', pv, 'V', -1. )            ! apply boundary conditions 
    8686       
    8787   END SUBROUTINE usr_def_istate 
Note: See TracChangeset for help on using the changeset viewer.