Changeset 1334 for trunk/NEMO/TOP_SRC/SED
- Timestamp:
- 2009-03-03T15:07:48+01:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/TOP_SRC/SED/sedwri.F90
r1329 r1334 40 40 INTEGER , DIMENSION(jpij) , SAVE :: ndext51 41 41 REAL(wp) :: zsto,zout, zdt 42 INTEGER :: iimi, iima, ijmi, ijma,ipk, it 42 INTEGER :: iimi, iima, ijmi, ijma,ipk, it, itmod 43 43 INTEGER :: jn 44 44 CHARACTER(len = 20) :: cltra , cltrau … … 76 76 77 77 ! define time axis 78 it = kt - nitsed000 + 1 78 it = kt 79 itmod = kt - nitsed000 + 1 79 80 80 81 … … 185 186 CALL histbeg ( clhstnam, jpi, glamt, jpj, gphit, & 186 187 & iimi, iima-iimi+1, ijmi, ijma-ijmi+1, & 187 & 0, zjulian, zdt, nhorised, nised , domain_id=nidom )188 CALL histvert( nised,'deptht','Vertic.sed.T levels','m',ipk, profsed, ndepsed )188 & nitsed000-1, zjulian, zdt, nhorised, nised , domain_id=nidom ) 189 CALL histvert( nised,'deptht','Vertic.sed.T levels','m',ipk, profsed, ndepsed, 'down' ) 189 190 CALL wheneq ( jpi*jpj*ipk, tmasksed, 1, 1., ndext52, ndimt52 ) 190 191 CALL wheneq ( jpi*jpj, tmasksed(:,:,1), 1, 1., ndext51, ndimt51 )
Note: See TracChangeset
for help on using the changeset viewer.