Changeset 1336 for LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/cva_driver.F
- Timestamp:
- Apr 1, 2010, 2:27:52 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/cva_driver.F
r1299 r1336 153 153 real Ma1(len,nd) 154 154 real mip1(len,nd) 155 real Vprecip1(len,nd) 155 ! real Vprecip1(len,nd) 156 real Vprecip1(len,nd+1) 156 157 real upwd1(len,nd) 157 158 real dnwd1(len,nd) … … 406 407 real tps(nloc,klev), qprime(nloc), tprime(nloc) 407 408 real precip(nloc) 408 real Vprecip(nloc,klev) 409 ! real Vprecip(nloc,klev) 410 real Vprecip(nloc,klev+1) 409 411 real tra(nloc,klev,ntra), trap(nloc,klev,ntra) 410 412 real ftra(nloc,klev,ntra), traent(nloc,klev,klev,ntra) … … 492 494 call zilch(Ma1 ,nword2) 493 495 call zilch(mip1 ,nword2) 494 call zilch(Vprecip1,nword2) 496 ! call zilch(Vprecip1,nword2) 497 Vprecip1=0. 495 498 call zilch(upwd1 ,nword2) 496 499 call zilch(dnwd1 ,nword2)
Note: See TracChangeset
for help on using the changeset viewer.