Changeset 947


Ignore:
Timestamp:
09/22/16 16:19:20 (8 years ago)
Author:
oabramkina
Message:

Setting context by id added (xios_set_current_context(id)).

File:
1 edited

Legend:

Unmodified
Added
Removed
  • XIOS/trunk/src/interface/fortran/icontext.F90

    r545 r947  
    1313   END TYPE txios(context) 
    1414 
     15   INTERFACE xios(set_current_context) 
     16      MODULE PROCEDURE xios(set_current_context_hdl), xios(set_current_context_id) 
     17   END INTERFACE xios(set_current_context) 
    1518 
    1619   CONTAINS ! Fonctions disponibles pour les utilisateurs. 
     
    3336   END SUBROUTINE xios(get_current_context) 
    3437 
    35    SUBROUTINE xios(set_current_context)(context, withswap) 
     38   SUBROUTINE xios(set_current_context_hdl)(context, withswap) 
    3639      IMPLICIT NONE 
    3740 
     
    4750      CALL cxios_context_set_current(context%daddr, wswap) 
    4851 
    49    END SUBROUTINE xios(set_current_context) 
     52   END SUBROUTINE xios(set_current_context_hdl) 
     53 
     54   SUBROUTINE xios(set_current_context_id)(idt) 
     55      IMPLICIT NONE 
     56 
     57      CHARACTER(len = *) , INTENT(IN) :: idt 
     58      LOGICAL           :: withswap 
     59      TYPE(xios_context):: ret 
     60 
     61      CALL xios(get_context_handle)(idt,ret) 
     62      CALL xios(set_current_context_hdl)(ret, withswap) 
     63    END SUBROUTINE xios(set_current_context_id) 
    5064 
    5165   LOGICAL FUNCTION xios(is_valid_context)(idt) 
Note: See TracChangeset for help on using the changeset viewer.