Changeset 640 for IOIPSL


Ignore:
Timestamp:
06/10/09 09:51:00 (16 years ago)
Author:
bellier
Message:

Little correction for error message

File:
1 edited

Legend:

Unmodified
Added
Removed
  • IOIPSL/trunk/src/histcom.f90

    r441 r640  
    17961796  IF (last_opp_chk(pfileid,varid) == pitau) THEN 
    17971797    CALL ipslerr (3,"histwrite", & 
    1798  &    'This variable as already been analysed at the present', & 
    1799  &    'time step',' ') 
     1798 &    'This variable has already been analysed at the present', & 
     1799 &    'time step',TRIM(pvarname)) 
    18001800  ENDIF 
    18011801!- 
     
    18081808  IF (last_wrt_chk(pfileid,varid) == pitau) THEN 
    18091809    CALL ipslerr (3,"histwrite", & 
    1810  &    'This variable as already been written for the present', & 
    1811  &    'time step',' ') 
     1810 &    'This variable has already been written for the present', & 
     1811 &    'time step',TRIM(pvarname)) 
    18121812  ENDIF 
    18131813!- 
Note: See TracChangeset for help on using the changeset viewer.