create_gridname Function

public function create_gridname(im, jm, date, pole) result(gridname)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: im
integer, intent(in) :: jm
character(len=2), intent(in) :: date
character(len=2), intent(in) :: pole

Return Value character(len=ESMF_MAXSTR)


Source Code

    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