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

Minor edits

parent 1d072c0f
......@@ -1650,6 +1650,8 @@ contains
else
write(*,*) "#### mpi_mod::mpif_gf_send_vars_async> ERROR: &
& invalid memstat"
mind=-1
stop
end if
if (mp_dev_mode) then
......@@ -2025,6 +2027,8 @@ contains
else
write(*,*) "#### mpi_mod::mpif_gf_send_vars_nest_async> ERROR: &
& invalid memstat"
mind=-1
stop
end if
if (mp_dev_mode) then
......
......@@ -66,9 +66,9 @@ subroutine readspecies(id_spec,pos_spec)
character(len=16) :: pspecies
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
integer :: readerror
integer :: readerror, pspec_ass
! declare namelist
namelist /species_params/ &
......
Markdown is supported
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