Skip to content
Snippets Groups Projects
Commit 6d73f55d authored by ronesy's avatar ronesy
Browse files

initialize cakpri as zero in get_oco2.f90

parent f44d0c97
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
prep_satellite/get_oco2.f90
+ 1
− 0
View file @ 6d73f55d
...@@ -368,6 +368,7 @@ subroutine get_oco2(settings) ...@@ -368,6 +368,7 @@ subroutine get_oco2(settings)
! calculate column prior convolved with averaging kernel (units ppbv) ! calculate column prior convolved with averaging kernel (units ppbv)
allocate( cakpri(maxretr), stat=ierr ) allocate( cakpri(maxretr), stat=ierr )
cakpri(:) = 0.
do nm = 1, nretr do nm = 1, nretr
do nl = 1, nlevel do nl = 1, nlevel
cakpri(nm) = cakpri(nm) + vdryair_out(nm,nl)*vapri_out(nm,nl)*cak_out(nm,nl) cakpri(nm) = cakpri(nm) + vdryair_out(nm,nl)*vapri_out(nm,nl)*cak_out(nm,nl)
......
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment