Changeset 6189 for branches/ORCHIDEE_2_2/ORCHIDEE/src_sechiba/diffuco.f90

Timestamp:

2019-09-06T17:56:38+02:00 (5 years ago)

Author:

josefine.ghattas

Message:

As done in the trunk rev [6188]: Corrections done by A. Jornet. These errors crashed the model only in coupled mode with serveral treadds OMP.

File:

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

branches/ORCHIDEE_2_2/ORCHIDEE/src_sechiba/diffuco.f90

@@ -1539 +1539 @@
 
     cim(:,:)=zero
+    leaf_ci(:,:,:) = zero
 
     !