Merge remote-tracking branch 'origin/release-v4.5.2'
[WRF.git] / var / convertor / kma_wave2grid / RESET.inc
blob57c90d727d3c4c3fb597252d48d0aa455edf2fb3
1       SUBROUTINE RESET (DATA,N)
2 Crizvi      REAL*4 DATA(N)
3       REAL DATA(N)
4       DO 100 I=1,N
5        DATA(I)=0.0
6   100 CONTINUE
8       RETURN
9       END SUBROUTINE RESET