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

src/FLEXPART_MPI.f90

@@ -63 +63 @@
 ! Initialize arrays in com_mod 
 !*****************************
-  call com_mod_allocate(maxpart_mpi)
+  call com_mod_allocate_part(maxpart_mpi)
 
   ! Generate a large number of random numbers
@@ -195 +195 @@
   endif  
   call readavailable
-!end if
+
+  ! If nested wind fields are used, allocate arrays
+  !************************************************
+
+  if (verbosity.gt.0 .and. lroot) then
+    write(*,*) 'call com_mod_allocate_nests'
+  endif
+  call com_mod_allocate_nests
 
 ! Read the model grid specifications,
@@ -445 +452 @@
 ! NIK 16.02.2005 
   if (lroot) then
-    call MPI_Reduce(MPI_IN_PLACE, tot_blc_count, 1, MPI_INTEGER, MPI_SUM, id_root, &
+    call MPI_Reduce(MPI_IN_PLACE, tot_blc_count, 1, MPI_INTEGER8, MPI_SUM, id_root, &
          & mp_comm_used, mp_ierr)
-    call MPI_Reduce(MPI_IN_PLACE, tot_inc_count, 1, MPI_INTEGER, MPI_SUM, id_root, &
+    call MPI_Reduce(MPI_IN_PLACE, tot_inc_count, 1, MPI_INTEGER8, MPI_SUM, id_root, &
          & mp_comm_used, mp_ierr)
   else
     if (mp_partgroup_pid.ge.0) then ! Skip for readwind process 
-      call MPI_Reduce(tot_blc_count, tot_blc_count, 1, MPI_INTEGER, MPI_SUM, id_root, &
+      call MPI_Reduce(tot_blc_count, tot_blc_count, 1, MPI_INTEGER8, MPI_SUM, id_root, &
            & mp_comm_used, mp_ierr)
-      call MPI_Reduce(tot_inc_count, tot_inc_count, 1, MPI_INTEGER, MPI_SUM, id_root, &
+      call MPI_Reduce(tot_inc_count, tot_inc_count, 1, MPI_INTEGER8, MPI_SUM, id_root, &
            & mp_comm_used, mp_ierr)
     end if