Scheduled Downtime
On Friday 21 April 2023 @ 5pm MT, this website will be down for maintenance and expected to return online the morning of 24 April 2023 at the latest

convert_edgar_to_aer.f90 in prep_chem_src_1.4 compiling

This post was from a previous version of the WRF&MPAS-A Support Forum. New replies have been disabled and if you have follow up questions related to this post, then please start a new thread from the forum home page.

quwj0228

New member
Dear colleague,

When compiling prep_chem_src_1.4, I got the following error.

I also attached the related convert_edgar_to_aer.f90.

Could you please give some clue on how to solve this?

Thanks a lot in advance.


Wenjun



error:
################################################################################################
login4(1331)$ make OPT=intel CHEM=RADM_WRF_FIM
cp -f ../../src/convert_edgar_to_aer.f90 convert_edgar_to_aer.f90
ifort -c -fpp -DRADM_WRF_FIM -O2 -I../../aux_src/utils/include -I/opt/apps/intel17/netcdf/4.3.3.1/x86_64/include -I/opt/apps/intel17/hdf5/1.8.16/x86_64/include convert_edgar_to_aer.f90
convert_edgar_to_aer.f90(44): error #6054: A CHARACTER data type is required in this context. [SPC_NAME]
emiss_spc_name(iespc,antro) = spc_name(isp)
-------------------------------------------^
convert_edgar_to_aer.f90(55): error #6054: A CHARACTER data type is required in this context. [SPC_NAME]
emiss_spc_name(iespc,antro) = spc_name(isp)
-------------------------------------------^
compilation aborted for convert_edgar_to_aer.f90 (code 1)
make: *** [convert_edgar_to_aer.o] Error 1
################################################################################################




convert_edgar_to_aer.f90
################################################################################################
!###############################################################################!
! CCATT-BRAMS/MCGA-CPTEC/WRF emission model CPTEC/INPE !
! Version 1.0.0: 12/nov/2010 !
! Coded by Saulo Freitas and Karla Longo !
! Contact: gmai@cptec.inpe.br - http://meioambiente.cptec.inpe.br !
!###############################################################################!

subroutine convert_edgar_to_aer(isp,iespc,ident)
!use chem1_list
use emiss_vars_emissions
use edgar_emissions, only: edgar_nspecies=>nspecies&
,edgar_spc_name=>spc_name&
,edgar_g &
,CO &
,NOX &
,CO2 &
,CH4 &
,SO2 &
,N2O &
,SF6 &
,NMVOC &
,SO4


!implicit none ! < necessario para outros esquemas
integer, intent(in) :: isp
integer, intent(inout) :: iespc,ident
!character (len=*), intent(inout) :: spc_name !kml



IF(isp .GT. nspecies) RETURN

!-- edgar | aer


!print*,'dentro conv=',isp,spc_name(isp)


! SO4 =>
if(spc_name(isp) == 'SO41') then
ident = SO41
iespc=iespc+1
emiss_spc_name(iespc,antro) = spc_name(isp)
emiss_g(iespc)%src_antro:),:,1) = 0.5*edgar_g(SO4)%src:),:,1)!*
found_emiss_spc(iespc,antro) = 1
print*,'==> converted from edgar - found for ',spc_name(isp)
return
endif

! SO4 => ORA2 (acetic acid and higher acids)
if(spc_name(isp) == 'SO42') then
ident = SO42
iespc=iespc+1
emiss_spc_name(iespc,antro) = spc_name(isp)
emiss_g(iespc)%src_antro:),:,1) = 0.5*edgar_g(SO4)%src:),:,1)!*
found_emiss_spc(iespc,antro) = 1
print*,'==> converted from edgar - found for ',spc_name(isp)
return
endif
!* ref: Stier et al., The aerosol-climate model ECHAM5-HAM. Atmos.
! Chem. Phys., 5,1125-1156,2005.
################################################################################################
 
Top