Changeset 430
- Timestamp:
- 10/23/08 16:33:11 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
IOIPSL/trunk/src/restcom.f90
r428 r430 658 658 !- 659 659 IF (tax_size_in(nb_fi) > 0) THEN 660 calendar = ' ' 660 661 iret = NF90_GET_ATT(ncfid,tax_varid_in(nb_fi),'calendar',calendar) 661 662 IF (iret == NF90_NOERR) THEN … … 723 724 iret = NF90_GET_ATT(ncfid,tax_varid_in(nb_fi),'units',tax_orig) 724 725 tax_orig = tax_orig(INDEX(tax_orig,'since')+6:LEN_TRIM(tax_orig)) 726 tmp_cal = ' ' 725 727 iret = NF90_GET_ATT(ncfid,tax_varid_in(nb_fi),'calendar',tmp_cal) 726 728 IF (l_dbg) THEN … … 733 735 calend_str = tmp_cal 734 736 ELSE 735 CALL ipslerr ( 3,'restsett', &737 CALL ipslerr (2,'restsett', & 736 738 & ' In the restart files two different calendars were found.', & 737 & ' Please check the files you have used ',' ')739 & ' Please check the files you have used.',' ') 738 740 ENDIF 739 741 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.