Changeset 1000 for LMDZ4/trunk/libf/dyn3dpar/covnat_p.F
- Timestamp:
- Oct 6, 2008, 10:43:22 AM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk/libf/dyn3dpar/covnat_p.F
r774 r1000 66 66 67 67 DO l = 1,klevel 68 DO ij = 1,ip1jm68 DO ij = ijb,ije 69 69 vnat( ij,l ) = vcov( ij,l ) / cv(ij) 70 70 ENDDO
Note: See TracChangeset
for help on using the changeset viewer.