Changeset 3167 for LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90
- Timestamp:
- Jan 29, 2018, 4:07:49 PM (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90
r3165 r3167 977 977 CALL histwrite_phy(o_dnwd, dnwd) 978 978 CALL histwrite_phy(o_dnwd0, dnwd0) 979 IF (vars_defined) zx_tmp_fi2d=float(itau_con)/float(itap) 979 !! IF (vars_defined) zx_tmp_fi2d=float(itau_con)/float(itap) 980 !! CALL histwrite_phy(o_ftime_con, zx_tmp_fi2d) 981 IF (vars_defined) THEN 982 zx_tmp_fi2d(:) = 0. 983 DO k=1,klev 984 WHERE (ptconv(:,k)) zx_tmp_fi2d(:) = 1. 985 ENDDO 986 ENDIF 980 987 CALL histwrite_phy(o_ftime_con, zx_tmp_fi2d) 981 988 IF (vars_defined) THEN 982 989 IF (iflag_thermals>=1)THEN 983 zx_tmp_fi3d= dnwd+dnwd0+upwd+fm_therm(:,1:klev)990 zx_tmp_fi3d=-dnwd+dnwd0+upwd+fm_therm(:,1:klev) 984 991 ELSE 985 zx_tmp_fi3d= dnwd+dnwd0+upwd992 zx_tmp_fi3d=-dnwd+dnwd0+upwd 986 993 ENDIF 987 994 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.