From b7970e20e7cfd4d275e849c3d7719a0fdf8eae46 Mon Sep 17 00:00:00 2001 From: Edward Betts Date: Fri, 1 Sep 2017 19:42:37 +0100 Subject: [PATCH] correct spelling mistake --- source/abundances.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/source/abundances.f90 b/source/abundances.f90 index 1673d23..5a9ec31 100644 --- a/source/abundances.f90 +++ b/source/abundances.f90 @@ -1370,7 +1370,7 @@ subroutine abundances(linelist, listlength, iteration_result, meanextinction, ca NeabundRL = 0.d0 endif -!rewrite all the ICFs so that they are simply the factor by which the summed ionic abundances are multipled to get the total elemental abundance +!rewrite all the ICFs so that they are simply the factor by which the summed ionic abundances are multiplied to get the total elemental abundance if (ciiCELabund + ciiiCELabund + civCELabund .gt. 0.d0) CELicfC = CabundCEL/(ciiCELabund + ciiiCELabund + civCELabund) if (niiCELabund + niiiCELabund + nivCELabund + nvCELabund .gt. 0.d0) CELicfN = NabundCEL/(niiCELabund + niiiCELabund + nivCELabund + nvCELabund)