Changeset 20 for trunk/src/outgrid_init.f90

Timestamp:

Dec 23, 2013, 6:23:38 PM (11 years ago)

Author:

igpis

Message:

move version 9.1.8 form branches to trunk. Contributions from HSO, saeck, pesei, NIK, RT, XKF, IP and others

File:

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

trunk/src/outgrid_init.f90

@@ -247 +247 @@
        max(numygrid,numygridn)*numzgrid),stat=stat)
     if (stat.ne.0) write(*,*)'ERROR: could not allocate gridunc'
+
+   allocate(sparse_dump_u(max(numxgrid,numxgridn)* &
+       max(numygrid,numygridn)*numzgrid),stat=stat)
+        if (stat.ne.0) write(*,*)'ERROR: could not allocate gridunc'
+
   allocate(sparse_dump_i(max(numxgrid,numxgridn)* &
        max(numygrid,numygridn)*numzgrid),stat=stat)