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 8774 – NEMO

Changeset 8774


Ignore:
Timestamp:
2017-11-21T17:54:04+01:00 (6 years ago)
Author:
andmirek
Message:

#1953 and #1962 remove duplicated set_rst_context

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2017/dev_r8600_xios_read_write/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90

    r8770 r8774  
    211211      IF( TRIM(cdname) == TRIM(crxios_context) ) THEN 
    212212!set names of the fields in restart file IF using XIOS to read data 
    213        CALL set_rst_context() 
     213       CALL iom_set_rst_context() 
    214214       CALL iom_set_rst_vars(rst_fields) 
    215215!set which fields are to be read from restart file 
     
    217217      ELSE IF( TRIM(cdname) == TRIM(cwxios_context) ) THEN 
    218218!set names of the fields in restart file IF using XIOS to write data 
    219        CALL set_rst_context() 
     219       CALL iom_set_rst_context() 
    220220       CALL iom_set_rst_vars(rst_wfields) 
    221221!set which fields are to be read from restart file 
     
    310310        END DO 
    311311   END SUBROUTINE set_rstr_active 
    312  
    313    SUBROUTINE set_rst_context( )  
    314 #if defined key_iomput 
    315    TYPE(xios_domaingroup)            :: domaingroup_hdl  
    316    TYPE(xios_domain)                 :: domain_hdl  
    317    TYPE(xios_axisgroup)              :: axisgroup_hdl  
    318    TYPE(xios_axis)                   :: axis_hdl  
    319    TYPE(xios_scalar)                 :: scalar_hdl  
    320    TYPE(xios_scalargroup)            :: scalargroup_hdl  
    321  
    322      CALL xios_get_handle("domain_definition",domaingroup_hdl)  
    323      CALL xios_add_child(domaingroup_hdl, domain_hdl, "grid_N")  
    324      CALL set_grid("N", glamt, gphit, .TRUE.)  
    325   
    326      CALL xios_get_handle("axis_definition",axisgroup_hdl)  
    327      CALL xios_add_child(axisgroup_hdl, axis_hdl, "deptht")  
    328 !AGRIF fails to compile when unit= is in call to xios_set_axis_attr 
    329 !    CALL xios_set_axis_attr( "deptht", long_name="Vertical levels",  unit="m", positive="down")  
    330      CALL xios_set_axis_attr( "deptht", long_name="Vertical levels in meters", positive="down") 
    331      CALL iom_set_axis_attr( "deptht", paxis = gdept_1d )  
    332  
    333      CALL xios_get_handle("scalar_definition", scalargroup_hdl)  
    334      CALL xios_add_child(scalargroup_hdl, scalar_hdl, "grid_scalar")  
    335 #endif 
    336    END SUBROUTINE set_rst_context 
    337312 
    338313   SUBROUTINE iom_set_rstw_core() 
Note: See TracChangeset for help on using the changeset viewer.