Changeset f3054ea in flexpart.git for src/outgrid_init.f90

Timestamp:

Aug 27, 2020, 8:00:15 PM (4 years ago)

Author:

Espen Sollum <eso@…>

Branches:

GFS_025, dev

Children:

4ab2fbf

Parents:

a756649

Message:

Changed from grib_api to eccodes. MPI: implemented linversionout=1; fixed calculation of grid_initial fields.

File:

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

src/outgrid_init.f90

@@ -315 +315 @@
          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