Changeset 894 for trunk/NEMO/LIM_SRC_3/limdia.F90
- Timestamp:
- 2008-04-21T14:36:04+02:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/LIM_SRC_3/limdia.F90
r888 r894 421 421 ! oututs on file ice_evolu 422 422 !MV IF( MOD( numit , ninfo ) == 0 ) THEN 423 WRITE( 90,fmtw) ( titvar(jv), vinfom(jv)/naveg, jv = 1, nvinfo )423 WRITE(numevo_ice,fmtw) ( titvar(jv), vinfom(jv)/naveg, jv = 1, nvinfo ) 424 424 naveg = 0 425 425 DO jv = 1, nvinfo … … 453 453 454 454 CHARACTER(len=jpchinf) :: titinf 455 CHARACTER(len=50) :: clname 455 456 !!------------------------------------------------------------------- 456 457 … … 576 577 577 578 ! opening "ice_evolu" file 579 clname = 'ice.evolu' 578 580 irecl = ( jpchinf + 1 ) * nvinfo 579 OPEN( 90, file='ice.evolu', status='unknown', RECL = irecl)580 OPEN( 90, file='ice.evolu', status='unknown')581 CALL ctlopn( numevo_ice, clname, 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', 582 & irecl, numout, lwp, 1 ) 581 583 582 584 !- ecriture de 2 lignes d''entete : 583 WRITE( 90,1000) fmtr, fmtw, fmtitr, nvinfo, ntot, 0, nfrinf585 WRITE(numevo_ice,1000) fmtr, fmtw, fmtitr, nvinfo, ntot, 0, nfrinf 584 586 zxx0 = 0.001 * REAL(ninfo) 585 587 zxx1 = 0.001 * REAL(ndeb) 586 WRITE( 90,1111) REAL(jpchinf), 0., zxx1, zxx0, 0., 0., 0588 WRITE(numevo_ice,1111) REAL(jpchinf), 0., zxx1, zxx0, 0., 0., 0 587 589 588 590 !- ecriture de 2 lignes de titre : 589 WRITE( 90,'(A,I8,A,I8,A,I5)') &591 WRITE(numevo_ice,'(A,I8,A,I8,A,I5)') & 590 592 'Evolution chronologique - Experience '//cexper & 591 593 //' de', ndeb, ' a', nferme, ' pas', ninfo 592 WRITE( 90,fmtitr) ( titvar(jv), jv = 1, nvinfo )594 WRITE(numevo_ice,fmtitr) ( titvar(jv), jv = 1, nvinfo ) 593 595 594 596
Note: See TracChangeset
for help on using the changeset viewer.