Changeset 1398 for LMDZ4/trunk/libf/phylmd/write_histhfNMC.h
- Timestamp:
- Jun 4, 2010, 6:56:18 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk/libf/phylmd/write_histhfNMC.h
r1374 r1398 33 33 DO i=1, klon 34 34 IF(tnondef(i,k,3).NE.missing_val) THEN 35 zx_tmp_fiNC(i,k) = (100.*tnondef(i,k,3))/ ecrit_hf2mth35 zx_tmp_fiNC(i,k) = (100.*tnondef(i,k,3))/freq_moyNMC(3) 36 36 ELSE 37 37 zx_tmp_fiNC(i,k) = missing_val
Note: See TracChangeset
for help on using the changeset viewer.