Changeset 10425 for NEMO/trunk/tests/CANAL/MY_SRC/usrdef_istate.F90
- Timestamp:
- 2018-12-19T22:54:16+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/tests/CANAL/MY_SRC/usrdef_istate.F90
r10074 r10425 169 169 END DO 170 170 END DO 171 CALL lbc_lnk( pssh, 'T', 1. )171 CALL lbc_lnk( 'usrdef_istate', pssh, 'T', 1. ) 172 172 END DO 173 173 … … 293 293 pssh(:,:) = pssh(:,:) + ( 0.1 * zrandom(:,:) - 0.05 ) 294 294 END IF 295 CALL lbc_lnk( pssh, 'T', 1. )296 CALL lbc_lnk( pts, 'T', 1. )297 CALL lbc_lnk( pu, 'U', -1. )298 CALL lbc_lnk( pv, 'V', -1. )295 CALL lbc_lnk( 'usrdef_istate', pssh, 'T', 1. ) 296 CALL lbc_lnk( 'usrdef_istate', pts, 'T', 1. ) 297 CALL lbc_lnk( 'usrdef_istate', pu, 'U', -1. ) 298 CALL lbc_lnk( 'usrdef_istate', pv, 'V', -1. ) 299 299 300 300 END SUBROUTINE usr_def_istate
Note: See TracChangeset
for help on using the changeset viewer.