Changeset 8785 for branches/2017/dev_r8600_xios_read_write/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90

Timestamp:

2017-11-22T13:34:53+01:00 (6 years ago)

Author:

andmirek

Message:

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

File:

• branches/2017/dev_r8600_xios_read_write/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90 (modified) (2 diffs)

branches/2017/dev_r8600_xios_read_write/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90

@@ -249 +249 @@
       TYPE(xios_duration):: dtime
       integer::ni,nj,nk
+      REAL(wp), DIMENSION(jpi, jpj, jpk) :: w3d 
       !!----------------------------------------------------------------------
 
@@ -265 +266 @@
          &   "rst_read:- ln_diurnal_only set, setting rhop=rau0" 
          rhop = rau0
-         CALL iom_get( numror, jpdom_autoglo, 'tn'     , tsn(:,:,1,jp_tem), ldxios = lxios_read ) 
+         CALL iom_get( numror, jpdom_autoglo, 'tn'     , w3d, ldxios = lxios_read ) 
+         tsn(:,:,1,jp_tem) = w3d(:,:,1)
          RETURN 
       ENDIF