Changeset 14172 for NEMO/trunk/src/TOP/TRP/trcatf.F90
- Timestamp:
- 2020-12-15T13:39:13+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/TOP/TRP/trcatf.F90
r14143 r14172 103 103 #endif 104 104 ! Update after tracer on domain lateral boundaries 105 CALL lbc_lnk( 'trcatf', ptr(:,:,:,:,Kaa), 'T', 1. )105 CALL lbc_lnk( 'trcatf', ptr(:,:,:,:,Kaa), 'T', 1._wp ) 106 106 107 107 IF( ln_bdy ) CALL trc_bdy( kt, Kbb, Kmm, Kaa ) … … 169 169 ENDIF 170 170 ! 171 CALL lbc_lnk _multi( 'trcatf', ptr(:,:,:,:,Kmm), 'T', 1._wp, ptr(:,:,:,:,Kaa), 'T', 1._wp, ptr(:,:,:,:,Kaa), 'T', 1._wp )171 CALL lbc_lnk( 'trcatf', ptr(:,:,:,:,Kmm), 'T', 1._wp ) 172 172 ENDIF 173 173 !
Note: See TracChangeset
for help on using the changeset viewer.