New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 11976 – NEMO

Changeset 11976


Ignore:
Timestamp:
2019-11-27T12:06:09+01:00 (4 years ago)
Author:
andmirek
Message:

Ticket #1840, changes after review

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r11786 r11976  
    17301730      IF( xios_is_valid_domain     (cdid) ) THEN 
    17311731         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) 
     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) 
    17501750      ENDIF 
    17511751      IF( xios_is_valid_domaingroup(cdid) ) THEN 
    17521752         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) 
     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) 
    17601760         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) 
     1761         IF(PRESENT(data_ni))     CALL xios_set_domaingroup_attr( cdid, data_ni=data_ni) 
    17621762         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) 
     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) 
    17711771      ENDIF 
    17721772      ! 
Note: See TracChangeset for help on using the changeset viewer.