Ignore:
Timestamp:
11/12/09 14:35:37 (15 years ago)
Author:
ymipsl
Message:

Ajout de la définition du calendrier IOIPLS

YM

File:
1 edited

Legend:

Unmodified
Added
Removed
  • XMLIO_SERVER/trunk/src/IOSERVER/mod_event_client.f90

    r40 r50  
    165165 
    166166 
     167  SUBROUTINE event__set_calendar(str_calendar) 
     168  USE iomanager 
     169  IMPLICIT NONE 
     170    CHARACTER(LEN=*),INTENT(IN) :: str_calendar 
     171         
     172    IF (using_server) THEN 
     173      CALL create_request(event_id_set_calendar) 
     174      CALL pack(LEN(TRIM(str_calendar))) 
     175      CALL pack(TRIM(str_calendar)) 
     176      CALL Finalize_request 
     177    ELSE 
     178     CALL iom__set_calendar(str_calendar) 
     179    ENDIF 
     180       
     181  END SUBROUTINE event__set_calendar 
     182   
     183   
    167184  SUBROUTINE event__enable_field(varname) 
    168185  USE iomanager 
Note: See TracChangeset for help on using the changeset viewer.