Move initialization of modchemistry before that of surface

dalesteam · Sep 7, 2019 · 31a7b15 · 31a7b15
1 parent 4f35105
commit 31a7b15
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/src/modstartup.f90 b/src/modstartup.f90
@@ -77,6 +77,7 @@ subroutine startup
     use modsubgrid,        only : initsubgrid
     use mpi,               only : MPI_COMM_WORLD,MPI_INTEGER,MPI_LOGICAL,MPI_CHARACTER
     use modmpi,            only : initmpi,my_real,myid,nprocx,nprocy,mpierr
+    use modchem,           only : initchem
 
     implicit none
     integer :: ierr
@@ -253,6 +254,7 @@ subroutine startup
     call initboundary
     call initthermodynamics
     call initradiation
+    call initchem
     call initsurface
     call initsubgrid
     call initpois

diff --git a/src/program.f90 b/src/program.f90
@@ -183,7 +183,7 @@ program DALES      !Version 4.0.0alpha
   call initbulkmicrostat
   call initbudget
   !call initstressbudget
-  call initchem
+! call initchem
   call initheterostats
   call initcanopy