Changeset 8377 for branches/ORCHIDEE_2_2/ORCHIDEE/src_parameters

Timestamp:

2024-01-14T15:15:57+01:00 (6 months ago)

Author:

jan.polcher

Message:

The modifications performed on the trunk for the coupling to WRF and the interpolation by XIOS on curviliean grids has been backported.

File:

• branches/ORCHIDEE_2_2/ORCHIDEE/src_parameters/constantes_var.f90 (modified) (1 diff)

branches/ORCHIDEE_2_2/ORCHIDEE/src_parameters/constantes_var.f90

@@ -227 +227 @@
   ! 2 . Physics
   !-
-  REAL(r_std), PARAMETER :: R_Earth = 6378000.              !! radius of the Earth : Earth radius ~= Equatorial radius (m)
+#ifndef OASIS
+  REAL(r_std), PARAMETER :: R_Earth = 6378000.              !! Radius of the Earth : Earth radius ~= Equatorial radius (m)
+#else
+  REAL(r_std), PARAMETER :: R_Earth = 6370000.              !! When coupled through OASIS it is with WRF. We have to use another Earth radius  
+#endif
   REAL(r_std), PARAMETER :: mincos  = 0.0001                !! Minimum cosine value used for interpolation (unitless) 
   REAL(r_std), PARAMETER :: pb_std = 1013.                  !! standard pressure (hPa)