New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 2022 for branches/DEV_r1879_FCM/NEMOGCM/EXTERNAL/IOIPSL/src/histcom.f90 – NEMO

Ignore:
Timestamp:
2010-07-22T12:48:59+02:00 (14 years ago)
Author:
smasson
Message:

supress boring messages from IOIPSL in DEV_r1879_FCM

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/DEV_r1879_FCM/NEMOGCM/EXTERNAL/IOIPSL/src/histcom.f90

    r1993 r2022  
    16041604  IF (l_dbg) WRITE(*,*) "histend : 4.0" 
    16051605!- 
    1606   WRITE(str70,'("All variables have been initialized on file :",I3)') idf 
    1607   CALL ipslerr (1,'histend',str70,'',' ') 
     1606!!$  WRITE(str70,'("All variables have been initialized on file :",I3)') idf 
     1607!!$  CALL ipslerr (1,'histend',str70,'',' ') 
    16081608!--------------------- 
    16091609END SUBROUTINE histend 
     
    22582258    ENDIF 
    22592259!- 
    2260     IF (varseq_err(idf) >= 10) THEN 
    2261       WRITE(str70,'("for file ",I3)') idf 
    2262       CALL ipslerr (2,"histvar_seq", & 
    2263  &  'There were 10 errors in the learned sequence of variables',& 
    2264  &  str70,'This looks like a bug, please report it.') 
    2265          varseq_err(idf) = 0 
    2266     ENDIF 
     2260!!$    IF (varseq_err(idf) >= 10) THEN 
     2261!!$      WRITE(str70,'("for file ",I3)') idf 
     2262!!$      CALL ipslerr (2,"histvar_seq", & 
     2263!!$ &  'There were 10 errors in the learned sequence of variables',& 
     2264!!$ &  str70,'This looks like a bug, please report it.') 
     2265!!$         varseq_err(idf) = 0 
     2266!!$    ENDIF 
    22672267  ENDIF 
    22682268!- 
Note: See TracChangeset for help on using the changeset viewer.