- Timestamp:
- 06/10/09 09:51:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
IOIPSL/trunk/src/histcom.f90
r441 r640 1796 1796 IF (last_opp_chk(pfileid,varid) == pitau) THEN 1797 1797 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)) 1800 1800 ENDIF 1801 1801 !- … … 1808 1808 IF (last_wrt_chk(pfileid,varid) == pitau) THEN 1809 1809 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)) 1812 1812 ENDIF 1813 1813 !-
Note: See TracChangeset
for help on using the changeset viewer.