Parent Directory
| 
Revision Log
Deleted files cvparam3.f90 and nuagecom.f90. Moved variables from module cvparam3 to module cv3_param_m. Moved variables rad_chau1 and rad_chau2 from module nuagecom to module conf_phys_m. Read clesphys2_nml from conf_phys instead of gcm. Removed argument iflag_con from several procedures. Access module variable instead.
| 1 | ! |
| 2 | ! $Header: /home/cvsroot/LMDZ4/libf/phylmd/zilch.F,v 1.1.1.1 2004/05/19 12:53:09 lmdzadmin Exp $ |
| 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, intent(in):: m |
| 11 | integer i |
| 12 | real x(m) |
| 13 | do 1 i=1,m |
| 14 | x(i)= 0.0 |
| 15 | 1 continue |
| 16 | return |
| 17 | end |
| ViewVC Help | |
| Powered by ViewVC 1.1.21 |