Commit aa8c34a4 authored by Espen Sollum's avatar Espen Sollum
Browse files

Minor edits

parent 1d072c0f
...@@ -1650,6 +1650,8 @@ contains ...@@ -1650,6 +1650,8 @@ contains
else else
write(*,*) "#### mpi_mod::mpif_gf_send_vars_async> ERROR: & write(*,*) "#### mpi_mod::mpif_gf_send_vars_async> ERROR: &
& invalid memstat" & invalid memstat"
mind=-1
stop
end if end if
if (mp_dev_mode) then if (mp_dev_mode) then
...@@ -2025,6 +2027,8 @@ contains ...@@ -2025,6 +2027,8 @@ contains
else else
write(*,*) "#### mpi_mod::mpif_gf_send_vars_nest_async> ERROR: & write(*,*) "#### mpi_mod::mpif_gf_send_vars_nest_async> ERROR: &
& invalid memstat" & invalid memstat"
mind=-1
stop
end if end if
if (mp_dev_mode) then if (mp_dev_mode) then
......
...@@ -66,9 +66,9 @@ subroutine readspecies(id_spec,pos_spec) ...@@ -66,9 +66,9 @@ subroutine readspecies(id_spec,pos_spec)
character(len=16) :: pspecies character(len=16) :: pspecies
real :: pdecay, pweta_gas, pwetb_gas, preldiff, phenry, pf0, pdensity, pdquer real :: pdecay, pweta_gas, pwetb_gas, preldiff, phenry, pf0, pdensity, pdquer
real :: pdsigma, pdryvel, pweightmolar, pohcconst, pohdconst, pohnconst, pspec_ass, pkao real :: pdsigma, pdryvel, pweightmolar, pohcconst, pohdconst, pohnconst, pkao
real :: pcrain_aero, pcsnow_aero, pccn_aero, pin_aero real :: pcrain_aero, pcsnow_aero, pccn_aero, pin_aero
integer :: readerror integer :: readerror, pspec_ass
! declare namelist ! declare namelist
namelist /species_params/ & namelist /species_params/ &
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment