Changeset 4309 for branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/TOP_SRC/trcnam.F90

Timestamp:

2013-11-22T09:18:20+01:00 (10 years ago)

Author:

cetlod

Message:

dev_MERGE_2013 : fix to lwp use for namelist ice reads

File:

• branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/TOP_SRC/trcnam.F90 (modified) (1 diff)

branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/TOP_SRC/trcnam.F90

@@ -187 +187 @@
       CALL ctl_opn( numnat_ref, 'namelist_top_ref'   , 'OLD'    , 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. )
       CALL ctl_opn( numnat_cfg, 'namelist_top_cfg'   , 'OLD'    , 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. )
-      CALL ctl_opn( numont    , 'output.namelist.top', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE., narea )
+      CALL ctl_opn( numont    , 'output.namelist.top', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE., 1 )
 
       REWIND( numnat_ref )              ! Namelist namtrc in reference namelist : Passive tracer variables