Changeset 1070b4c in flexpart.git for src/outgrid_init.f90

Timestamp:

Aug 27, 2020, 9:51:56 PM (4 years ago)

Author:

Espen Sollum ATMOS <eso@…>

Branches:

GFS_025, dev

Children:

b0ecb61

Parents:

8c0ae9b (diff), a803521 (diff)
Note: this is a merge changeset, the changes displayed below correspond to the merge itself.
Use the (diff) links above to see all the changes relative to each parent.

Message:

Merge branch 'espen' into dev

File:

• src/outgrid_init.f90 (modified) (1 diff)

src/outgrid_init.f90

@@ -297 +297 @@
          maxpointspec_act),stat=stat)
     if (stat.ne.0) write(*,*)'ERROR: could not allocate init_cond'
+    if (mpi_mode.gt.0) then
+      if (lroot) then
+        allocate(init_cond0(0:numxgrid-1,0:numygrid-1,numzgrid,maxspec, &
+             maxpointspec_act),stat=stat)
+      else
+        allocate(init_cond0(1,1,1,1,1))
+      end if
+    end if
   endif