Changeset 492 for codes/icosagcm/trunk/src/restart.f90

Timestamp:

10/18/16 11:15:43 (8 years ago)

Author:

ymipsl

Message:

Some bugs fixed in XIOS...
=> Some modifciation in restart and read fonctionnalities.

YM

File:

• codes/icosagcm/trunk/src/restart.f90 (modified) (3 diffs)

codes/icosagcm/trunk/src/restart.f90

@@ -28 +28 @@
         CALL xios_set_file_attr("restart",name=TRIM(ADJUSTL(restart_file_name)),output_freq=itaumax*xios_timestep)
         CALL xios_set_fieldgroup_attr("group_restart", freq_op=itaumax*xios_timestep)
-        CALL xios_set_axis_attr("lev_read", n_glo=llm)
+!        CALL xios_set_axis_attr("lev_read", n_glo=llm)
       ENDIF
     ENDIF
@@ -420 +420 @@
   INTEGER    :: status
   REAL(rstd),ALLOCATABLE :: lon(:),lat(:),bounds_lon(:,:),bounds_lat(:,:)
-  REAL(rstd) :: it_temp(1)
+  REAL(rstd) :: it_real
   
     IF (no_io) RETURN
@@ -450 +450 @@
       IF (PRESENT(field18))  THEN ; CALL  xios_read_field(TRIM(field18(1)%name)//'_start',field18)  ; ENDIF
       IF (PRESENT(field19))  THEN ; CALL  xios_read_field(TRIM(field19(1)%name)//'_start',field19)  ; ENDIF
-! doesn't work for now, to be decomment when xios is ok
-!      CALL xios_recv_field("it_start",it_temp)
-!      it=it_temp(1)
-      it=0
+
+      CALL xios_recv_field("it_start",it_real)
+      it=it_real
     ELSE