Changeset 1356 for trunk/LMDZ.TITAN/libf/phytitan/write_histmth.h

Timestamp:

Oct 8, 2014, 9:26:28 AM (10 years ago)

Author:

slebonnois

Message:

SL: update to newstart/start2archive tools in Venus+Titan / additional diagnostics in radiative fluxes for Titan

File:

• trunk/LMDZ.TITAN/libf/phytitan/write_histmth.h (modified) (1 diff)

trunk/LMDZ.TITAN/libf/phytitan/write_histmth.h

@@ -188 +188 @@
       call histwrite_phy(nid_mth,.false.,"SWnet",
      .          itau_w,swnet(1:klon,1:klev))
+c     call histwrite_phy(nid_mth,.false.,"SWup",
+c    .          itau_w,swup(1:klon,1:klev))
+c     call histwrite_phy(nid_mth,.false.,"SWdn",
+c    .          itau_w,swdn(1:klon,1:klev))
       call histwrite_phy(nid_mth,.false.,"LWnet",
      .          itau_w,lwnet(1:klon,1:klev))
+c     call histwrite_phy(nid_mth,.false.,"LWup",
+c    .          itau_w,lwup(1:klon,1:klev))
+c     call histwrite_phy(nid_mth,.false.,"LWdn",
+c    .          itau_w,lwdn(1:klon,1:klev))
+      call histwrite_phy(nid_mth,.false.,"fluxvdf",itau_w,fluxt)
+      call histwrite_phy(nid_mth,.false.,"fluxdyn",itau_w,flux_dyn)
+      call histwrite_phy(nid_mth,.false.,"fluxajs",itau_w,flux_ajs)
+c     call histwrite_phy(nid_mth,.false.,"fluxec",itau_w,flux_ec)
 
 c --------------