Changeset 505

Timestamp:

12/08/16 12:10:47 (7 years ago)

Author:

dubos

Message:

Allow compilation without XIOS

Location:

codes/icosagcm/trunk/src

Files:

• restart.f90 (modified) (1 diff)
• xios_mod.F90 (modified) (3 diffs)

codes/icosagcm/trunk/src/restart.f90

@@ -451 +451 @@
       IF (PRESENT(field19))  THEN ; CALL  xios_read_field(TRIM(field19(1)%name)//'_start',field19)  ; ENDIF
 
-      CALL xios_recv_field("it_start",it_real)
+!      CALL xios_recv_field("it_start",it_real)
+      CALL xios_read_var("it_start",it_real)
       it=it_real
     ELSE

codes/icosagcm/trunk/src/xios_mod.F90

@@ -4 +4 @@
    USE xios
 #endif
+   IMPLICIT NONE 
 
   PUBLIC
@@ -460 +461 @@
 
 
+ SUBROUTINE xios_read_var(name,field)
+   USE prec
+   CHARACTER(LEN=*),INTENT(IN) :: name
+   REAL(rstd), INTENT(OUT) :: field
+   CALL xios_recv_field(name,field)
+ END SUBROUTINE
+
  SUBROUTINE xios_read_field_scalar(name,field,nlev,nq)
  USE genmod
@@ -988 +996 @@
    TYPE(t_field), POINTER :: field(:)
   END SUBROUTINE xios_read_field
+
+ SUBROUTINE xios_read_var(name,field)
+   USE prec
+   CHARACTER(LEN=*),INTENT(IN) :: name
+   REAL(rstd), INTENT(OUT) :: field
+ END SUBROUTINE
  
   SUBROUTINE xios_update_calendar(step)