Changeset 10170 for NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/tests/BENCH/MY_SRC/usrdef_istate.F90
- Timestamp:
- 2018-10-03T16:49:50+02:00 (5 years ago)
- 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 80 80 ENDDO 81 81 ! 82 CALL lbc_lnk( pssh, 'T', 1. ) ! apply boundary conditions83 CALL lbc_lnk( pts, 'T', 1. ) ! apply boundary conditions84 CALL lbc_lnk( pu, 'U', -1. ) ! apply boundary conditions85 CALL lbc_lnk( pv, 'V', -1. ) ! apply boundary conditions82 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 86 86 87 87 END SUBROUTINE usr_def_istate
Note: See TracChangeset
for help on using the changeset viewer.