Changeset 4122 for dynamico_lmdz/aquaplanet/ICOSA_LMDZ/src/phylmd/interface_icosa_lmdz.f90

Timestamp:

Oct 23, 2018, 6:29:11 PM (6 years ago)

Author:

jgipsl

Message:

Corrected bug on mass flux again. This bug was corrected in [309] but reverted back in [316].

File:

• dynamico_lmdz/aquaplanet/ICOSA_LMDZ/src/phylmd/interface_icosa_lmdz.f90 (modified) (1 diff)

dynamico_lmdz/aquaplanet/ICOSA_LMDZ/src/phylmd/interface_icosa_lmdz.f90

@@ -604 +604 @@
 
     DO l=1,llm
-      wflux_phy(:,l)=wflux_phy(:,l)*cell_area(:)
+      wflux_phy(:,l) = - wflux_phy(:,l)*cell_area(:)
       phi_phy(:,l)=phi_phy(:,l)-phis_phy(:)
     ENDDO