Ignore:
Timestamp:
2017-11-22T13:34:53+01:00 (3 years ago)
Author:
andmirek
Message:

#1953 and #1962 change in subroutine name and way temperature first level is read

File:
1 edited

Legend:

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

    r8774 r8785  
    6666   PRIVATE iom_set_domain_attr, iom_set_axis_attr, iom_set_field_attr, iom_set_file_attr, iom_get_file_attr, iom_set_grid_attr 
    6767   PRIVATE set_grid, set_grid_bounds, set_scalar, set_xmlatt, set_mooring, iom_update_file_name, iom_sdate 
    68    PRIVATE iom_set_rst_context, iom_set_rstw_active 
     68   PRIVATE iom_set_rst_context, iom_set_rstw_active, iom_set_rstr_active 
    6969   PUBLIC iom_set_rstw_var_active, iom_set_rst_vars 
    7070# endif 
     
    214214       CALL iom_set_rst_vars(rst_fields) 
    215215!set which fields are to be read from restart file 
    216        CALL set_rstr_active() 
     216       CALL iom_set_rstr_active() 
    217217      ELSE IF( TRIM(cdname) == TRIM(cwxios_context) ) THEN 
    218218!set names of the fields in restart file IF using XIOS to write data 
     
    263263   END SUBROUTINE iom_set_rstw_var_active 
    264264 
    265    SUBROUTINE set_rstr_active() 
     265   SUBROUTINE iom_set_rstr_active() 
    266266!sets enabled = .TRUE. for each field in restart file 
    267267   CHARACTER(len=256) :: rst_file 
     
    309309         ENDIF 
    310310        END DO 
    311    END SUBROUTINE set_rstr_active 
     311   END SUBROUTINE iom_set_rstr_active 
    312312 
    313313   SUBROUTINE iom_set_rstw_core() 
     
    536536#if defined key_iomput 
    537537      TYPE(xios_context) :: nemo_hdl 
    538  
     538      IF(lwp) write(numout,*)  'SWAP to: ',TRIM(cdname) 
    539539      IF( TRIM(Agrif_CFixed()) == '0' ) THEN 
    540540        CALL xios_get_handle(TRIM(cdname),nemo_hdl) 
Note: See TracChangeset for help on using the changeset viewer.