- Timestamp:
- 2018-04-27T13:06:25+02:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_fix_diag_bitcomp/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_eiv.F90
r9502 r9512 177 177 z2d(:,:) = z2d(:,:) + z3d(:,:,jk) 178 178 END DO 179 CALL lbc_lnk( z3d _T, 'U', -1. )179 CALL lbc_lnk( z3d, 'U', -1. ) 180 180 CALL iom_put( "ueiv_masstr", z3d ) ! mass transport in i-direction 181 181 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.