Changeset 8785


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

Location:
branches/2017/dev_r8600_xios_read_write/NEMOGCM/NEMO/OPA_SRC/IOM
Files:
2 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) 
  • branches/2017/dev_r8600_xios_read_write/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90

    r8770 r8785  
    249249      TYPE(xios_duration):: dtime 
    250250      integer::ni,nj,nk 
     251      REAL(wp), DIMENSION(jpi, jpj, jpk) :: w3d  
    251252      !!---------------------------------------------------------------------- 
    252253 
     
    265266         &   "rst_read:- ln_diurnal_only set, setting rhop=rau0"  
    266267         rhop = rau0 
    267          CALL iom_get( numror, jpdom_autoglo, 'tn'     , tsn(:,:,1,jp_tem), ldxios = lxios_read )  
     268         CALL iom_get( numror, jpdom_autoglo, 'tn'     , w3d, ldxios = lxios_read )  
     269         tsn(:,:,1,jp_tem) = w3d(:,:,1) 
    268270         RETURN  
    269271      ENDIF   
Note: See TracChangeset for help on using the changeset viewer.