From d3517899d5f0684c2c15f039c439cb5a31b4657e Mon Sep 17 00:00:00 2001 From: Dustin Swales Date: Thu, 30 Jan 2020 15:47:43 -0700 Subject: [PATCH] Move allocation statement into master processor only. --- physics/rrtmgp_lw_gas_optics.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/physics/rrtmgp_lw_gas_optics.F90 b/physics/rrtmgp_lw_gas_optics.F90 index a4d11207a..3a528ef25 100644 --- a/physics/rrtmgp_lw_gas_optics.F90 +++ b/physics/rrtmgp_lw_gas_optics.F90 @@ -154,7 +154,7 @@ subroutine rrtmgp_lw_gas_optics_init(rrtmgp_root_dir, rrtmgp_lw_file_gas, rrtmgp status = nf90_inquire_dimension(ncid, dimid, len = nminor_absorber_intervals_upper) status = nf90_inq_dimid( ncid, 'temperature_Planck', dimid) status = nf90_inquire_dimension(ncid, dimid, len = ninternalSourcetemps) - endif + ! Allocate space for arrays allocate(gas_names(nabsorbers)) allocate(scaling_gas_lower(nminor_absorber_intervals_lower)) @@ -186,7 +186,7 @@ subroutine rrtmgp_lw_gas_optics_init(rrtmgp_root_dir, rrtmgp_lw_file_gas, rrtmgp allocate(temp4(nminor_absorber_intervals_upper)) allocate(totplnk(ninternalSourcetemps, nbnds)) allocate(planck_frac(ngpts_lw, nmixingfracs, npress+1, ntemps)) - if (mpirank .eq. mpiroot) then + ! Read in fields from file write (*,*) 'Reading RRTMGP longwave k-distribution data ... ' status = nf90_inq_varid(ncid, 'gas_names', varID)