- Timestamp:
- 2010-11-05T16:22:12+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/nemo_v3_3_beta/NEMOGCM/NEMO/TOP_SRC/SED/sedwri.F90
r2281 r2364 186 186 CALL histbeg ( clhstnam, jpi, glamt, jpj, gphit, & 187 187 & iimi, iima-iimi+1, ijmi, ijma-ijmi+1, & 188 & nitsed000-1, zjulian, zdt, nhorised, nised , domain_id=nidom )188 & nitsed000-1, zjulian, zdt, nhorised, nised , domain_id=nidom, snc4chunks=snc4set ) 189 189 CALL histvert( nised,'deptht','Vertic.sed.T levels','m',ipk, profsed, ndepsed, 'down' ) 190 190 CALL wheneq ( jpi*jpj*ipk, tmasksed, 1, 1., ndext52, ndimt52 ) … … 223 223 224 224 225 CALL histend( nised )225 CALL histend( nised, snc4set ) 226 226 227 227 WRITE(numsed,*)
Note: See TracChangeset
for help on using the changeset viewer.