Changeset 510 for XIOS/trunk/src/test
- Timestamp:
- 11/13/14 15:09:23 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
XIOS/trunk/src/test/test_xios_interface.f90
r501 r510 14 14 TYPE(xios_time) :: dtime 15 15 TYPE(xios_context) :: ctx_hdl 16 INTEGER,PARAMETER :: ni_glo=10 017 INTEGER,PARAMETER :: nj_glo=10 016 INTEGER,PARAMETER :: ni_glo=10 17 INTEGER,PARAMETER :: nj_glo=10 18 18 INTEGER,PARAMETER :: llm=5 19 19 DOUBLE PRECISION :: lval(llm)=1 … … 219 219 220 220 !!! Fin de la definition du contexte SRF 221 222 CALL xios_close_context_definition()223 224 225 221 !------------------------------------------------------------------------------- 226 222 ! … … 228 224 ! 229 225 !------------------------------------------------------------------------------- 230 231 !! Be sure in the correct context232 CALL xios_get_handle("surface",ctx_hdl)233 CALL xios_set_current_context(ctx_hdl)234 226 235 227 !! Try getting some variable values … … 299 291 print*, "New value of ", var_id, " is : ", var_val_bool 300 292 end if 293 ! 294 !!!! Fin de la definition du contexte SRF 295 CALL xios_close_context_definition() 301 296 302 297 !####################################################################################
Note: See TracChangeset
for help on using the changeset viewer.