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/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.