Changeset 6908
- Timestamp:
- 2016-09-02T17:39:46+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_test/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90
r5463 r6908 157 157 CALL iom_put( "toce", tsn(:,:,:,jp_tem) ) ! 3D temperature 158 158 CALL iom_put( "sst", tsn(:,:,1,jp_tem) ) ! surface temperature 159 CALL iom_put( "ss20", tsn(:,:,20,jp_tem) ) ! surface temperature 159 160 IF ( iom_use("sbt") ) THEN 160 161 DO jj = 1, jpj
Note: See TracChangeset
for help on using the changeset viewer.