Changeset 482 for codes

Timestamp:

09/19/16 13:47:45 (8 years ago)

Author:

ymipsl

Message:

Dynamico can run without XIOS

YM

Location:

codes/icosagcm/trunk/src

Files:

• etat0_database.f90 (modified) (1 diff)
• observable.f90 (modified) (2 diffs)
• xios_mod.F90 (modified) (5 diffs)

codes/icosagcm/trunk/src/etat0_database.f90

@@ -5 +5 @@
 
   SUBROUTINE init_etat0_database
-  USE xios
+  USE xios_mod
   IMPLICIT NONE
   

codes/icosagcm/trunk/src/observable.f90

@@ -36 +36 @@
 
   SUBROUTINE write_output_fields_basic(init, f_phis, f_ps, f_mass, f_geopot, f_theta_rhodz, f_u, f_W, f_q)
-    USE xios
+    USE xios_mod
     USE disvert_mod
     USE wind_mod
@@ -42 +42 @@
     USE omp_para
     USE time_mod
-    USE xios
+    USE xios_mod
     USE earth_const
     USE pression_mod

codes/icosagcm/trunk/src/xios_mod.F90

@@ -14 +14 @@
 
   PRIVATE ncell_i,ncell_v
+
+#ifdef CPP_USING_XIOS
   
 CONTAINS
-
-#ifdef CPP_USING_XIOS
  
  SUBROUTINE xios_init
@@ -664 +664 @@
 
   END SUBROUTINE xios_set_context
+
+
 #else
+  
+
+INTERFACE xios_send_field
+  MODULE PROCEDURE xios_send_field_scalar, xios_send_field_1d
+END INTERFACE  xios_send_field
+
+
+CONTAINS  
+  
   
   SUBROUTINE xios_init
@@ -673 +684 @@
   END SUBROUTINE xios_init
   
+  SUBROUTINE xios_send_field_scalar(name,field)
+  IMPLICIT NONE
+    CHARACTER(LEN=*),INTENT(IN) :: name
+    REAL,INTENT(IN) :: field
+  END SUBROUTINE xios_send_field_scalar  
+
+  SUBROUTINE xios_send_field_1d(name,field)
+  IMPLICIT NONE
+    CHARACTER(LEN=*),INTENT(IN) :: name
+    REAL,INTENT(IN) :: field(:)
+  END SUBROUTINE xios_send_field_1d  
+ 
   SUBROUTINE xios_write_field(name,field)
   USE field_mod
@@ -679 +702 @@
    TYPE(t_field), POINTER :: field(:)
   END SUBROUTINE xios_write_field
+
+  SUBROUTINE xios_read_field(name,field)
+  USE field_mod
+  IMPLICIT NONE 
+   CHARACTER(LEN=*),INTENT(IN) :: name
+   TYPE(t_field), POINTER :: field(:)
+  END SUBROUTINE xios_read_field
  
   SUBROUTINE xios_update_calendar(step)
@@ -694 +724 @@
   END SUBROUTINE xios_set_context
   
+  SUBROUTINE xios_set_fieldgroup_attr(name,enabled)
+    CHARACTER(LEN=*) :: name
+    LOGICAL,OPTIONAL          :: enabled
+  END SUBROUTINE xios_set_fieldgroup_attr
+
+  SUBROUTINE xios_set_filegroup_attr(name,enabled)
+    CHARACTER(LEN=*) :: name
+    LOGICAL,OPTIONAL          :: enabled
+  END SUBROUTINE xios_set_filegroup_attr
+
+  SUBROUTINE xios_get_axis_attr(name,n_glo,value)
+    CHARACTER(LEN=*) :: name
+    INTEGER,OPTIONAL          :: n_glo
+    REAL,OPTIONAL             :: value(:)
+  END SUBROUTINE xios_get_axis_attr
 
 #endif  
-  
+
 END MODULE xios_mod