Changeset 4309


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

dev_MERGE_2013 : fix to lwp use for namelist ice reads

Location:
branches/2013/dev_MERGE_2013/NEMOGCM/NEMO
Files:
5 edited

Legend:

Unmodified
Added
Removed
  • branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/LIM_SRC_2/iceini_2.F90

    r4306 r4309  
    7575      CALL ctl_opn( numnam_ice_ref, 'namelist_ice_ref',    'OLD',     'FORMATTED', 'SEQUENTIAL', -1, numout, lwp )  
    7676      CALL ctl_opn( numnam_ice_cfg, 'namelist_ice_cfg',    'OLD',     'FORMATTED', 'SEQUENTIAL', -1, numout, lwp ) 
    77       CALL ctl_opn( numoni,         'output.namelist.ice', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp ) 
     77      CALL ctl_opn( numoni,         'output.namelist.ice', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp, 1 ) 
     78 
    7879      ! When Diurnal cycle, core bulk and LIM2  are activated,  
    7980      ! a daily mean qsr is computed for tracer/biogeochemistery model                                 ! 
  • 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 
  • branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/TRA/traadv_mle.F90

    r4245 r4309  
    117117         END DO 
    118118      END DO 
    119       ikmax = MAXVAL( inml_mle(:,:) )                  ! max level of the computation 
     119      ikmax = MAX( MAXVAL( inml_mle(:,:), jpkm1 )                  ! max level of the computation 
    120120      ! 
    121121      ! 
  • branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90

    r4292 r4309  
    261261904   IF( ios /= 0 ) CALL ctl_nam ( ios , 'namcfg in configuration namelist', .TRUE. )    
    262262      WRITE( numond, namcfg ) 
     263 
    263264! Force values for AGRIF zoom (cf. agrif_user.F90) 
    264265#if defined key_agrif 
  • branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/TOP_SRC/trcnam.F90

    r4290 r4309  
    187187      CALL ctl_opn( numnat_ref, 'namelist_top_ref'   , 'OLD'    , 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 
    188188      CALL ctl_opn( numnat_cfg, 'namelist_top_cfg'   , 'OLD'    , 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE. ) 
    189       CALL ctl_opn( numont    , 'output.namelist.top', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE., narea ) 
     189      CALL ctl_opn( numont    , 'output.namelist.top', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, .FALSE., 1 ) 
    190190 
    191191      REWIND( numnat_ref )              ! Namelist namtrc in reference namelist : Passive tracer variables 
Note: See TracChangeset for help on using the changeset viewer.