Ignore:
Timestamp:
01/26/16 18:19:09 (8 years ago)
Author:
mhnguyen
Message:

Adding some attributes for axis and grid (ticket 71, 78)

+) Add index attribute for axis
+) Change mask?d to mask_?d for grid

Test
+) On Curie
+) Test passes

File:
1 edited

Legend:

Unmodified
Added
Removed

  • XIOS/trunk/src/interface/fortran_attr/igrid_attr.F90

    r791 r817  
    1212 
    1313  SUBROUTINE xios(set_grid_attr)  & 
    14     ( grid_id, description, mask1, mask2, mask3, name ) 
     14    ( grid_id, description, mask_1d, mask_2d, mask_3d, name ) 
    1515 
    1616    IMPLICIT NONE 
    … …  
    1818      CHARACTER(LEN=*), INTENT(IN) ::grid_id 
    1919      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description 
    20       LOGICAL  , OPTIONAL, INTENT(IN) :: mask1(:) 
    21       LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask1_tmp(:) 
    22       LOGICAL  , OPTIONAL, INTENT(IN) :: mask2(:,:) 
    23       LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask2_tmp(:,:) 
    24       LOGICAL  , OPTIONAL, INTENT(IN) :: mask3(:,:,:) 
    25       LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask3_tmp(:,:,:) 
     20      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_1d(:) 
     21      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:) 
     22      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_2d(:,:) 
     23      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:) 
     24      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_3d(:,:,:) 
     25      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_3d_tmp(:,:,:) 
    2626      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name 
    2727 
    2828      CALL xios(get_grid_handle)(grid_id,grid_hdl) 
    2929      CALL xios(set_grid_attr_hdl_)   & 
    30       ( grid_hdl, description, mask1, mask2, mask3, name ) 
     30      ( grid_hdl, description, mask_1d, mask_2d, mask_3d, name ) 
    3131 
    3232  END SUBROUTINE xios(set_grid_attr) 
    3333 
    3434  SUBROUTINE xios(set_grid_attr_hdl)  & 
    35     ( grid_hdl, description, mask1, mask2, mask3, name ) 
     35    ( grid_hdl, description, mask_1d, mask_2d, mask_3d, name ) 
    3636 
    3737    IMPLICIT NONE 
    3838      TYPE(txios(grid)) , INTENT(IN) :: grid_hdl 
    3939      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description 
    40       LOGICAL  , OPTIONAL, INTENT(IN) :: mask1(:) 
    41       LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask1_tmp(:) 
    42       LOGICAL  , OPTIONAL, INTENT(IN) :: mask2(:,:) 
    43       LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask2_tmp(:,:) 
    44       LOGICAL  , OPTIONAL, INTENT(IN) :: mask3(:,:,:) 
    45       LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask3_tmp(:,:,:) 
     40      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_1d(:) 
     41      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:) 
     42      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_2d(:,:) 
     43      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:) 
     44      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_3d(:,:,:) 
     45      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_3d_tmp(:,:,:) 
    4646      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name 
    4747 
    4848      CALL xios(set_grid_attr_hdl_)  & 
    49       ( grid_hdl, description, mask1, mask2, mask3, name ) 
     49      ( grid_hdl, description, mask_1d, mask_2d, mask_3d, name ) 
    5050 
    5151  END SUBROUTINE xios(set_grid_attr_hdl) 
    5252 
    5353  SUBROUTINE xios(set_grid_attr_hdl_)   & 
    54     ( grid_hdl, description_, mask1_, mask2_, mask3_, name_ ) 
     54    ( grid_hdl, description_, mask_1d_, mask_2d_, mask_3d_, name_ ) 
    5555 
    5656    IMPLICIT NONE 
    5757      TYPE(txios(grid)) , INTENT(IN) :: grid_hdl 
    5858      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: description_ 
    59       LOGICAL  , OPTIONAL, INTENT(IN) :: mask1_(:) 
    60       LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask1__tmp(:) 
    61       LOGICAL  , OPTIONAL, INTENT(IN) :: mask2_(:,:) 
    62       LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask2__tmp(:,:) 
    63       LOGICAL  , OPTIONAL, INTENT(IN) :: mask3_(:,:,:) 
    64       LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask3__tmp(:,:,:) 
     59      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_1d_(:) 
     60      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d__tmp(:) 
     61      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_2d_(:,:) 
     62      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d__tmp(:,:) 
     63      LOGICAL  , OPTIONAL, INTENT(IN) :: mask_3d_(:,:,:) 
     64      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_3d__tmp(:,:,:) 
    6565      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_ 
    6666 
    … …  
    6969      ENDIF 
    7070 
    71       IF (PRESENT(mask1_)) THEN 
    72         ALLOCATE(mask1__tmp(SIZE(mask1_,1))) 
    73         mask1__tmp = mask1_ 
    74         CALL cxios_set_grid_mask1(grid_hdl%daddr, mask1__tmp, SHAPE(mask1_)) 
    75       ENDIF 
    76  
    77       IF (PRESENT(mask2_)) THEN 
    78         ALLOCATE(mask2__tmp(SIZE(mask2_,1), SIZE(mask2_,2))) 
    79         mask2__tmp = mask2_ 
    80         CALL cxios_set_grid_mask2(grid_hdl%daddr, mask2__tmp, SHAPE(mask2_)) 
    81       ENDIF 
    82  
    83       IF (PRESENT(mask3_)) THEN 
    84         ALLOCATE(mask3__tmp(SIZE(mask3_,1), SIZE(mask3_,2), SIZE(mask3_,3))) 
    85         mask3__tmp = mask3_ 
    86         CALL cxios_set_grid_mask3(grid_hdl%daddr, mask3__tmp, SHAPE(mask3_)) 
     71      IF (PRESENT(mask_1d_)) THEN 
     72        ALLOCATE(mask_1d__tmp(SIZE(mask_1d_,1))) 
     73        mask_1d__tmp = mask_1d_ 
     74        CALL cxios_set_grid_mask_1d(grid_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_)) 
     75      ENDIF 
     76 
     77      IF (PRESENT(mask_2d_)) THEN 
     78        ALLOCATE(mask_2d__tmp(SIZE(mask_2d_,1), SIZE(mask_2d_,2))) 
     79        mask_2d__tmp = mask_2d_ 
     80        CALL cxios_set_grid_mask_2d(grid_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_)) 
     81      ENDIF 
     82 
     83      IF (PRESENT(mask_3d_)) THEN 
     84        ALLOCATE(mask_3d__tmp(SIZE(mask_3d_,1), SIZE(mask_3d_,2), SIZE(mask_3d_,3))) 
     85        mask_3d__tmp = mask_3d_ 
     86        CALL cxios_set_grid_mask_3d(grid_hdl%daddr, mask_3d__tmp, SHAPE(mask_3d_)) 
    8787      ENDIF 
    8888 
    … …  
    9494 
    9595  SUBROUTINE xios(get_grid_attr)  & 
    96     ( grid_id, description, mask1, mask2, mask3, name ) 
     96    ( grid_id, description, mask_1d, mask_2d, mask_3d, name ) 
    9797 
    9898    IMPLICIT NONE 
    … …  
    100100      CHARACTER(LEN=*), INTENT(IN) ::grid_id 
    101101      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description 
    102       LOGICAL  , OPTIONAL, INTENT(OUT) :: mask1(:) 
    103       LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask1_tmp(:) 
    104       LOGICAL  , OPTIONAL, INTENT(OUT) :: mask2(:,:) 
    105       LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask2_tmp(:,:) 
    106       LOGICAL  , OPTIONAL, INTENT(OUT) :: mask3(:,:,:) 
    107       LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask3_tmp(:,:,:) 
     102      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_1d(:) 
     103      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:) 
     104      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_2d(:,:) 
     105      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:) 
     106      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_3d(:,:,:) 
     107      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_3d_tmp(:,:,:) 
    108108      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name 
    109109 
    110110      CALL xios(get_grid_handle)(grid_id,grid_hdl) 
    111111      CALL xios(get_grid_attr_hdl_)   & 
    112       ( grid_hdl, description, mask1, mask2, mask3, name ) 
     112      ( grid_hdl, description, mask_1d, mask_2d, mask_3d, name ) 
    113113 
    114114  END SUBROUTINE xios(get_grid_attr) 
    115115 
    116116  SUBROUTINE xios(get_grid_attr_hdl)  & 
    117     ( grid_hdl, description, mask1, mask2, mask3, name ) 
     117    ( grid_hdl, description, mask_1d, mask_2d, mask_3d, name ) 
    118118 
    119119    IMPLICIT NONE 
    120120      TYPE(txios(grid)) , INTENT(IN) :: grid_hdl 
    121121      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description 
    122       LOGICAL  , OPTIONAL, INTENT(OUT) :: mask1(:) 
    123       LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask1_tmp(:) 
    124       LOGICAL  , OPTIONAL, INTENT(OUT) :: mask2(:,:) 
    125       LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask2_tmp(:,:) 
    126       LOGICAL  , OPTIONAL, INTENT(OUT) :: mask3(:,:,:) 
    127       LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask3_tmp(:,:,:) 
     122      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_1d(:) 
     123      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d_tmp(:) 
     124      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_2d(:,:) 
     125      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d_tmp(:,:) 
     126      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_3d(:,:,:) 
     127      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_3d_tmp(:,:,:) 
    128128      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name 
    129129 
    130130      CALL xios(get_grid_attr_hdl_)  & 
    131       ( grid_hdl, description, mask1, mask2, mask3, name ) 
     131      ( grid_hdl, description, mask_1d, mask_2d, mask_3d, name ) 
    132132 
    133133  END SUBROUTINE xios(get_grid_attr_hdl) 
    134134 
    135135  SUBROUTINE xios(get_grid_attr_hdl_)   & 
    136     ( grid_hdl, description_, mask1_, mask2_, mask3_, name_ ) 
     136    ( grid_hdl, description_, mask_1d_, mask_2d_, mask_3d_, name_ ) 
    137137 
    138138    IMPLICIT NONE 
    139139      TYPE(txios(grid)) , INTENT(IN) :: grid_hdl 
    140140      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: description_ 
    141       LOGICAL  , OPTIONAL, INTENT(OUT) :: mask1_(:) 
    142       LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask1__tmp(:) 
    143       LOGICAL  , OPTIONAL, INTENT(OUT) :: mask2_(:,:) 
    144       LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask2__tmp(:,:) 
    145       LOGICAL  , OPTIONAL, INTENT(OUT) :: mask3_(:,:,:) 
    146       LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask3__tmp(:,:,:) 
     141      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_1d_(:) 
     142      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_1d__tmp(:) 
     143      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_2d_(:,:) 
     144      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_2d__tmp(:,:) 
     145      LOGICAL  , OPTIONAL, INTENT(OUT) :: mask_3d_(:,:,:) 
     146      LOGICAL (KIND=C_BOOL) , ALLOCATABLE :: mask_3d__tmp(:,:,:) 
    147147      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_ 
    148148 
    … …  
    151151      ENDIF 
    152152 
    153       IF (PRESENT(mask1_)) THEN 
    154         ALLOCATE(mask1__tmp(SIZE(mask1_,1))) 
    155         CALL cxios_get_grid_mask1(grid_hdl%daddr, mask1__tmp, SHAPE(mask1_)) 
    156         mask1_ = mask1__tmp 
    157       ENDIF 
    158  
    159       IF (PRESENT(mask2_)) THEN 
    160         ALLOCATE(mask2__tmp(SIZE(mask2_,1), SIZE(mask2_,2))) 
    161         CALL cxios_get_grid_mask2(grid_hdl%daddr, mask2__tmp, SHAPE(mask2_)) 
    162         mask2_ = mask2__tmp 
    163       ENDIF 
    164  
    165       IF (PRESENT(mask3_)) THEN 
    166         ALLOCATE(mask3__tmp(SIZE(mask3_,1), SIZE(mask3_,2), SIZE(mask3_,3))) 
    167         CALL cxios_get_grid_mask3(grid_hdl%daddr, mask3__tmp, SHAPE(mask3_)) 
    168         mask3_ = mask3__tmp 
     153      IF (PRESENT(mask_1d_)) THEN 
     154        ALLOCATE(mask_1d__tmp(SIZE(mask_1d_,1))) 
     155        CALL cxios_get_grid_mask_1d(grid_hdl%daddr, mask_1d__tmp, SHAPE(mask_1d_)) 
     156        mask_1d_ = mask_1d__tmp 
     157      ENDIF 
     158 
     159      IF (PRESENT(mask_2d_)) THEN 
     160        ALLOCATE(mask_2d__tmp(SIZE(mask_2d_,1), SIZE(mask_2d_,2))) 
     161        CALL cxios_get_grid_mask_2d(grid_hdl%daddr, mask_2d__tmp, SHAPE(mask_2d_)) 
     162        mask_2d_ = mask_2d__tmp 
     163      ENDIF 
     164 
     165      IF (PRESENT(mask_3d_)) THEN 
     166        ALLOCATE(mask_3d__tmp(SIZE(mask_3d_,1), SIZE(mask_3d_,2), SIZE(mask_3d_,3))) 
     167        CALL cxios_get_grid_mask_3d(grid_hdl%daddr, mask_3d__tmp, SHAPE(mask_3d_)) 
     168        mask_3d_ = mask_3d__tmp 
    169169      ENDIF 
    170170 
    … …  
    176176 
    177177  SUBROUTINE xios(is_defined_grid_attr)  & 
    178     ( grid_id, description, mask1, mask2, mask3, name ) 
     178    ( grid_id, description, mask_1d, mask_2d, mask_3d, name ) 
    179179 
    180180    IMPLICIT NONE 
    … …  
    183183      LOGICAL, OPTIONAL, INTENT(OUT) :: description 
    184184      LOGICAL(KIND=C_BOOL) :: description_tmp 
    185       LOGICAL, OPTIONAL, INTENT(OUT) :: mask1 
    186       LOGICAL(KIND=C_BOOL) :: mask1_tmp 
    187       LOGICAL, OPTIONAL, INTENT(OUT) :: mask2 
    188       LOGICAL(KIND=C_BOOL) :: mask2_tmp 
    189       LOGICAL, OPTIONAL, INTENT(OUT) :: mask3 
    190       LOGICAL(KIND=C_BOOL) :: mask3_tmp 
     185      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d 
     186      LOGICAL(KIND=C_BOOL) :: mask_1d_tmp 
     187      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d 
     188      LOGICAL(KIND=C_BOOL) :: mask_2d_tmp 
     189      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_3d 
     190      LOGICAL(KIND=C_BOOL) :: mask_3d_tmp 
    191191      LOGICAL, OPTIONAL, INTENT(OUT) :: name 
    192192      LOGICAL(KIND=C_BOOL) :: name_tmp 
    … …  
    194194      CALL xios(get_grid_handle)(grid_id,grid_hdl) 
    195195      CALL xios(is_defined_grid_attr_hdl_)   & 
    196       ( grid_hdl, description, mask1, mask2, mask3, name ) 
     196      ( grid_hdl, description, mask_1d, mask_2d, mask_3d, name ) 
    197197 
    198198  END SUBROUTINE xios(is_defined_grid_attr) 
    199199 
    200200  SUBROUTINE xios(is_defined_grid_attr_hdl)  & 
    201     ( grid_hdl, description, mask1, mask2, mask3, name ) 
     201    ( grid_hdl, description, mask_1d, mask_2d, mask_3d, name ) 
    202202 
    203203    IMPLICIT NONE 
    … …  
    205205      LOGICAL, OPTIONAL, INTENT(OUT) :: description 
    206206      LOGICAL(KIND=C_BOOL) :: description_tmp 
    207       LOGICAL, OPTIONAL, INTENT(OUT) :: mask1 
    208       LOGICAL(KIND=C_BOOL) :: mask1_tmp 
    209       LOGICAL, OPTIONAL, INTENT(OUT) :: mask2 
    210       LOGICAL(KIND=C_BOOL) :: mask2_tmp 
    211       LOGICAL, OPTIONAL, INTENT(OUT) :: mask3 
    212       LOGICAL(KIND=C_BOOL) :: mask3_tmp 
     207      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d 
     208      LOGICAL(KIND=C_BOOL) :: mask_1d_tmp 
     209      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d 
     210      LOGICAL(KIND=C_BOOL) :: mask_2d_tmp 
     211      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_3d 
     212      LOGICAL(KIND=C_BOOL) :: mask_3d_tmp 
    213213      LOGICAL, OPTIONAL, INTENT(OUT) :: name 
    214214      LOGICAL(KIND=C_BOOL) :: name_tmp 
    215215 
    216216      CALL xios(is_defined_grid_attr_hdl_)  & 
    217       ( grid_hdl, description, mask1, mask2, mask3, name ) 
     217      ( grid_hdl, description, mask_1d, mask_2d, mask_3d, name ) 
    218218 
    219219  END SUBROUTINE xios(is_defined_grid_attr_hdl) 
    220220 
    221221  SUBROUTINE xios(is_defined_grid_attr_hdl_)   & 
    222     ( grid_hdl, description_, mask1_, mask2_, mask3_, name_ ) 
     222    ( grid_hdl, description_, mask_1d_, mask_2d_, mask_3d_, name_ ) 
    223223 
    224224    IMPLICIT NONE 
    … …  
    226226      LOGICAL, OPTIONAL, INTENT(OUT) :: description_ 
    227227      LOGICAL(KIND=C_BOOL) :: description__tmp 
    228       LOGICAL, OPTIONAL, INTENT(OUT) :: mask1_ 
    229       LOGICAL(KIND=C_BOOL) :: mask1__tmp 
    230       LOGICAL, OPTIONAL, INTENT(OUT) :: mask2_ 
    231       LOGICAL(KIND=C_BOOL) :: mask2__tmp 
    232       LOGICAL, OPTIONAL, INTENT(OUT) :: mask3_ 
    233       LOGICAL(KIND=C_BOOL) :: mask3__tmp 
     228      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_1d_ 
     229      LOGICAL(KIND=C_BOOL) :: mask_1d__tmp 
     230      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_2d_ 
     231      LOGICAL(KIND=C_BOOL) :: mask_2d__tmp 
     232      LOGICAL, OPTIONAL, INTENT(OUT) :: mask_3d_ 
     233      LOGICAL(KIND=C_BOOL) :: mask_3d__tmp 
    234234      LOGICAL, OPTIONAL, INTENT(OUT) :: name_ 
    235235      LOGICAL(KIND=C_BOOL) :: name__tmp 
    … …  
    240240      ENDIF 
    241241 
    242       IF (PRESENT(mask1_)) THEN 
    243         mask1__tmp = cxios_is_defined_grid_mask1(grid_hdl%daddr) 
    244         mask1_ = mask1__tmp 
    245       ENDIF 
    246  
    247       IF (PRESENT(mask2_)) THEN 
    248         mask2__tmp = cxios_is_defined_grid_mask2(grid_hdl%daddr) 
    249         mask2_ = mask2__tmp 
    250       ENDIF 
    251  
    252       IF (PRESENT(mask3_)) THEN 
    253         mask3__tmp = cxios_is_defined_grid_mask3(grid_hdl%daddr) 
    254         mask3_ = mask3__tmp 
     242      IF (PRESENT(mask_1d_)) THEN 
     243        mask_1d__tmp = cxios_is_defined_grid_mask_1d(grid_hdl%daddr) 
     244        mask_1d_ = mask_1d__tmp 
     245      ENDIF 
     246 
     247      IF (PRESENT(mask_2d_)) THEN 
     248        mask_2d__tmp = cxios_is_defined_grid_mask_2d(grid_hdl%daddr) 
     249        mask_2d_ = mask_2d__tmp 
     250      ENDIF 
     251 
     252      IF (PRESENT(mask_3d_)) THEN 
     253        mask_3d__tmp = cxios_is_defined_grid_mask_3d(grid_hdl%daddr) 
     254        mask_3d_ = mask_3d__tmp 
    255255      ENDIF 
    256256 
Note: See TracChangeset for help on using the changeset viewer.