Fixed vertical-ordering of Cloudsat subcolumn reflectivity, from SFC-…

…2-TOA to TOA-2-SFC.
CFMIP · Sep 25, 2018 · 07e7e8c · 07e7e8c
1 parent 90f42d4
commit 07e7e8c
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/cosp.F90 b/src/cosp.F90
@@ -708,7 +708,7 @@ function COSP_SIMULATOR(cospIN,cospgridIN,cospOUT,start_idx,stop_idx,debug)
        enddo
        ! Store output (if requested)
        if (associated(cospOUT%cloudsat_Ze_tot)) then
-          cospOUT%cloudsat_Ze_tot(ij:ik,:,:) = cloudsatDBZe(:,:,cloudsatIN%Nlevels:1:-1)
+          cospOUT%cloudsat_Ze_tot(ij:ik,:,:) = cloudsatDBZe(:,:,1:cloudsatIN%Nlevels)
        endif
     endif