Changeset 11786 for NEMO/branches
- Timestamp:
- 2019-10-24T13:05:47+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11756_optional_variables/src/OCE/IOM/iom.F90
r11554 r11786 1729 1729 ! 1730 1730 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) 1735 1750 ENDIF 1736 1751 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) 1741 1771 ENDIF 1742 1772 ! … … 1790 1820 IF( xios_is_valid_axisgroup(cdid) ) CALL xios_set_axisgroup_attr( cdid, n_glo=SIZE(paxis), value=paxis ) 1791 1821 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 1794 1826 CALL xios_solve_inheritance() 1795 1827 END SUBROUTINE iom_set_axis_attr … … 1803 1835 TYPE(xios_duration), OPTIONAL, INTENT(in) :: freq_offset 1804 1836 !!---------------------------------------------------------------------- 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 1807 1845 CALL xios_solve_inheritance() 1808 1846 END SUBROUTINE iom_set_field_attr … … 1815 1853 CHARACTER(LEN=*),OPTIONAL , INTENT(in) :: name, name_suffix 1816 1854 !!---------------------------------------------------------------------- 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 1819 1863 CALL xios_solve_inheritance() 1820 1864 END SUBROUTINE iom_set_file_attr … … 1852 1896 !!---------------------------------------------------------------------- 1853 1897 !!---------------------------------------------------------------------- 1854 CHARACTER(LEN=*) 1855 LOGICAL, DIMENSION(:,:,:), OPTIONAL,INTENT(in) :: mask1898 CHARACTER(LEN=*) , INTENT(in) :: cdid 1899 LOGICAL, DIMENSION(:,:,:), INTENT(in) :: mask 1856 1900 !!---------------------------------------------------------------------- 1857 1901 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.