Ignore:
Timestamp:
01/20/13 23:14:35 (11 years ago)
Author:
ymipsl
Message:

Add grid mask attribute

YM

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r369 r415  
    1212   
    1313  SUBROUTINE xios(set_file_attr)  & 
    14     ( file_id, description, enabled, name, name_suffix, output_freq, output_level, par_access, split_freq  & 
    15     , sync_freq, type ) 
     14    ( file_id, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access  & 
     15    , split_freq, sync_freq, type ) 
    1616     
    1717    IMPLICIT NONE 
    … …  
    2121      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled 
    2222      LOGICAL (KIND=C_BOOL) :: enabled_tmp 
     23      INTEGER  , OPTIONAL, INTENT(IN) :: min_digits 
    2324      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name 
    2425      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix 
    … …  
    3233      CALL xios(get_file_handle)(file_id,file_hdl) 
    3334      CALL xios(set_file_attr_hdl_)   & 
    34       ( file_hdl, description, enabled, name, name_suffix, output_freq, output_level, par_access, split_freq  & 
    35       , sync_freq, type ) 
     35      ( file_hdl, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access  & 
     36      , split_freq, sync_freq, type ) 
    3637     
    3738  END SUBROUTINE xios(set_file_attr) 
    3839   
    3940  SUBROUTINE xios(set_file_attr_hdl)  & 
    40     ( file_hdl, description, enabled, name, name_suffix, output_freq, output_level, par_access, split_freq  & 
    41     , sync_freq, type ) 
     41    ( file_hdl, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access  & 
     42    , split_freq, sync_freq, type ) 
    4243     
    4344    IMPLICIT NONE 
    … …  
    4647      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled 
    4748      LOGICAL (KIND=C_BOOL) :: enabled_tmp 
     49      INTEGER  , OPTIONAL, INTENT(IN) :: min_digits 
    4850      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name 
    4951      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix 
    … …  
    5658       
    5759      CALL xios(set_file_attr_hdl_)  & 
    58       ( file_hdl, description, enabled, name, name_suffix, output_freq, output_level, par_access, split_freq  & 
    59       , sync_freq, type ) 
     60      ( file_hdl, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access  & 
     61      , split_freq, sync_freq, type ) 
    6062     
    6163  END SUBROUTINE xios(set_file_attr_hdl) 
    6264   
    6365  SUBROUTINE xios(set_file_attr_hdl_)   & 
    64     ( file_hdl, description_, enabled_, name_, name_suffix_, output_freq_, output_level_, par_access_  & 
    65     , split_freq_, sync_freq_, type_ ) 
     66    ( file_hdl, description_, enabled_, min_digits_, name_, name_suffix_, output_freq_, output_level_  & 
     67    , par_access_, split_freq_, sync_freq_, type_ ) 
    6668     
    6769    IMPLICIT NONE 
    … …  
    7072      LOGICAL  , OPTIONAL, INTENT(IN) :: enabled_ 
    7173      LOGICAL (KIND=C_BOOL) :: enabled__tmp 
     74      INTEGER  , OPTIONAL, INTENT(IN) :: min_digits_ 
    7275      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_ 
    7376      CHARACTER(len = *) , OPTIONAL, INTENT(IN) :: name_suffix_ 
    … …  
    8891      ENDIF 
    8992       
     93      IF (PRESENT(min_digits_)) THEN 
     94        CALL cxios_set_file_min_digits(file_hdl%daddr, min_digits_) 
     95      ENDIF 
     96       
    9097      IF (PRESENT(name_)) THEN 
    9198        CALL cxios_set_file_name(file_hdl%daddr, name_, len(name_)) 
    … …  
    125132   
    126133  SUBROUTINE xios(get_file_attr)  & 
    127     ( file_id, description, enabled, name, name_suffix, output_freq, output_level, par_access, split_freq  & 
    128     , sync_freq, type ) 
     134    ( file_id, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access  & 
     135    , split_freq, sync_freq, type ) 
    129136     
    130137    IMPLICIT NONE 
    … …  
    134141      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled 
    135142      LOGICAL (KIND=C_BOOL) :: enabled_tmp 
     143      INTEGER  , OPTIONAL, INTENT(OUT) :: min_digits 
    136144      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name 
    137145      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix 
    … …  
    145153      CALL xios(get_file_handle)(file_id,file_hdl) 
    146154      CALL xios(get_file_attr_hdl_)   & 
    147       ( file_hdl, description, enabled, name, name_suffix, output_freq, output_level, par_access, split_freq  & 
    148       , sync_freq, type ) 
     155      ( file_hdl, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access  & 
     156      , split_freq, sync_freq, type ) 
    149157     
    150158  END SUBROUTINE xios(get_file_attr) 
    151159   
    152160  SUBROUTINE xios(get_file_attr_hdl)  & 
    153     ( file_hdl, description, enabled, name, name_suffix, output_freq, output_level, par_access, split_freq  & 
    154     , sync_freq, type ) 
     161    ( file_hdl, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access  & 
     162    , split_freq, sync_freq, type ) 
    155163     
    156164    IMPLICIT NONE 
    … …  
    159167      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled 
    160168      LOGICAL (KIND=C_BOOL) :: enabled_tmp 
     169      INTEGER  , OPTIONAL, INTENT(OUT) :: min_digits 
    161170      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name 
    162171      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix 
    … …  
    169178       
    170179      CALL xios(get_file_attr_hdl_)  & 
    171       ( file_hdl, description, enabled, name, name_suffix, output_freq, output_level, par_access, split_freq  & 
    172       , sync_freq, type ) 
     180      ( file_hdl, description, enabled, min_digits, name, name_suffix, output_freq, output_level, par_access  & 
     181      , split_freq, sync_freq, type ) 
    173182     
    174183  END SUBROUTINE xios(get_file_attr_hdl) 
    175184   
    176185  SUBROUTINE xios(get_file_attr_hdl_)   & 
    177     ( file_hdl, description_, enabled_, name_, name_suffix_, output_freq_, output_level_, par_access_  & 
    178     , split_freq_, sync_freq_, type_ ) 
     186    ( file_hdl, description_, enabled_, min_digits_, name_, name_suffix_, output_freq_, output_level_  & 
     187    , par_access_, split_freq_, sync_freq_, type_ ) 
    179188     
    180189    IMPLICIT NONE 
    … …  
    183192      LOGICAL  , OPTIONAL, INTENT(OUT) :: enabled_ 
    184193      LOGICAL (KIND=C_BOOL) :: enabled__tmp 
     194      INTEGER  , OPTIONAL, INTENT(OUT) :: min_digits_ 
    185195      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_ 
    186196      CHARACTER(len = *) , OPTIONAL, INTENT(OUT) :: name_suffix_ 
    … …  
    201211      ENDIF 
    202212       
     213      IF (PRESENT(min_digits_)) THEN 
     214        CALL cxios_get_file_min_digits(file_hdl%daddr, min_digits_) 
     215      ENDIF 
     216       
    203217      IF (PRESENT(name_)) THEN 
    204218        CALL cxios_get_file_name(file_hdl%daddr, name_, len(name_)) 
Note: See TracChangeset for help on using the changeset viewer.