Changeset 32b49c3 in flexpart.git for src/mpi_mod.f90

Timestamp:

Apr 13, 2016, 11:57:08 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:

341f4b7

Parents:

e31b3b5

Message:

Parallel version can now save/restart simulations with IPOUT/IPIN

File:

• src/mpi_mod.f90 (modified) (7 diffs)

src/mpi_mod.f90

@@ -165 +165 @@
 !***********************************************************************
     use par_mod, only: maxpart, numwfmem, dep_prec
-    use com_mod, only: mpi_mode
+    use com_mod, only: mpi_mode, verbosity
 
     implicit none
@@ -386 +386 @@
 ! Dynamic allocation of arrays (in serial code these have size maxpart)
 !
+! Not in use anymore, moved to com_mod for interoperability with serial version
+! 
+! TODO: remove 
 !*******************************************************************************
     use com_mod
@@ -1043 +1046 @@
 !***********************************************************************
     use com_mod
-    use par_mod, only: numwfmem
+    use par_mod,only: numwfmem
 
     implicit none
@@ -1226 +1229 @@
     integer :: d2s1 = nxmax*nymax
     integer :: d2s2 = nxmax*nymax*maxspec
-    integer :: d1s1 = maxwf
+!    integer :: d1s1 = maxwf
 
 !*******************************************************************************
@@ -1430 +1433 @@
 ! last read was asynchronous to index 2, 3 is free
       mind=3
+    else
+! illegal state
+      write(*,*) 'mpi_mod> FLEXPART ERROR: Illegal memstat value. Exiting.'
+      stop
     end if
 
@@ -1602 +1609 @@
 !
 !*******************************************************************************
-    use com_mod, only: readclouds
+!    use com_mod,only: readclouds
 
     implicit none
 
 
-    integer :: n_req
-    integer :: i
+    integer :: n_req !,i
 
 !***********************************************************************
@@ -1958 +1964 @@
     implicit none
 
-    integer :: ip,j,r
+    integer :: ip !,j,r
 
 !***********************************************************************