Changeset 7511 for branches/ORCHIDEE_2_2/ORCHIDEE/src_sechiba/slowproc.f90

Timestamp:

2022-03-07T17:00:43+01:00 (2 years ago)

Author:

josefine.ghattas

Message:

Added output variable interp_diag_woodharvest to validate interpolation of woodharvest.

File:

• branches/ORCHIDEE_2_2/ORCHIDEE/src_sechiba/slowproc.f90 (modified) (1 diff)

branches/ORCHIDEE_2_2/ORCHIDEE/src_sechiba/slowproc.f90

@@ -3949 +3949 @@
        IF (printlev_loc >= 5) WRITE(numout,*)'  slowproc_wodharvest after interpweight_2Dcont'
        
-       IF (printlev_loc >= 3) WRITE(numout,*) '  slowproc_woodharvest ended'
     END IF
+
+    ! Write diagnostics
+    CALL xios_orchidee_send_field("interp_diag_woodharvest",woodharvest)
+
+    IF (printlev_loc >= 3) WRITE(numout,*) '  slowproc_woodharvest ended'
   END SUBROUTINE slowproc_woodharvest