Changeset 6b22af9 in flexpart.git for src/outgrid_init.f90

Timestamp:

Nov 20, 2015, 5:41:29 PM (8 years ago)

Author:

Espen Sollum ATMOS <eso@…>

Branches:

master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie

Children:

a1f4dd6

Parents:

df967a99

Message:

Local branch for espen, working with OpenMP version of readwind

File:

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

src/outgrid_init.f90

@@ -205 +205 @@
     if (stat.ne.0) write(*,*)'ERROR: could not allocate gridunc'
   if (ldirect.gt.0) then
-  allocate(wetgridunc(0:numxgrid-1,0:numygrid-1,maxspec, &
+    allocate(wetgridunc(0:numxgrid-1,0:numygrid-1,maxspec, &
        maxpointspec_act,nclassunc,maxageclass),stat=stat)
-    if (stat.ne.0) write(*,*)'ERROR: could not allocate gridunc'
+    if (stat.ne.0) write(*,*)'ERROR: could not allocate wetgridunc'
   allocate(drygridunc(0:numxgrid-1,0:numygrid-1,maxspec, &
        maxpointspec_act,nclassunc,maxageclass),stat=stat)
-    if (stat.ne.0) write(*,*)'ERROR: could not allocate gridunc'
+    if (stat.ne.0) write(*,*)'ERROR: could not allocate drygridunc'
   endif