Changeset 1182
- Timestamp:
- Jun 16, 2009, 1:59:42 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4-dev/libf/phylmd/phys_output_write.h
r1150 r1182 219 219 IF (o_LWdn200%flag(iff)<=lev_files(iff)) THEN 220 220 CALL histwrite_phy(nid_files(iff), 221 s o_LWdn200%name,itau_w, zx_tmp_fi2d)221 s o_LWdn200%name,itau_w,LWdn200) 222 222 ENDIF 223 223 224 224 IF (o_LWdn200clr%flag(iff)<=lev_files(iff)) THEN 225 225 CALL histwrite_phy(nid_files(iff), 226 s o_LWdn200clr%name,itau_w, zx_tmp_fi2d)226 s o_LWdn200clr%name,itau_w,LWdn200clr) 227 227 ENDIF 228 228
Note: See TracChangeset
for help on using the changeset viewer.