MAPL_DefGridName Subroutine

subroutine MAPL_DefGridName (im,jm,gridname,iamroot)
implicit none
integer,intent(in)::im,jm
logical,intent(in)::iamroot
character(len=*),intent(out)::gridname
character(len=2) poletype
character(len=3) llcb
character(len=30) imstr,jmstr
poletype='PC'
if(mod(jm,2)==0) poletype='PE'

llcb='-DC' ! lat-lon
if(6*im==jm) llcb='-CF' ! cubed

write(imstr,'(I0)') im
write(jmstr,'(I0)') jm

gridname=trim(poletype)//trim(imstr) // 'x' // trim(jmstr) // trim(llcb)

end subroutine MAPL_DefGridName