Changeset 953 for IOIPSL


Ignore:
Timestamp:
03/19/10 16:04:09 (15 years ago)
Author:
bellier
Message:

Suppress a little misstype in debug mode

File:
1 edited

Legend:

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

    r881 r953  
    18111811  ELSE IF (l3d) THEN 
    18121812    c_nam = 'histwrite_r3d' 
     1813  ENDIF 
     1814!- 
     1815  IF (l_dbg) THEN 
     1816    WRITE(*,*) "histwrite : ",c_nam 
    18131817  ENDIF 
    18141818!- 
     
    24302434    IF (file_exists) THEN 
    24312435      IF (l_dbg) THEN 
    2432         WRITE(*,*) 'Synchronising specified file number :',file 
     2436        WRITE(*,*) 'Synchronising specified file number :',ifile 
    24332437      ENDIF 
    24342438      nfid = W_F(ifile)%ncfid 
Note: See TracChangeset for help on using the changeset viewer.