Changeset b0434e1 in flexpart.git for src/FLEXPART.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/FLEXPART.f90 (modified) (2 diffs)

src/FLEXPART.f90

@@ -56 +56 @@
   ! Initialize arrays in com_mod
   !*****************************
-  call com_mod_allocate(maxpart)
-
+  call com_mod_allocate_part(maxpart)
+  
 
   ! Generate a large number of random numbers
@@ -171 +171 @@
   call readavailable
 
+  ! If nested wind fields are used, allocate arrays
+  !************************************************
+
+  if (verbosity.gt.0) then
+    write(*,*) 'call com_mod_allocate_nests'
+  endif
+  call com_mod_allocate_nests
+
   ! Read the model grid specifications,
   ! both for the mother domain and eventual nests