- Timestamp:
- 2019-01-06T17:17:13+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/dev_10448_WAD_SBC_BUGFIX/src/OCE/DIA/dia25h.F90
r10069 r10456 13 13 USE in_out_manager ! I/O units 14 14 USE iom ! I/0 library 15 USE wet_dry 15 16 16 17 IMPLICIT NONE … … 211 212 CALL iom_put( "salin25h", zw3d ) ! salinity 212 213 zw2d(:,:) = sshn_25h(:,:)*tmask(:,:,1) + zmdi*(1.0-tmask(:,:,1)) 213 CALL iom_put( "ssh25h", zw2d ) ! sea surface 214 IF( ll_wd ) THEN 215 CALL iom_put( "ssh25h", zw2d+ssh_ref ) ! sea surface 216 ELSE 217 CALL iom_put( "ssh25h", zw2d ) ! sea surface 218 ENDIF 214 219 ! Write velocities (instantaneous) 215 220 zw3d(:,:,:) = un_25h(:,:,:)*umask(:,:,:) + zmdi*(1.0-umask(:,:,:))
Note: See TracChangeset
for help on using the changeset viewer.