Changeset 1299 for LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/hines_gwd.F
- Timestamp:
- Jan 20, 2010, 3:27:21 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/hines_gwd.F
r1279 r1299 847 847 C Use horizontal isotropy to calculate azimuthal variances at bottom level. 848 848 C 849 AZFAC = 1. / FLOAT(NAZ)849 AZFAC = 1. / REAL(NAZ) 850 850 DO 20 N = 1,NAZ 851 851 DO 10 I = IL1,IL2
Note: See TracChangeset
for help on using the changeset viewer.