Changeset 7252

Timestamp:

2021-07-21T16:44:31+02:00 (3 years ago)

Author:

agnes.ducharne

Message:

Modifications sur routing_simple.f90 pour pouvoir tourner sans xios. Fait par Adriana Sima avec Yann Meurdesoif.

File:

• branches/ORCHIDEE_2_2/ORCHIDEE/src_sechiba/routing_simple.f90 (modified) (12 diffs)

branches/ORCHIDEE_2_2/ORCHIDEE/src_sechiba/routing_simple.f90

@@ -342 +342 @@
 
   SUBROUTINE routing_simple_xios_initialize
-    USE xios
+!    USE xios
     USE routing, ONLY : routing_names
     IMPLICIT NONE     
@@ -350 +350 @@
     LOGICAL :: file_exists
 
+#ifdef XIOS
     IF (is_omp_root) THEN   
        CALL xios_get_axis_attr("basins", n_glo=basins_out)    ! get nb basins to output
@@ -358 +359 @@
        IF (file_exists) CALL xios_set_file_attr("routing_start", enabled=.TRUE.)  
     ENDIF
-
+#endif
   END SUBROUTINE routing_simple_xios_initialize
 
@@ -379 +380 @@
 
   SUBROUTINE routing_simple_init_2(nbpt, contfrac)
-    USE xios
+!    USE xios
     USE grid, ONLY : area
     IMPLICIT NONE
@@ -409 +410 @@
 
 !_ ================================================================================================================================
-
+#ifdef XIOS
     split_routing=1
     CALL getin_p("SPLIT_ROUTING",split_routing)
@@ -657 +658 @@
 
     ENDIF
-
+#endif
   END SUBROUTINE routing_simple_init_2
 
@@ -733 +734 @@
                                  coastalflow_omp, hydrographs, slowflow_diag, flood_frac, flood_res)
     
-    USE xios
+!    USE xios
     USE grid, ONLY : area
     IMPLICIT NONE
@@ -854 +855 @@
     !
 
-
+#ifdef XIOS
     irrig_netereq(:) = zero
     totarea(:) = zero
@@ -1167 +1168 @@
     irrigation(:) = zero
 
-
+#endif
   END SUBROUTINE routing_simple_flow
 
@@ -1711 +1712 @@
 
   SUBROUTINE routing_simple_finalize( kjit, nbpt, rest_id, flood_frac, flood_res )
-    USE xios
+!    USE xios
     IMPLICIT NONE
 
@@ -1727 +1728 @@
     !_ ================================================================================================================================
 
+#ifdef XIOS
     IF (is_omp_root) THEN
        CALL xios_send_field("fast_reservoir_restart",fast_reservoir_r)
@@ -1732 +1734 @@
        CALL xios_send_field("stream_reservoir_restart",stream_reservoir_r)
     ENDIF
-
+#endif
   END SUBROUTINE routing_simple_finalize