Sola/GEOS-Chem-adjoint-v35-note
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Add files via upload

Browse Source
This commit is contained in:
Xuesong (Steve)
2018-08-28 00:43:47 -04:00
committed by GitHub
parent b9acb75507
commit e17feeaad3
96 changed files with 68216 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
code/CMN_VEL Normal file
View File

@ -0,0 +1,21 @@
! $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)