Changeset 2064

Timestamp:

03/09/21 19:25:28 (4 years ago)

Author:

ymipsl

Message:

XIOS Traing : some update. YM

Location:

XIOS/xios_training

Files:

• hands-on-3/Makefile (modified) (1 diff)
• hands-on-3/iodef.xml (modified) (1 diff)
• hands-on-3/test_tp3.f90 (modified) (2 diffs)
• hands-on.env (modified) (1 diff)

XIOS/xios_training/hands-on-3/Makefile

@@ -6 +6 @@
 FCFLAGS= -I$(XIOS_DIR)/inc  -I$(NETCDF_INCDIR)
 # Librairies
-LDFLAGS = -L$(XIOS_DIR)/lib -lxios $(NETCDF_LIBS) -lstdc++
+LDFLAGS = -L$(XIOS_DIR)/lib -lxios $(NETCDFLIBS) -lstdc++
 
 all: test_tp3

XIOS/xios_training/hands-on-3/iodef.xml

@@ -25 +25 @@
    <file_definition>
      <file id="output" name="output" output_freq="1ts" type="one_file">
-       <field id="field_A" default_value="1.e20"/>
+       <field id="field_A"/>
      </file>
    </file_definition>

XIOS/xios_training/hands-on-3/test_tp3.f90

@@ -29 +29 @@
  
   INTEGER :: ts
-  
-  INTEGER :: ni, nj, ibegin, jbegin
  
   CALL MPI_INIT(ierr)
@@ -67 +65 @@
   if(rank.EQ.0) print*, "domain size = ", ni_glo, "*", nj_glo
 
-  ni=ni_glo/size
-  nj=nj_glo
+  ALLOCATE(lonvalue(ni_glo))
+  ALLOCATE(latvalue(nj_glo))
 
-  ibegin=ni*rank
-  jbegin=0
-
-  CALL xios_set_domain_attr("domain_A", ni=ni, nj=nj, ibegin=ibegin,jbegin=jbegin)
-  print*, "Proc ",rank, "occupies subdomain",ibegin,"->",ibegin+ni,"X",jbegin,"->",jbegin+nj
-
-
-  ALLOCATE(lonvalue(ni))
-  ALLOCATE(latvalue(nj))
-
-  DO i=1,ni
-    lonvalue(i) = -180 + (rank*ni+i) * 360/ni_glo
+  DO i=1,ni_glo
+    lonvalue(i) = -180 + i * 360/ni_glo
   ENDDO
 
-  DO j=1,nj
+  DO j=1,nj_glo
     latvalue(j) = -90 + j * 180/nj_glo
   ENDDO
 
   CALL xios_set_domain_attr("domain_A", lonvalue_1d=lonvalue,latvalue_1d=latvalue)
-  
-  !--- Case 2 ---!
-  ! CALL xios_set_domain_attr("domain_A", data_dim=2, data_ibegin=-1, data_ni=ni+2, data_jbegin=-1, data_nj=nj+2)
-  
-  !--- Case 3 ---!
-  CALL xios_set_domain_attr("domain_A", data_dim=2, data_ibegin=1, data_ni=ni-2, data_jbegin=0, data_nj=nj/2)
-  
+
   CALL xios_close_context_definition()
 
-  !--- Case 1 ---!
-  ! ALLOCATE(field_A(ni, nj, axis_size))
-  ! field_A(:,:,:)=rank
-
-  !--- Case 2 ---!
-  ! ALLOCATE(field_A(ni+2, nj+2, axis_size))
-  ! field_A(:,:,:)=rank
-
-  !--- Case 3 ---!
-  ALLOCATE(field_A(ni-2, nj/2, axis_size))
+  ALLOCATE(field_A(ni_glo, nj_glo, axis_size))
   field_A(:,:,:)=rank
 

XIOS/xios_training/hands-on.env

@@ -4 +4 @@
 source ./xios_build/arch.env
 export NETCDF_INCLUDE="-I$NETCDF_INCDIR"
-# some install could require also HDF5 to be linked
-export NETCDF_LIBS="-L$NETCDF_LIBDIR -lnetcdf" 
+export NETCDF_LIBS="-L$NETCDF_LIBDIR -lnetcdf -L$HDF5_LIBDIR -lhdf5_hl -lhdf5 -ldl -lz -lcurl"