Changeset 50 for XMLIO_SERVER/trunk/src


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

Ajout de la définition du calendrier IOIPLS

YM

Location:
XMLIO_SERVER/trunk/src/IOSERVER
Files:
5 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 
  • XMLIO_SERVER/trunk/src/IOSERVER/mod_event_parameters.f90

    r40 r50  
    1717  INTEGER, PARAMETER :: event_id_write_field1d         = 115 
    1818  INTEGER, PARAMETER :: event_id_set_attribut          = 116 
     19  INTEGER, PARAMETER :: event_id_set_calendar          = 117 
    1920  INTEGER, PARAMETER :: event_id_stop_ioserver         = 999 
    2021END MODULE mod_event_parameters 
  • XMLIO_SERVER/trunk/src/IOSERVER/mod_event_server.f90

    r40 r50  
    5050        CALL event__set_timestep 
    5151 
     52      CASE (event_id_set_calendar) 
     53        CALL event__set_calendar 
     54 
    5255      CASE (event_id_enable_field) 
    5356        CALL event__enable_field 
     
    7174        is_terminated=.TRUE.   
    7275        PRINT *,"TERMINATE_EVENT RECEIVED" 
     76         
    7377 
    7478      CASE DEFAULT  
     
    410414  END SUBROUTINE event__set_timestep 
    411415     
     416 
     417  SUBROUTINE event__set_calendar 
     418  IMPLICIT NONE 
     419    INTEGER :: lenc 
     420       
     421    CALL unpack(lenc) 
     422    CALL sub_internal(lenc) 
     423   
     424  CONTAINS 
     425    SUBROUTINE sub_internal(lenc) 
     426    IMPLICIT NONE 
     427      INTEGER :: lenc 
     428      CHARACTER(len=lenc) :: str_calendar 
     429       
     430      CALL unpack(str_calendar) 
     431       
     432      CALL iom__set_calendar(str_calendar) 
     433 
     434    END SUBROUTINE sub_internal 
     435  END SUBROUTINE event__set_calendar 
     436   
    412437     
    413438  SUBROUTINE event__close_io_definition 
  • XMLIO_SERVER/trunk/src/IOSERVER/mod_interface_ioipsl.f90

    r40 r50  
    1414  END SUBROUTINE init_interface_ioipsl 
    1515 
    16  
     16  SUBROUTINE set_calendar(str_calendar) 
     17  USE ioipsl 
     18    CHARACTER(LEN=*) :: str_calendar 
     19     
     20    CALL ioconf_calendar(str_calendar) 
     21     
     22  END SUBROUTINE set_calendar 
     23   
     24   
    1725  SUBROUTINE set_time_parameters(ini_timestep0,zjulian0,timestep0) 
    1826  USE xmlio 
  • XMLIO_SERVER/trunk/src/IOSERVER/mod_iomanager.f90

    r48 r50  
    159159     
    160160  END SUBROUTINE iom__set_timestep 
     161 
     162  SUBROUTINE iom__set_calendar(str_calendar) 
     163  USE mod_interface_ioipsl 
     164  IMPLICIT NONE 
     165    CHARACTER(LEN=*) :: str_calendar 
     166     
     167    IF (current_rank==nb_client) CALL set_calendar(str_calendar) 
     168     
     169  END SUBROUTINE iom__set_calendar 
    161170 
    162171  SUBROUTINE iom__enable_field(varname) 
Note: See TracChangeset for help on using the changeset viewer.