Ignore:
Timestamp:
2013-11-22T09:18:20+01:00 (8 years ago)
Author:
cetlod
Message:

dev_MERGE_2013 : fix to lwp use for namelist ice reads

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/LIM_SRC_3/iceini.F90

    r4298 r4309  
    7474      CALL ctl_opn( numnam_ice_ref, 'namelist_ice_ref',    'OLD',     'FORMATTED', 'SEQUENTIAL', -1, numout, lwp )  
    7575      CALL ctl_opn( numnam_ice_cfg, 'namelist_ice_cfg',    'OLD',     'FORMATTED', 'SEQUENTIAL', -1, numout, lwp ) 
    76       CALL ctl_opn( numoni,         'output.namelist.ice', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp ) 
     76      CALL ctl_opn( numoni,         'output.namelist.ice', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, 1 ) 
    7777      ! 
    7878      CALL ice_run                     ! set some ice run parameters 
Note: See TracChangeset for help on using the changeset viewer.