Changeset 2312
- Timestamp:
- 2010-10-25T17:18:36+02:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/LIM_SRC_3/limdia.F90
r2311 r2312 29 29 USE dom_oce 30 30 USE lib_mpp 31 USE in_out_manager 32 31 33 IMPLICIT NONE 32 34 PRIVATE … … 585 587 irecl = ( jpchinf + 1 ) * nvinfo 586 588 CALL ctlopn( numevo_ice, clname, 'UNKNOWN', 'FORMATTED', 'SEQUENTIAL', & 587 & irecl, numout, narea, 1)589 & irecl, numout, .TRUE., narea ) 588 590 589 591 !- ecriture de 2 lignes d''entete :
Note: See TracChangeset
for help on using the changeset viewer.