Changeset 1957 for trunk/LMDZ.TITAN/libf/phytitan/physiq_mod.F90

Timestamp:

Jul 2, 2018, 12:47:51 AM (6 years ago)

Author:

jvatant

Message:

Add some XIOS outputs and update deftank xml list of outputs
--JVO

File:

• trunk/LMDZ.TITAN/libf/phytitan/physiq_mod.F90 (modified) (1 diff)

trunk/LMDZ.TITAN/libf/phytitan/physiq_mod.F90

@@ -1586 +1586 @@
       CALL send_xios_field("area",cell_area)
       CALL send_xios_field("pphi",pphi)
+      CALL send_xios_field("pphis",phisfi)
       
       CALL send_xios_field("ps",ps)
       CALL send_xios_field("tsurf",tsurf)
+
+      if(enertest) then
+         if (calldifv) then
+            CALL send_xios_field("sensibFlux",sensibFlux)
+         endif
+      endif
 
       CALL send_xios_field("temp",zt)