c**** NCF_WRT_GLOBAL_SA c subroutine ncf_wrt_global_sa(action,iounit) use ncf_iomod use grid use filunit use tracer implicit none c c----CAMx v7Beta6 190902 c c----------------------------------------------------------------------- c Description: c----------------------------------------------------------------------- c c This routine writes the Global attributes that are specific to c SA to the NetCDF file c c Copyright 1996 - 2018 c Ramboll c Argument description: c Inputs: c action C name of file to open c iounit I NetCDF file ID of file c Outputs: c c----------------------------------------------------------------------- c LOG: c----------------------------------------------------------------------- c c 02/20/17 --gwilson-- Original development c c----------------------------------------------------------------------- c Include files: c----------------------------------------------------------------------- c include 'netcdf.inc' include 'flags.inc' include 'namelist.inc' c c----------------------------------------------------------------------- c Argument declarations: c----------------------------------------------------------------------- c character*(*) action integer iounit c c----------------------------------------------------------------------- c External functions: c----------------------------------------------------------------------- c integer istrln c c----------------------------------------------------------------------- c Local variables: c----------------------------------------------------------------------- c integer ierr c c----------------------------------------------------------------------- c Entry point: c----------------------------------------------------------------------- c ierr = nf_put_att_text(iounit, NF_GLOBAL, 'PROBING_TOOL', 10, tectyp) if( ierr .NE. NF_NOERR ) goto 7000 c if( SA_Summary_Output ) then ierr = nf_put_att_int(iounit, NF_GLOBAL, 'SUMMARY_OUTPUT', & NF_INT, 1, 1) else ierr = nf_put_att_int(iounit, NF_GLOBAL, 'SUMMARY_OUTPUT', & NF_INT, 1, 0) endif if( ierr .NE. NF_NOERR ) goto 7000 c if( lsulfate ) then ierr = nf_put_att_int(iounit, NF_GLOBAL, 'TREAT_SULFATE_CLASS', & NF_INT, 1, 1) else ierr = nf_put_att_int(iounit, NF_GLOBAL, 'TREAT_SULFATE_CLASS', & NF_INT, 1, 0) endif if( ierr .NE. NF_NOERR ) goto 7000 c if( lnitrate ) then ierr = nf_put_att_int(iounit, NF_GLOBAL, 'TREAT_NITRATE_CLASS', & NF_INT, 1, 1) else ierr = nf_put_att_int(iounit, NF_GLOBAL, 'TREAT_NITRATE_CLASS', & NF_INT, 1, 0) endif if( ierr .NE. NF_NOERR ) goto 7000 c if( lsoa ) then ierr = nf_put_att_int(iounit, NF_GLOBAL, 'TREAT_SOA_CLASS', & NF_INT, 1, 1) else ierr = nf_put_att_int(iounit, NF_GLOBAL, 'TREAT_SOA_CLASS', & NF_INT, 1, 0) endif if( ierr .NE. NF_NOERR ) goto 7000 c if( lprimary ) then ierr = nf_put_att_int(iounit, NF_GLOBAL, 'TREAT_PRIMARY_CLASS', & NF_INT, 1, 1) else ierr = nf_put_att_int(iounit, NF_GLOBAL, 'TREAT_PRIMARY_CLASS', & NF_INT, 1, 0) endif if( ierr .NE. NF_NOERR ) goto 7000 c if( lmercury ) then ierr = nf_put_att_int(iounit, NF_GLOBAL, 'TREAT_MERCURY_CLASS', & NF_INT, 1, 1) else ierr = nf_put_att_int(iounit, NF_GLOBAL, 'TREAT_MERCURY_CLASS', & NF_INT, 1, 0) endif if( ierr .NE. NF_NOERR ) goto 7000 c if( lozone ) then ierr = nf_put_att_int(iounit, NF_GLOBAL, 'TREAT_OZONE_CLASS', & NF_INT, 1, 1) else ierr = nf_put_att_int(iounit, NF_GLOBAL, 'TREAT_OZONE_CLASS', & NF_INT, 1, 0) endif if( ierr .NE. NF_NOERR ) goto 7000 c if( lapcapt ) then ierr = nf_put_att_int(iounit, NF_GLOBAL, 'USE_APCA', & NF_INT, 1, 1) else ierr = nf_put_att_int(iounit, NF_GLOBAL, 'USE_APCA', & NF_INT, 1, 0) endif if( ierr .NE. NF_NOERR ) goto 7000 c if( lbndry ) then ierr = nf_put_att_int(iounit, NF_GLOBAL, 'STRATIFY_BOUNDARY', & NF_INT, 1, 1) else ierr = nf_put_att_int(iounit, NF_GLOBAL, 'STRATIFY_BOUNDARY', & NF_INT, 1, 0) endif if( ierr .NE. NF_NOERR ) goto 7000 c if( lptdepout ) then ierr = nf_put_att_int(iounit, NF_GLOBAL, 'DEPOSITION_OUTPUT', & NF_INT, 1, 1) else ierr = nf_put_att_int(iounit, NF_GLOBAL, 'DEPOSITION_OUTPUT', & NF_INT, 1, 0) endif if( ierr .NE. NF_NOERR ) goto 7000 c ierr = nf_put_att_int(iounit, NF_GLOBAL, 'NUMBER_SOURCE_REGIONS', & NF_INT, 1, nregin) if( ierr .NE. NF_NOERR ) goto 7000 c ierr = nf_put_att_int(iounit, NF_GLOBAL, 'NUMBER_SOURCE_GROUPS', & NF_INT, 1, ngroup) if( ierr .NE. NF_NOERR ) goto 7000 c if( leftovr ) then ierr = nf_put_att_int(iounit, NF_GLOBAL, 'USE_LEFTOVER_GROUP', & NF_INT, 1, 1) else ierr = nf_put_att_int(iounit, NF_GLOBAL, 'USE_LEFTOVER_GROUP', & NF_INT, 1, 0) endif if( ierr .NE. NF_NOERR ) goto 7000 c if( lpartial ) then ierr = nf_put_att_int(iounit, NF_GLOBAL, 'USE_PARTIAL_REGIONMAP', & NF_INT, 1, 1) else ierr = nf_put_att_int(iounit, NF_GLOBAL, 'USE_PARTIAL_REGIONMAP', & NF_INT, 1, 0) endif if( ierr .NE. NF_NOERR ) goto 7000 c if( lptoverride ) then ierr = nf_put_att_int(iounit, NF_GLOBAL, 'POINT_SOURCE_OVERRIDE', & NF_INT, 1, 1) else ierr = nf_put_att_int(iounit, NF_GLOBAL, 'POINT_SOURCE_OVERRIDE', & NF_INT, 1, 0) endif if( ierr .NE. NF_NOERR ) goto 7000 c goto 9999 c c----------------------------------------------------------------------- c Error messages: c----------------------------------------------------------------------- c 7000 continue write(iout,'(//,a)') 'ERROR in NCF_WRT_GLOBAL_SA:' write(iout,'(A)') action(:istrln(action)) write(iout,'(A)') 'Cannot write global atttributes to file.' call camxerr() c c----------------------------------------------------------------------- c Return point: c----------------------------------------------------------------------- c 9999 continue return end