Changeset 1957 for trunk/LMDZ.TITAN/libf
- Timestamp:
- Jul 2, 2018, 12:47:51 AM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.TITAN/libf/phytitan/physiq_mod.F90
r1956 r1957 1586 1586 CALL send_xios_field("area",cell_area) 1587 1587 CALL send_xios_field("pphi",pphi) 1588 CALL send_xios_field("pphis",phisfi) 1588 1589 1589 1590 CALL send_xios_field("ps",ps) 1590 1591 CALL send_xios_field("tsurf",tsurf) 1592 1593 if(enertest) then 1594 if (calldifv) then 1595 CALL send_xios_field("sensibFlux",sensibFlux) 1596 endif 1597 endif 1591 1598 1592 1599 CALL send_xios_field("temp",zt)
Note: See TracChangeset
for help on using the changeset viewer.