Changeset 8548

Timestamp:

2024-05-06T16:33:01+02:00 (8 months ago)

Author:

josefine.ghattas

Message:

Integrated changes from [8536] done by Laurent Fairhead and Amaury Barral, LMD, needed for compiler gfortran.

Location:

branches/ORCHIDEE_2_2/ORCHIDEE

Files:

• . (modified) (1 prop)
• src_sechiba/routing_highres.f90 (modified) (1 diff)
• src_sechiba/routing_native.f90 (modified) (1 diff)
• src_sechiba/routing_native_flow.f90 (modified) (2 diffs)
• src_sechiba/routing_simple.f90 (modified) (1 diff)
• src_sechiba/routing_wrapper.f90 (modified) (1 diff)

branches/ORCHIDEE_2_2/ORCHIDEE/src_sechiba/routing_highres.f90

@@ -52 +52 @@
   USE sechiba_io_p
   USE interpol_help
-  USE grid
+  USE grid, not_used => contfrac
   USE mod_orchidee_para
 

branches/ORCHIDEE_2_2/ORCHIDEE/src_sechiba/routing_native.f90

@@ -53 +53 @@
   USE sechiba_io_p
   USE interpol_help
-  USE grid
+  USE grid, not_used => contfrac
   USE mod_orchidee_para
 

branches/ORCHIDEE_2_2/ORCHIDEE/src_sechiba/routing_native_flow.f90

@@ -9 +9 @@
   USE sechiba_io_p
   USE interpol_help
-  USE grid
+  USE grid, not_used => contfrac
   USE mod_orchidee_para
 
@@ -1845 +1845 @@
     CALL xios_context_initialize("orchidee_routing_out",MPI_COMM_ORCH)
     CALL xios_orchidee_change_context("orchidee_routing_out")
-    ts.second=dt_routing
+    ts%second=dt_routing
     calendar_type="gregorian" 
     CALL xios_define_calendar(type=calendar_type,start_date=start_date,time_origin=time_origin, timestep=ts )

branches/ORCHIDEE_2_2/ORCHIDEE/src_sechiba/routing_simple.f90

@@ -53 +53 @@
   USE sechiba_io_p
   USE interpol_help
-  USE grid
+  USE grid, not_used => contfrac
   USE mod_orchidee_para
 

branches/ORCHIDEE_2_2/ORCHIDEE/src_sechiba/routing_wrapper.f90

@@ -31 +31 @@
   USE defprec
   USE pft_parameters
-  USE grid
+  USE grid, not_used => contfrac
   USE routing
   USE routing_highres