Changeset 284


Ignore:
Timestamp:
09/21/11 15:58:06 (13 years ago)
Author:
hozdoba
Message:

Corrections

Location:
XMLIO_V2/dev/common/src/xmlio/fortran
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • XMLIO_V2/dev/common/src/xmlio/fortran/idata.f90

    r275 r284  
    106106   SUBROUTINE dtreatment_end(context_hdl) 
    107107      TYPE(XContextHandle), INTENT(IN), OPTIONAL :: context_hdl 
    108       CALL context_set_current(context_hdl) 
    109108      CALL xios_dtreatment_end() 
    110109   END SUBROUTINE dtreatment_end 

  • XMLIO_V2/dev/common/src/xmlio/fortran/idate.f90

    r274 r284  
    3838   SUBROUTINE update_calendar(step) 
    3939      INTEGER, INTENT(IN):: step 
    40       IF (step < 1) THEN 
    41          PRINT *, "L'argument 'step' ne peut être négatif ou nul" 
     40      IF (step < 0) THEN 
     41         PRINT *, "L'argument 'step' ne peut être négatif" 
    4242         STOP 
    4343      END IF 
Note: See TracChangeset for help on using the changeset viewer.