Changeset 6733
- Timestamp:
- 2016-06-23T10:23:22+02:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_ww3_coupling/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
r6594 r6733 2208 2208 ztmp1(:,:) = sshn(:,:) 2209 2209 ENDIF 2210 ! add the bathymetry - we need to send the total height of the water column2211 ztmp1(:,:) = ztmp1(:,:) + bathy(:,:)2212 2210 CALL cpl_snd( jps_wlev , isec, RESHAPE ( ztmp1, (/jpi,jpj,1/) ), info ) 2213 2211 END IF
Note: See TracChangeset
for help on using the changeset viewer.