Changeset 11786


Ignore:
Timestamp:
2019-10-24T13:05:47+02:00 (11 months ago)
Author:
andmirek
Message:

Ticket #1840, changes in iom.F90

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r11756_optional_variables/src/OCE/IOM/iom.F90

    r11554 r11786  
    17291729      ! 
    17301730      IF( xios_is_valid_domain     (cdid) ) THEN 
    1731          CALL xios_set_domain_attr     ( cdid, ni_glo=ni_glo, nj_glo=nj_glo, ibegin=ibegin, jbegin=jbegin, ni=ni, nj=nj,   & 
    1732             &    data_dim=data_dim, data_ibegin=data_ibegin, data_ni=data_ni, data_jbegin=data_jbegin, data_nj=data_nj ,   & 
    1733             &    lonvalue_1D=lonvalue, latvalue_1D=latvalue, mask_1D=mask, nvertex=nvertex, bounds_lon_1D=bounds_lon,      & 
    1734             &    bounds_lat_1D=bounds_lat, area=area, type='curvilinear') 
     1731         CALL xios_set_domain_attr     ( cdid, type='curvilinear') 
     1732         IF(PRESENT(ni_glo))      CALL xios_set_domain_attr     ( cdid, ni_glo=ni_glo) 
     1733         IF(PRESENT(nj_glo))      CALL xios_set_domain_attr     ( cdid, nj_glo=nj_glo) 
     1734         IF(PRESENT(ibegin))      CALL xios_set_domain_attr     ( cdid, ibegin=ibegin) 
     1735         IF(PRESENT(jbegin))      CALL xios_set_domain_attr     ( cdid, jbegin=jbegin) 
     1736         IF(PRESENT(ni))          CALL xios_set_domain_attr     ( cdid, ni=ni) 
     1737         IF(PRESENT(nj))          CALL xios_set_domain_attr     ( cdid, nj=nj) 
     1738         IF(PRESENT(data_dim))    CALL xios_set_domain_attr     ( cdid, data_dim=data_dim) 
     1739         IF(PRESENT(data_ibegin)) CALL xios_set_domain_attr     ( cdid, data_ibegin=data_ibegin) 
     1740         IF(PRESENT(data_ni))     CALL xios_set_domain_attr     ( cdid, data_ni=data_ni) 
     1741         IF(PRESENT(data_jbegin)) CALL xios_set_domain_attr     ( cdid, data_jbegin=data_jbegin) 
     1742         IF(PRESENT(data_nj))     CALL xios_set_domain_attr     ( cdid, data_nj=data_nj) 
     1743         IF(PRESENT(lonvalue))    CALL xios_set_domain_attr     ( cdid, lonvalue_1D=lonvalue) 
     1744         IF(PRESENT(latvalue))    CALL xios_set_domain_attr     ( cdid, latvalue_1D=latvalue) 
     1745         IF(PRESENT(mask))        CALL xios_set_domain_attr     ( cdid, mask_1D=mask) 
     1746         IF(PRESENT(nvertex))     CALL xios_set_domain_attr     ( cdid, nvertex=nvertex) 
     1747         IF(PRESENT(bounds_lon))  CALL xios_set_domain_attr     ( cdid, bounds_lon_1D=bounds_lon) 
     1748         IF(PRESENT(bounds_lat))  CALL xios_set_domain_attr     ( cdid, bounds_lat_1D=bounds_lat) 
     1749         IF(PRESENT(area))        CALL xios_set_domain_attr     ( cdid, area=area) 
    17351750      ENDIF 
    17361751      IF( xios_is_valid_domaingroup(cdid) ) THEN 
    1737          CALL xios_set_domaingroup_attr( cdid, ni_glo=ni_glo, nj_glo=nj_glo, ibegin=ibegin, jbegin=jbegin, ni=ni, nj=nj,   & 
    1738             &    data_dim=data_dim, data_ibegin=data_ibegin, data_ni=data_ni, data_jbegin=data_jbegin, data_nj=data_nj ,   & 
    1739             &    lonvalue_1D=lonvalue, latvalue_1D=latvalue, mask_1D=mask, nvertex=nvertex, bounds_lon_1D=bounds_lon,      & 
    1740             &    bounds_lat_1D=bounds_lat, area=area, type='curvilinear' ) 
     1752         CALL xios_set_domaingroup_attr( cdid, type='curvilinear' ) 
     1753         IF(PRESENT(ni_glo)) CALL xios_set_domaingroup_attr( cdid, ni_glo=ni_glo) 
     1754         IF(PRESENT(nj_glo)) CALL xios_set_domaingroup_attr( cdid, nj_glo=nj_glo) 
     1755         IF(PRESENT(ibegin)) CALL xios_set_domaingroup_attr( cdid, ibegin=ibegin) 
     1756         IF(PRESENT(jbegin)) CALL xios_set_domaingroup_attr( cdid, jbegin=jbegin) 
     1757         IF(PRESENT(ni)) CALL xios_set_domaingroup_attr( cdid, ni=ni) 
     1758         IF(PRESENT(nj)) CALL xios_set_domaingroup_attr( cdid, nj=nj) 
     1759         IF(PRESENT(data_dim)) CALL xios_set_domaingroup_attr( cdid, data_dim=data_dim) 
     1760         IF(PRESENT(data_ibegin)) CALL xios_set_domaingroup_attr( cdid, data_ibegin=data_ibegin) 
     1761         IF(PRESENT(data_ni)) CALL xios_set_domaingroup_attr( cdid, data_ni=data_ni) 
     1762         IF(PRESENT(data_jbegin)) CALL xios_set_domaingroup_attr( cdid, data_jbegin=data_jbegin) 
     1763         IF(PRESENT(data_nj)) CALL xios_set_domaingroup_attr( cdid, data_nj=data_nj) 
     1764         IF(PRESENT(lonvalue)) CALL xios_set_domaingroup_attr( cdid, lonvalue_1D=lonvalue) 
     1765         IF(PRESENT(latvalue)) CALL xios_set_domaingroup_attr( cdid, latvalue_1D=latvalue) 
     1766         IF(PRESENT(mask)) CALL xios_set_domaingroup_attr( cdid, mask_1D=mask) 
     1767         IF(PRESENT(nvertex)) CALL xios_set_domaingroup_attr( cdid, nvertex=nvertex) 
     1768         IF(PRESENT(bounds_lon)) CALL xios_set_domaingroup_attr( cdid, bounds_lon_1D=bounds_lon) 
     1769         IF(PRESENT(bounds_lat)) CALL xios_set_domaingroup_attr( cdid, bounds_lat_1D=bounds_lat) 
     1770         IF(PRESENT(area)) CALL xios_set_domaingroup_attr( cdid, area=area) 
    17411771      ENDIF 
    17421772      ! 
     
    17901820         IF( xios_is_valid_axisgroup(cdid) )   CALL xios_set_axisgroup_attr( cdid, n_glo=SIZE(paxis), value=paxis ) 
    17911821      ENDIF 
    1792       IF( xios_is_valid_axis     (cdid) )   CALL xios_set_axis_attr     ( cdid, bounds=bounds ) 
    1793       IF( xios_is_valid_axisgroup(cdid) )   CALL xios_set_axisgroup_attr( cdid, bounds=bounds ) 
     1822      IF( PRESENT(bounds) ) THEN 
     1823         IF( xios_is_valid_axis     (cdid) )   CALL xios_set_axis_attr     ( cdid, bounds=bounds ) 
     1824         IF( xios_is_valid_axisgroup(cdid) )   CALL xios_set_axisgroup_attr( cdid, bounds=bounds ) 
     1825      ENDIF 
    17941826      CALL xios_solve_inheritance() 
    17951827   END SUBROUTINE iom_set_axis_attr 
     
    18031835      TYPE(xios_duration), OPTIONAL, INTENT(in) ::   freq_offset 
    18041836      !!---------------------------------------------------------------------- 
    1805       IF( xios_is_valid_field     (cdid) )   CALL xios_set_field_attr     ( cdid, freq_op=freq_op, freq_offset=freq_offset ) 
    1806       IF( xios_is_valid_fieldgroup(cdid) )   CALL xios_set_fieldgroup_attr( cdid, freq_op=freq_op, freq_offset=freq_offset ) 
     1837      IF(PRESENT(freq_op)) THEN 
     1838         IF( xios_is_valid_field     (cdid) )   CALL xios_set_field_attr     ( cdid, freq_op=freq_op ) 
     1839         IF( xios_is_valid_fieldgroup(cdid) )   CALL xios_set_fieldgroup_attr( cdid, freq_op=freq_op ) 
     1840      ENDIF 
     1841      IF(PRESENT(freq_offset)) THEN 
     1842         IF( xios_is_valid_field     (cdid) )   CALL xios_set_field_attr     ( cdid, freq_offset=freq_offset ) 
     1843         IF( xios_is_valid_fieldgroup(cdid) )   CALL xios_set_fieldgroup_attr( cdid, freq_offset=freq_offset ) 
     1844      ENDIF 
    18071845      CALL xios_solve_inheritance() 
    18081846   END SUBROUTINE iom_set_field_attr 
     
    18151853      CHARACTER(LEN=*),OPTIONAL , INTENT(in) ::   name, name_suffix 
    18161854      !!---------------------------------------------------------------------- 
    1817       IF( xios_is_valid_file     (cdid) )   CALL xios_set_file_attr     ( cdid, name=name, name_suffix=name_suffix ) 
    1818       IF( xios_is_valid_filegroup(cdid) )   CALL xios_set_filegroup_attr( cdid, name=name, name_suffix=name_suffix ) 
     1855      IF(PRESENT(name_suffix)) THEN 
     1856         IF( xios_is_valid_file     (cdid) )   CALL xios_set_file_attr     ( cdid, name_suffix=name_suffix ) 
     1857         IF( xios_is_valid_filegroup(cdid) )   CALL xios_set_filegroup_attr( cdid, name_suffix=name_suffix ) 
     1858      ENDIF 
     1859      IF(PRESENT(name)) THEN 
     1860         IF( xios_is_valid_file     (cdid) )   CALL xios_set_file_attr     ( cdid, name=name ) 
     1861         IF( xios_is_valid_filegroup(cdid) )   CALL xios_set_filegroup_attr( cdid, name=name ) 
     1862      ENDIF 
    18191863      CALL xios_solve_inheritance() 
    18201864   END SUBROUTINE iom_set_file_attr 
     
    18521896      !!---------------------------------------------------------------------- 
    18531897      !!---------------------------------------------------------------------- 
    1854       CHARACTER(LEN=*)                   , INTENT(in) ::   cdid 
    1855       LOGICAL, DIMENSION(:,:,:), OPTIONAL, INTENT(in) ::   mask 
     1898      CHARACTER(LEN=*)         , INTENT(in) ::   cdid 
     1899      LOGICAL, DIMENSION(:,:,:), INTENT(in) ::   mask 
    18561900      !!---------------------------------------------------------------------- 
    18571901      IF( xios_is_valid_grid     (cdid) )   CALL xios_set_grid_attr     ( cdid, mask_3D=mask ) 
Note: See TracChangeset for help on using the changeset viewer.