Changeset 492

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

Location:

codes/icosagcm/trunk/src

Files:

• restart.f90 (modified) (3 diffs)
• xios_mod.F90 (modified) (2 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
 

codes/icosagcm/trunk/src/xios_mod.F90

@@ -52 +52 @@
   REAL(rstd) :: lev_value(llm)
   REAL(rstd) :: lev_valuep1(llm+1)
+  REAL(rstd) :: nq_value(nqtot)
   INTEGER :: ncell, ncell_tot, ncell_glo(0:mpi_size-1), displ
   INTEGER :: ind, i,j,k,l,ij
@@ -65 +66 @@
    lev_value(:) = (/ (l,l=1,llm) /)     
    lev_valuep1(:) = (/ (l,l=1,llm+1) /)     
+   nq_value(:) = (/ (l,l=1,nqtot) /)     
    CALL xios_set_axis_attr("lev",n_glo=llm ,value=lev_value) ;
    CALL xios_set_axis_attr("levp1",n_glo=llm+1 ,value=lev_valuep1) ;
-   CALL xios_set_axis_attr("nq",n_glo=nqtot) ;
+   CALL xios_set_axis_attr("nq",n_glo=nqtot, value=nq_value) ;
    
    ncell=0