Changeset 430 for IOIPSL


Ignore:
Timestamp:
10/23/08 16:33:11 (15 years ago)
Author:
bellier
Message:

Changed a "FATAL ERROR" to a "WARNING"

(problems with calendar in IPSLCM4_V2 for OPA)

File:
1 edited

Legend:

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

    r428 r430  
    658658!- 
    659659  IF (tax_size_in(nb_fi) > 0) THEN 
     660    calendar = ' ' 
    660661    iret = NF90_GET_ATT(ncfid,tax_varid_in(nb_fi),'calendar',calendar) 
    661662    IF (iret == NF90_NOERR) THEN 
     
    723724    iret = NF90_GET_ATT(ncfid,tax_varid_in(nb_fi),'units',tax_orig) 
    724725    tax_orig = tax_orig(INDEX(tax_orig,'since')+6:LEN_TRIM(tax_orig)) 
     726    tmp_cal = ' ' 
    725727    iret = NF90_GET_ATT(ncfid,tax_varid_in(nb_fi),'calendar',tmp_cal) 
    726728    IF (l_dbg) THEN 
     
    733735        calend_str = tmp_cal 
    734736      ELSE 
    735         CALL ipslerr (3,'restsett', & 
     737        CALL ipslerr (2,'restsett', & 
    736738 &       ' 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.',' ') 
    738740      ENDIF 
    739741    ENDIF 
Note: See TracChangeset for help on using the changeset viewer.