Changeset 977 for IOIPSL/trunk
- Timestamp:
- 04/20/10 16:59:54 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
IOIPSL/trunk/src/histcom.f90
r964 r977 2239 2239 END SUBROUTINE histvar_seq 2240 2240 !=== 2241 SUBROUTINE histsync ( file)2241 SUBROUTINE histsync (idf) 2242 2242 !--------------------------------------------------------------------- 2243 2243 !- This subroutine will synchronise all … … 2249 2249 IMPLICIT NONE 2250 2250 !- 2251 ! file: optional argument for fileid2252 INTEGER,INTENT(in),OPTIONAL :: file2251 ! idf : optional argument for fileid 2252 INTEGER,INTENT(in),OPTIONAL :: idf 2253 2253 !- 2254 2254 INTEGER :: ifile,iret,i_s,i_e … … 2262 2262 ENDIF 2263 2263 !- 2264 IF (PRESENT( file)) THEN2265 IF ( ( file >= 1).AND.(file<= nb_files_max) ) THEN2266 IF (W_F(i file)%ncfid > 0) THEN2267 i_s = file2268 i_e = file2264 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 2269 2269 ELSE 2270 2270 i_s = 1 … … 2319 2319 IF (PRESENT(idf)) THEN 2320 2320 IF ( (idf >= 1).AND.(idf <= nb_files_max) ) THEN 2321 IF (W_F(i file)%ncfid > 0) THEN2321 IF (W_F(idf)%ncfid > 0) THEN 2322 2322 i_s = idf 2323 2323 i_e = idf
Note: See TracChangeset
for help on using the changeset viewer.