Changeset a7167e4 in flexpart.git for src/netcdf_output_mod.f90

Timestamp:

Sep 9, 2020, 10:29:08 AM (4 years ago)

Author:

Sabine <sabine.eckhardt@…>

Branches:

dev

Children:

03adec6

Parents:

969c1fe

Message:

bugfix: netcdffluxfield init, flux through upper, southern and western boundary

File:

• src/netcdf_output_mod.f90 (modified) (1 diff, 1 prop)

src/netcdf_output_mod.f90

@@ -1655 +1655 @@
   call nf90_err(nf90_close(ncid))
 
+  ! Reinitialization of grid
+  !*************************
+
+  do ks=1,nspec
+    do kp=1,maxpointspec_act
+      do jy=0,numygrid-1
+        do ix=0,numxgrid-1
+          do kz=1,numzgrid
+            do nage=1,nageclass
+              do i=1,6
+                flux(i,ix,jy,kz,ks,kp,nage)=0.
+              end do
+            end do
+          end do
+        end do
+      end do
+    end do
+  end do
+
+
 end subroutine fluxoutput_netcdf