Changeset 3312 for LMDZ6/branches/DYNAMICO-conv/libf/phylmd/write_histrac.h

Timestamp:

Apr 11, 2018, 10:27:28 AM (6 years ago)

Author:

Laurent Fairhead

Message:

Continuing phasing of DYNAMICO and LMDZ physics

File:

• LMDZ6/branches/DYNAMICO-conv/libf/phylmd/write_histrac.h (modified) (1 diff)

LMDZ6/branches/DYNAMICO-conv/libf/phylmd/write_histrac.h

@@ -8 +8 @@
      
      CALL histwrite_phy(nid_tra,.FALSE.,"phis",itau_w,pphis)
-     CALL histwrite_phy(nid_tra,.FALSE.,"aire",itau_w,airephy)
+     CALL histwrite_phy(nid_tra,.FALSE.,"aire",itau_w,cell_area)
      CALL histwrite_phy(nid_tra,.FALSE.,"zmasse",itau_w,zmasse)
 ! RomP >>>