Changeset 596

Timestamp:

2007-02-20T10:37:53+01:00 (17 years ago)

Author:

opalod

Message:

nemo_v2_bugfix_003:RB: change lenght to 200 for temporary character, this is related to pgf behaviour

File:

• trunk/NEMO/OPA_SRC/IOM/in_out_manager.F90 (modified) (1 diff)

trunk/NEMO/OPA_SRC/IOM/in_out_manager.F90

@@ -75 +75 @@
    INTEGER            ::   nstop = 0                !: error flag (=number of reason for a premature stop run)
    INTEGER            ::   nwarn = 0                !: warning flag (=number of warning found during the run)
-   CHARACTER(LEN=100) ::   ctmp1, ctmp2, ctmp3      !: temporary character
+   CHARACTER(len=200) ::   ctmp1, ctmp2, ctmp3      !: temporary character
    CHARACTER (len=64) ::   cform_err = "(/,' ===>>> : E R R O R',     /,'         ===========',/)"       !:
    CHARACTER (len=64) ::   cform_war = "(/,' ===>>> : W A R N I N G', /,'         ===============',/)"   !: