Ignore:
Timestamp:
01/25/17 16:25:17 (7 years ago)
Author:
yushan
Message:

initialize the branch

File:
1 edited

Legend:

Unmodified
Added
Removed

  • XIOS/dev/branch_yushan/src/interface/fortran_attr/iinterpolate_domain_attr.F90

    r1005 r1037  
    1212 
    1313  SUBROUTINE xios(set_interpolate_domain_attr)  & 
    14     ( interpolate_domain_id, file, mode, order, renormalize, weight_filename, write_weight ) 
     14    ( interpolate_domain_id, file, order, renormalize ) 
    1515 
    1616    IMPLICIT NONE 
    … …  
    1818      CHARACTER(LEN=*), INTENT(IN) ::interpolate_domain_id 
    1919      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: file 
    20       CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode 
    2120      INTEGER  , OPTIONAL, INTENT(IN) :: order 
    2221      LOGICAL  , OPTIONAL, INTENT(IN) :: renormalize 
    2322      LOGICAL (KIND=C_BOOL) :: renormalize_tmp 
    24       CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: weight_filename 
    25       LOGICAL  , OPTIONAL, INTENT(IN) :: write_weight 
    26       LOGICAL (KIND=C_BOOL) :: write_weight_tmp 
    2723 
    2824      CALL xios(get_interpolate_domain_handle) & 
    2925      (interpolate_domain_id,interpolate_domain_hdl) 
    3026      CALL xios(set_interpolate_domain_attr_hdl_)   & 
    31       ( interpolate_domain_hdl, file, mode, order, renormalize, weight_filename, write_weight ) 
     27      ( interpolate_domain_hdl, file, order, renormalize ) 
    3228 
    3329  END SUBROUTINE xios(set_interpolate_domain_attr) 
    3430 
    3531  SUBROUTINE xios(set_interpolate_domain_attr_hdl)  & 
    36     ( interpolate_domain_hdl, file, mode, order, renormalize, weight_filename, write_weight ) 
     32    ( interpolate_domain_hdl, file, order, renormalize ) 
    3733 
    3834    IMPLICIT NONE 
    3935      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl 
    4036      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: file 
    41       CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode 
    4237      INTEGER  , OPTIONAL, INTENT(IN) :: order 
    4338      LOGICAL  , OPTIONAL, INTENT(IN) :: renormalize 
    4439      LOGICAL (KIND=C_BOOL) :: renormalize_tmp 
    45       CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: weight_filename 
    46       LOGICAL  , OPTIONAL, INTENT(IN) :: write_weight 
    47       LOGICAL (KIND=C_BOOL) :: write_weight_tmp 
    4840 
    4941      CALL xios(set_interpolate_domain_attr_hdl_)  & 
    50       ( interpolate_domain_hdl, file, mode, order, renormalize, weight_filename, write_weight ) 
     42      ( interpolate_domain_hdl, file, order, renormalize ) 
    5143 
    5244  END SUBROUTINE xios(set_interpolate_domain_attr_hdl) 
    5345 
    5446  SUBROUTINE xios(set_interpolate_domain_attr_hdl_)   & 
    55     ( interpolate_domain_hdl, file_, mode_, order_, renormalize_, weight_filename_, write_weight_  & 
    56      ) 
     47    ( interpolate_domain_hdl, file_, order_, renormalize_ ) 
    5748 
    5849    IMPLICIT NONE 
    5950      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl 
    6051      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: file_ 
    61       CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: mode_ 
    6252      INTEGER  , OPTIONAL, INTENT(IN) :: order_ 
    6353      LOGICAL  , OPTIONAL, INTENT(IN) :: renormalize_ 
    6454      LOGICAL (KIND=C_BOOL) :: renormalize__tmp 
    65       CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: weight_filename_ 
    66       LOGICAL  , OPTIONAL, INTENT(IN) :: write_weight_ 
    67       LOGICAL (KIND=C_BOOL) :: write_weight__tmp 
    6855 
    6956      IF (PRESENT(file_)) THEN 
    7057        CALL cxios_set_interpolate_domain_file & 
    7158      (interpolate_domain_hdl%daddr, file_, len(file_)) 
    72       ENDIF 
    73  
    74       IF (PRESENT(mode_)) THEN 
    75         CALL cxios_set_interpolate_domain_mode & 
    76       (interpolate_domain_hdl%daddr, mode_, len(mode_)) 
    7759      ENDIF 
    7860 
    … …  
    8870      ENDIF 
    8971 
    90       IF (PRESENT(weight_filename_)) THEN 
    91         CALL cxios_set_interpolate_domain_weight_filename & 
    92       (interpolate_domain_hdl%daddr, weight_filename_, len(weight_filename_)) 
    93       ENDIF 
    94  
    95       IF (PRESENT(write_weight_)) THEN 
    96         write_weight__tmp = write_weight_ 
    97         CALL cxios_set_interpolate_domain_write_weight & 
    98       (interpolate_domain_hdl%daddr, write_weight__tmp) 
    99       ENDIF 
    100  
    10172  END SUBROUTINE xios(set_interpolate_domain_attr_hdl_) 
    10273 
    10374  SUBROUTINE xios(get_interpolate_domain_attr)  & 
    104     ( interpolate_domain_id, file, mode, order, renormalize, weight_filename, write_weight ) 
     75    ( interpolate_domain_id, file, order, renormalize ) 
    10576 
    10677    IMPLICIT NONE 
    … …  
    10879      CHARACTER(LEN=*), INTENT(IN) ::interpolate_domain_id 
    10980      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: file 
    110       CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode 
    11181      INTEGER  , OPTIONAL, INTENT(OUT) :: order 
    11282      LOGICAL  , OPTIONAL, INTENT(OUT) :: renormalize 
    11383      LOGICAL (KIND=C_BOOL) :: renormalize_tmp 
    114       CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: weight_filename 
    115       LOGICAL  , OPTIONAL, INTENT(OUT) :: write_weight 
    116       LOGICAL (KIND=C_BOOL) :: write_weight_tmp 
    11784 
    11885      CALL xios(get_interpolate_domain_handle) & 
    11986      (interpolate_domain_id,interpolate_domain_hdl) 
    12087      CALL xios(get_interpolate_domain_attr_hdl_)   & 
    121       ( interpolate_domain_hdl, file, mode, order, renormalize, weight_filename, write_weight ) 
     88      ( interpolate_domain_hdl, file, order, renormalize ) 
    12289 
    12390  END SUBROUTINE xios(get_interpolate_domain_attr) 
    12491 
    12592  SUBROUTINE xios(get_interpolate_domain_attr_hdl)  & 
    126     ( interpolate_domain_hdl, file, mode, order, renormalize, weight_filename, write_weight ) 
     93    ( interpolate_domain_hdl, file, order, renormalize ) 
    12794 
    12895    IMPLICIT NONE 
    12996      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl 
    13097      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: file 
    131       CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode 
    13298      INTEGER  , OPTIONAL, INTENT(OUT) :: order 
    13399      LOGICAL  , OPTIONAL, INTENT(OUT) :: renormalize 
    134100      LOGICAL (KIND=C_BOOL) :: renormalize_tmp 
    135       CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: weight_filename 
    136       LOGICAL  , OPTIONAL, INTENT(OUT) :: write_weight 
    137       LOGICAL (KIND=C_BOOL) :: write_weight_tmp 
    138101 
    139102      CALL xios(get_interpolate_domain_attr_hdl_)  & 
    140       ( interpolate_domain_hdl, file, mode, order, renormalize, weight_filename, write_weight ) 
     103      ( interpolate_domain_hdl, file, order, renormalize ) 
    141104 
    142105  END SUBROUTINE xios(get_interpolate_domain_attr_hdl) 
    143106 
    144107  SUBROUTINE xios(get_interpolate_domain_attr_hdl_)   & 
    145     ( interpolate_domain_hdl, file_, mode_, order_, renormalize_, weight_filename_, write_weight_  & 
    146      ) 
     108    ( interpolate_domain_hdl, file_, order_, renormalize_ ) 
    147109 
    148110    IMPLICIT NONE 
    149111      TYPE(txios(interpolate_domain)) , INTENT(IN) :: interpolate_domain_hdl 
    150112      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: file_ 
    151       CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: mode_ 
    152113      INTEGER  , OPTIONAL, INTENT(OUT) :: order_ 
    153114      LOGICAL  , OPTIONAL, INTENT(OUT) :: renormalize_ 
    154115      LOGICAL (KIND=C_BOOL) :: renormalize__tmp 
    155       CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: weight_filename_ 
    156       LOGICAL  , OPTIONAL, INTENT(OUT) :: write_weight_ 
    157       LOGICAL (KIND=C_BOOL) :: write_weight__tmp 
    158116 
    159117      IF (PRESENT(file_)) THEN 
    160118        CALL cxios_get_interpolate_domain_file & 
    161119      (interpolate_domain_hdl%daddr, file_, len(file_)) 
    162       ENDIF 
    163  
    164       IF (PRESENT(mode_)) THEN 
    165         CALL cxios_get_interpolate_domain_mode & 
    166       (interpolate_domain_hdl%daddr, mode_, len(mode_)) 
    167120      ENDIF 
    168121 
    … …  
    178131      ENDIF 
    179132 
    180       IF (PRESENT(weight_filename_)) THEN 
    181         CALL cxios_get_interpolate_domain_weight_filename & 
    182       (interpolate_domain_hdl%daddr, weight_filename_, len(weight_filename_)) 
    183       ENDIF 
    184  
    185       IF (PRESENT(write_weight_)) THEN 
    186         CALL cxios_get_interpolate_domain_write_weight & 
    187       (interpolate_domain_hdl%daddr, write_weight__tmp) 
    188         write_weight_ = write_weight__tmp 
    189       ENDIF 
    190  
    191133  END SUBROUTINE xios(get_interpolate_domain_attr_hdl_) 
    192134 
    193135  SUBROUTINE xios(is_defined_interpolate_domain_attr)  & 
    194     ( interpolate_domain_id, file, mode, order, renormalize, weight_filename, write_weight ) 
     136    ( interpolate_domain_id, file, order, renormalize ) 
    195137 
    196138    IMPLICIT NONE 
    … …  
    199141      LOGICAL, OPTIONAL, INTENT(OUT) :: file 
    200142      LOGICAL(KIND=C_BOOL) :: file_tmp 
    201       LOGICAL, OPTIONAL, INTENT(OUT) :: mode 
    202       LOGICAL(KIND=C_BOOL) :: mode_tmp 
    203143      LOGICAL, OPTIONAL, INTENT(OUT) :: order 
    204144      LOGICAL(KIND=C_BOOL) :: order_tmp 
    205145      LOGICAL, OPTIONAL, INTENT(OUT) :: renormalize 
    206146      LOGICAL(KIND=C_BOOL) :: renormalize_tmp 
    207       LOGICAL, OPTIONAL, INTENT(OUT) :: weight_filename 
    208       LOGICAL(KIND=C_BOOL) :: weight_filename_tmp 
    209       LOGICAL, OPTIONAL, INTENT(OUT) :: write_weight 
    210       LOGICAL(KIND=C_BOOL) :: write_weight_tmp 
    211147 
    212148      CALL xios(get_interpolate_domain_handle) & 
    213149      (interpolate_domain_id,interpolate_domain_hdl) 
    214150      CALL xios(is_defined_interpolate_domain_attr_hdl_)   & 
    215       ( interpolate_domain_hdl, file, mode, order, renormalize, weight_filename, write_weight ) 
     151      ( interpolate_domain_hdl, file, order, renormalize ) 
    216152 
    217153  END SUBROUTINE xios(is_defined_interpolate_domain_attr) 
    218154 
    219155  SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl)  & 
    220     ( interpolate_domain_hdl, file, mode, order, renormalize, weight_filename, write_weight ) 
     156    ( interpolate_domain_hdl, file, order, renormalize ) 
    221157 
    222158    IMPLICIT NONE 
    … …  
    224160      LOGICAL, OPTIONAL, INTENT(OUT) :: file 
    225161      LOGICAL(KIND=C_BOOL) :: file_tmp 
    226       LOGICAL, OPTIONAL, INTENT(OUT) :: mode 
    227       LOGICAL(KIND=C_BOOL) :: mode_tmp 
    228162      LOGICAL, OPTIONAL, INTENT(OUT) :: order 
    229163      LOGICAL(KIND=C_BOOL) :: order_tmp 
    230164      LOGICAL, OPTIONAL, INTENT(OUT) :: renormalize 
    231165      LOGICAL(KIND=C_BOOL) :: renormalize_tmp 
    232       LOGICAL, OPTIONAL, INTENT(OUT) :: weight_filename 
    233       LOGICAL(KIND=C_BOOL) :: weight_filename_tmp 
    234       LOGICAL, OPTIONAL, INTENT(OUT) :: write_weight 
    235       LOGICAL(KIND=C_BOOL) :: write_weight_tmp 
    236166 
    237167      CALL xios(is_defined_interpolate_domain_attr_hdl_)  & 
    238       ( interpolate_domain_hdl, file, mode, order, renormalize, weight_filename, write_weight ) 
     168      ( interpolate_domain_hdl, file, order, renormalize ) 
    239169 
    240170  END SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl) 
    241171 
    242172  SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl_)   & 
    243     ( interpolate_domain_hdl, file_, mode_, order_, renormalize_, weight_filename_, write_weight_  & 
    244      ) 
     173    ( interpolate_domain_hdl, file_, order_, renormalize_ ) 
    245174 
    246175    IMPLICIT NONE 
    … …  
    248177      LOGICAL, OPTIONAL, INTENT(OUT) :: file_ 
    249178      LOGICAL(KIND=C_BOOL) :: file__tmp 
    250       LOGICAL, OPTIONAL, INTENT(OUT) :: mode_ 
    251       LOGICAL(KIND=C_BOOL) :: mode__tmp 
    252179      LOGICAL, OPTIONAL, INTENT(OUT) :: order_ 
    253180      LOGICAL(KIND=C_BOOL) :: order__tmp 
    254181      LOGICAL, OPTIONAL, INTENT(OUT) :: renormalize_ 
    255182      LOGICAL(KIND=C_BOOL) :: renormalize__tmp 
    256       LOGICAL, OPTIONAL, INTENT(OUT) :: weight_filename_ 
    257       LOGICAL(KIND=C_BOOL) :: weight_filename__tmp 
    258       LOGICAL, OPTIONAL, INTENT(OUT) :: write_weight_ 
    259       LOGICAL(KIND=C_BOOL) :: write_weight__tmp 
    260183 
    261184      IF (PRESENT(file_)) THEN 
    … …  
    265188      ENDIF 
    266189 
    267       IF (PRESENT(mode_)) THEN 
    268         mode__tmp = cxios_is_defined_interpolate_domain_mode & 
    269       (interpolate_domain_hdl%daddr) 
    270         mode_ = mode__tmp 
    271       ENDIF 
    272  
    273190      IF (PRESENT(order_)) THEN 
    274191        order__tmp = cxios_is_defined_interpolate_domain_order & 
    … …  
    283200      ENDIF 
    284201 
    285       IF (PRESENT(weight_filename_)) THEN 
    286         weight_filename__tmp = cxios_is_defined_interpolate_domain_weight_filename & 
    287       (interpolate_domain_hdl%daddr) 
    288         weight_filename_ = weight_filename__tmp 
    289       ENDIF 
    290  
    291       IF (PRESENT(write_weight_)) THEN 
    292         write_weight__tmp = cxios_is_defined_interpolate_domain_write_weight & 
    293       (interpolate_domain_hdl%daddr) 
    294         write_weight_ = write_weight__tmp 
    295       ENDIF 
    296  
    297202  END SUBROUTINE xios(is_defined_interpolate_domain_attr_hdl_) 
    298203 
Note: See TracChangeset for help on using the changeset viewer.