source: lmdz_wrf/trunk/WRFV3/lmdz/zilch.F90 @ 1561

Last change on this file since 1561 was 1, checked in by lfita, 11 years ago
  • -- --- Opening of the WRF+LMDZ coupling repository --- -- -

WRF: version v3.3
LMDZ: version v1818

More details in:

File size: 219 bytes
Line 
1!
2! $Header$
3!
4      subroutine zilch(x,m)
5!c
6!c Zero the real array x dimensioned m.
7!c
8      implicit none
9!c
10      integer m,i
11      real x(m)
12      do 1 i=1,m
13      x(i)= 0.0 
14    1 continue
15      return
16      end
Note: See TracBrowser for help on using the repository browser.