- Timestamp:
- 03/19/10 16:04:09 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
IOIPSL/trunk/src/histcom.f90
r881 r953 1811 1811 ELSE IF (l3d) THEN 1812 1812 c_nam = 'histwrite_r3d' 1813 ENDIF 1814 !- 1815 IF (l_dbg) THEN 1816 WRITE(*,*) "histwrite : ",c_nam 1813 1817 ENDIF 1814 1818 !- … … 2430 2434 IF (file_exists) THEN 2431 2435 IF (l_dbg) THEN 2432 WRITE(*,*) 'Synchronising specified file number :', file2436 WRITE(*,*) 'Synchronising specified file number :',ifile 2433 2437 ENDIF 2434 2438 nfid = W_F(ifile)%ncfid
Note: See TracChangeset
for help on using the changeset viewer.