Changeset 1579 for trunk/NEMO/OPA_SRC/IOM/in_out_manager.F90

Timestamp:

2009-08-05T12:14:11+02:00 (15 years ago)

Author:

smasson

Message:

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

File:

• trunk/NEMO/OPA_SRC/IOM/in_out_manager.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/IOM/in_out_manager.F90

@@ -66 +66 @@
    !!----------------------------------------------------------------------
    INTEGER            ::   numstp                 !: logical unit for time step
-   INTEGER            ::   numout                 !: logical unit for output print
+   INTEGER            ::   numout     =    6      !: logical unit for output print
    INTEGER            ::   numnam                 !: logical unit for namelist
    INTEGER            ::   numnam_ice             !: logical unit for ice namelist
@@ -89 +89 @@
    CHARACTER (len=64) ::   cform_err = "(/,' ===>>> : E R R O R',     /,'         ===========',/)"       !:
    CHARACTER (len=64) ::   cform_war = "(/,' ===>>> : W A R N I N G', /,'         ===============',/)"   !:
-   LOGICAL            ::   lwp                      !: boolean : true on the 1st processor only
+   LOGICAL            ::   lwp      = .FALSE.       !: boolean : true on the 1st processor only
    LOGICAL            ::   lsp_area = .TRUE.        !: to make a control print over a specific area
    !!----------------------------------------------------------------------