1016 |
CALL histwrite_phy("d_t_ec", d_t_ec) |
CALL histwrite_phy("d_t_ec", d_t_ec) |
1017 |
CALL histwrite_phy("dtsw0", heat0 / 86400.) |
CALL histwrite_phy("dtsw0", heat0 / 86400.) |
1018 |
CALL histwrite_phy("dtlw0", - cool0 / 86400.) |
CALL histwrite_phy("dtlw0", - cool0 / 86400.) |
1019 |
|
call histwrite_phy("pmflxr", pmflxr(:, :llm)) |
1020 |
CALL histwrite_phy("msnow", sum(fsnow * pctsrf, dim = 2)) |
CALL histwrite_phy("msnow", sum(fsnow * pctsrf, dim = 2)) |
1021 |
call histwrite_phy("qsurf", sum(fqsurf * pctsrf, dim = 2)) |
call histwrite_phy("qsurf", sum(fqsurf * pctsrf, dim = 2)) |
1022 |
call histwrite_phy("flat", zxfluxlat) |
call histwrite_phy("flat", zxfluxlat) |