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:40:44 -04:00
committed by GitHub
parent c7ac7673cc
commit bc4969bb71
53 changed files with 78152 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

68
code/obs_operators/DIM.INC Normal file
View File

@ -0,0 +1,68 @@
INTEGER NTRAC ! Number of tracers
INTEGER NX ! State space
INTEGER NY ! Measurment space
INTEGER NYY
INTEGER IIGR ! Gridsize of data
INTEGER JJGR ! Gridsize of data
INTEGER LLGR ! Gridsize of data
INTEGER II1 ! start index for i-grid
INTEGER II2 ! end index for i-grid
INTEGER JJ1 ! start index for j-grid
INTEGER JJ2 ! end index for j-grid
INTEGER NAS ! number of pts in nmc asia grid
REAL LON_lim1 ! min longitude box
REAL LON_lim2 ! max longitude box
REAL LAT_lim1 ! min latitude box
REAL LAT_lim2 ! max latitude box
PARAMETER ( NTRAC = 1 ) ! Tagged tracers (+1 for total CO)
! PARAMETER ( NX = 8 )
PARAMETER ( NX = 14 )
PARAMETER ( NY = 2500 ) ! MAX due to svdcmp.f
PARAMETER ( NYY = 5000 ) ! MAX due to svdcmp.f
! Window #1 :
! lon [180W ; 15W]
! lat [ 0N ; 76N]
! PARAMETER ( IIGR = 67 ) ! 67 = [180W - 15W]
! PARAMETER ( JJGR = 39 ) ! 34 = [0N - 76N]
! PARAMETER ( LLGR = 1 )
! PARAMETER ( II1 = 1 ) ! 0 = 180W
! PARAMETER ( II2 = 67 ) ! 66 = 15W
! PARAMETER ( JJ1 = 47 ) ! 50 = 0N
! PARAMETER ( JJ2 = 85 ) ! 83 = 76N
! PARAMETER ( NAS = 2613 ) ! IIGR*JJGR
! Window #2 : [reduced window]
! lon [167.5W ; 45W]
! lat [ 16N ; 70N]
! PARAMETER ( IIGR = 50 )
! PARAMETER ( JJGR = 28 )
! PARAMETER ( LLGR = 1 )
! PARAMETER ( II1 = 6 )
! PARAMETER ( II2 = 55 )
! PARAMETER ( JJ1 = 54 )
! PARAMETER ( JJ2 = 81 )
! PARAMETER ( NAS = 1400 ) ! IIGR*JJGR
! Window #3 : [reduced window for Alaska and Canada]
! lon [167.5W ; 45W]
! lat [ 30N ; 70N]
PARAMETER ( IIGR = 50 )
PARAMETER ( JJGR = 21 )
PARAMETER ( LLGR = 1 )
PARAMETER ( II1 = 6 )
PARAMETER ( II2 = 55 )
PARAMETER ( JJ1 = 61 )
PARAMETER ( JJ2 = 81 )
PARAMETER ( NAS = 1050 ) ! IIGR*JJGR
! Read MOPITT data and model outputs directly: (timedep inversion)
PARAMETER (LAT_Lim1 = 30.)
PARAMETER (LAT_Lim2 = 75.)
PARAMETER (LON_Lim1 = -167.5)
PARAMETER (LON_Lim2 = -30.)