Ignore:
Timestamp:
2009-08-05T12:14:11+02:00 (11 years ago)
Author:
smasson
Message:

avoid write in numout before definition of lwp, see ticket:237

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMO/OPA_SRC/IOM/in_out_manager.F90

    r1528 r1579  
    6666   !!---------------------------------------------------------------------- 
    6767   INTEGER            ::   numstp                 !: logical unit for time step 
    68    INTEGER            ::   numout                 !: logical unit for output print 
     68   INTEGER            ::   numout     =    6      !: logical unit for output print 
    6969   INTEGER            ::   numnam                 !: logical unit for namelist 
    7070   INTEGER            ::   numnam_ice             !: logical unit for ice namelist 
     
    8989   CHARACTER (len=64) ::   cform_err = "(/,' ===>>> : E R R O R',     /,'         ===========',/)"       !: 
    9090   CHARACTER (len=64) ::   cform_war = "(/,' ===>>> : W A R N I N G', /,'         ===============',/)"   !: 
    91    LOGICAL            ::   lwp                      !: boolean : true on the 1st processor only 
     91   LOGICAL            ::   lwp      = .FALSE.       !: boolean : true on the 1st processor only 
    9292   LOGICAL            ::   lsp_area = .TRUE.        !: to make a control print over a specific area 
    9393   !!---------------------------------------------------------------------- 
Note: See TracChangeset for help on using the changeset viewer.