Changeset b0434e1 in flexpart.git for src/readreleases.f90

Timestamp:

Feb 4, 2016, 9:38:22 AM (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:

db712a8

Parents:

9484483

Message:

Initial code to handle cloud water in nested wind fields (it is not completely implemented in this commit)

File:

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

src/readreleases.f90

@@ -225 +225 @@
   if (stat.ne.0) write(*,*)'ERROR: could not allocate specnum_rel2'
   specnum_rel2=specnum_rel(1:nspec)
-  deallocate(specnum_rel)
+  deallocate(specnum_rel) 
+! eso: BUG, crashes here for nspec=12 and maxspec=6,
+! TODO: catch error and exit
   allocate(specnum_rel(nspec),stat=stat)
   if (stat.ne.0) write(*,*)'ERROR: could not allocate specnum_rel'