Changeset 977


Ignore:
Timestamp:
04/20/10 16:59:54 (15 years ago)
Author:
bellier
Message:

Misstype suppressed

File:
1 edited

Legend:

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

    r964 r977  
    22392239END SUBROUTINE histvar_seq 
    22402240!=== 
    2241 SUBROUTINE histsync (file) 
     2241SUBROUTINE histsync (idf) 
    22422242!--------------------------------------------------------------------- 
    22432243!- This subroutine will synchronise all 
     
    22492249  IMPLICIT NONE 
    22502250!- 
    2251 ! file  : optional argument for fileid 
    2252   INTEGER,INTENT(in),OPTIONAL :: file 
     2251! idf  : optional argument for fileid 
     2252  INTEGER,INTENT(in),OPTIONAL :: idf 
    22532253!- 
    22542254  INTEGER :: ifile,iret,i_s,i_e 
     
    22622262  ENDIF 
    22632263!- 
    2264   IF (PRESENT(file)) THEN 
    2265     IF ( (file >= 1).AND.(file <= nb_files_max) ) THEN 
    2266       IF (W_F(ifile)%ncfid > 0) THEN 
    2267         i_s = file 
    2268         i_e = file 
     2264  IF (PRESENT(idf)) THEN 
     2265    IF ( (idf >= 1).AND.(idf <= nb_files_max) ) THEN 
     2266      IF (W_F(idf)%ncfid > 0) THEN 
     2267        i_s = idf 
     2268        i_e = idf 
    22692269      ELSE 
    22702270        i_s = 1 
     
    23192319  IF (PRESENT(idf)) THEN 
    23202320    IF ( (idf >= 1).AND.(idf <= nb_files_max) ) THEN 
    2321       IF (W_F(ifile)%ncfid > 0) THEN 
     2321      IF (W_F(idf)%ncfid > 0) THEN 
    23222322        i_s = idf 
    23232323        i_e = idf 
Note: See TracChangeset for help on using the changeset viewer.