Changeset 50 for XMLIO_SERVER/trunk/src
- Timestamp:
- 11/12/09 14:35:37 (15 years ago)
- Location:
- XMLIO_SERVER/trunk/src/IOSERVER
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
XMLIO_SERVER/trunk/src/IOSERVER/mod_event_client.f90
r40 r50 165 165 166 166 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 167 184 SUBROUTINE event__enable_field(varname) 168 185 USE iomanager -
XMLIO_SERVER/trunk/src/IOSERVER/mod_event_parameters.f90
r40 r50 17 17 INTEGER, PARAMETER :: event_id_write_field1d = 115 18 18 INTEGER, PARAMETER :: event_id_set_attribut = 116 19 INTEGER, PARAMETER :: event_id_set_calendar = 117 19 20 INTEGER, PARAMETER :: event_id_stop_ioserver = 999 20 21 END MODULE mod_event_parameters -
XMLIO_SERVER/trunk/src/IOSERVER/mod_event_server.f90
r40 r50 50 50 CALL event__set_timestep 51 51 52 CASE (event_id_set_calendar) 53 CALL event__set_calendar 54 52 55 CASE (event_id_enable_field) 53 56 CALL event__enable_field … … 71 74 is_terminated=.TRUE. 72 75 PRINT *,"TERMINATE_EVENT RECEIVED" 76 73 77 74 78 CASE DEFAULT … … 410 414 END SUBROUTINE event__set_timestep 411 415 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 412 437 413 438 SUBROUTINE event__close_io_definition -
XMLIO_SERVER/trunk/src/IOSERVER/mod_interface_ioipsl.f90
r40 r50 14 14 END SUBROUTINE init_interface_ioipsl 15 15 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 17 25 SUBROUTINE set_time_parameters(ini_timestep0,zjulian0,timestep0) 18 26 USE xmlio -
XMLIO_SERVER/trunk/src/IOSERVER/mod_iomanager.f90
r48 r50 159 159 160 160 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 161 170 162 171 SUBROUTINE iom__enable_field(varname)
Note: See TracChangeset
for help on using the changeset viewer.