Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | im | |||
integer, | intent(in) | :: | jm | |||
character(len=2), | intent(in) | :: | date | |||
character(len=2), | intent(in) | :: | pole |
function create_gridname(im,jm,date,pole) result(gridname) integer, intent(in) :: im integer, intent(in) :: jm character(len=2), intent(in) :: date character(len=2), intent(in) :: pole character(len=ESMF_MAXSTR) :: gridname character(len=16) :: imstr,jmstr write(imstr,*) im write(jmstr,*) jm gridname = pole // trim(adjustl(imstr))//'x'//& trim(adjustl(jmstr))//'-'//date end function create_gridname