Changeset 3465 for LMDZ6/trunk/libf/phylmd/surf_land_orchidee_mod.F90

Timestamp:

Mar 14, 2019, 10:34:31 AM (5 years ago)

Author:

Laurent Fairhead

Message:

Further modifications for DYNAMICO/LMDZ convergence. These are based
on Yann's LMDZ6_V2 sources. Compiles on irene and converges with revision 3459
in a bucket configuration
YM/LF

File:

• LMDZ6/trunk/libf/phylmd/surf_land_orchidee_mod.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmd/surf_land_orchidee_mod.F90

@@ -579 +579 @@
 !  swdown_vrai(1:knon) = swnet(1:knon)/(1. - albedo_keep(1:knon))
     swdown_vrai(1:knon) = swdown(1:knon)
+!$OMP BARRIER
 
     IF (knon > 0) THEN