22 lines
811 B
Plaintext
22 lines
811 B
Plaintext
! $Id: CMN_VEL,v 1.1 2009/06/09 21:51:53 daven Exp $
|
|
!
|
|
!-----COMMON BLOCKS FOR DEPVEL
|
|
!
|
|
! NOTES:
|
|
! (1 ) Changed RCS ID tag comment character from "C" to "!" to allow freeform
|
|
! compilation. Also added & continuation characters in column 73
|
|
! to allow header files to be included in F90 freeform files.
|
|
! (bmy, 6/25/02)
|
|
! (2 ) Commented out internal variables that are local to DEPVEL since
|
|
! these are now contained within "drydep_mod.f" (bmy, 11/21/02)
|
|
|
|
! NOTE: This should be split off into a "landtype_mod.f"
|
|
INTEGER IJREG,IJLAND,IJUSE
|
|
COMMON /DEPSV3/ IJREG(MAXIJ),IJLAND(MAXIJ,NTYPE), &
|
|
& IJUSE(MAXIJ,NTYPE)
|
|
|
|
! NOTE: This should be split off into a "lai_mod.f"
|
|
REAL*8 XYLAI
|
|
COMMON /DEPSV4/ XYLAI(MAXIJ,NTYPE)
|
|
|