Changeset 430 for IOIPSL/trunk

Timestamp:

10/23/08 16:33:11 (16 years ago)

Author:

bellier

Message:

Changed a "FATAL ERROR" to a "WARNING"

(problems with calendar in IPSLCM4_V2 for OPA)

File:

• IOIPSL/trunk/src/restcom.f90 (modified) (3 diffs)

IOIPSL/trunk/src/restcom.f90

@@ -658 +658 @@
 !-
   IF (tax_size_in(nb_fi) > 0) THEN
+    calendar = ' '
     iret = NF90_GET_ATT(ncfid,tax_varid_in(nb_fi),'calendar',calendar)
     IF (iret == NF90_NOERR) THEN
@@ -723 +724 @@
     iret = NF90_GET_ATT(ncfid,tax_varid_in(nb_fi),'units',tax_orig)
     tax_orig = tax_orig(INDEX(tax_orig,'since')+6:LEN_TRIM(tax_orig))
+    tmp_cal = ' '
     iret = NF90_GET_ATT(ncfid,tax_varid_in(nb_fi),'calendar',tmp_cal)
     IF (l_dbg) THEN
@@ -733 +735 @@
         calend_str = tmp_cal
       ELSE
-        CALL ipslerr (3,'restsett', &
+        CALL ipslerr (2,'restsett', &
  &       ' In the restart files two different calendars were found.', &
- &       ' Please check the files you have used',' ')
+ &       ' Please check the files you have used.',' ')
       ENDIF
     ENDIF