| PUMA 219 Portable University Model of the Atmosphere

- Main Page
- Data Types List
- Files

- File List
- File Members

/Users/home/WC/puma/src/guimod_stub.f90
Go to the documentation of this file.

    00001 ! Dummy module replacement for guimod.f90
    00002 ! Use this for environments with no X11
    00003
    00004 subroutine guistart
    00005 return
    00006 end subroutine guistart
    00007
    00008 subroutine guistep_puma
    00009 return
    00010 end subroutine guistep_puma
    00011
    00012 subroutine guistep_plasim
    00013 return
    00014 end subroutine guistep_plasim
    00015
    00016 subroutine guistop
    00017 return
    00018 end subroutine guistop
    00019
    00020 subroutine guihor(yn,f,pm,pa)
    00021 character (len=*) :: yn
    00022 return
    00023 end subroutine guihor
    00024
    00025 subroutine guigv(yn,f)
    00026 character (len=*) :: yn
    00027 return
    00028 end subroutine guigv
    00029
    00030 subroutine guips(fp)
    00031 return
    00032 end subroutine guips
    00033
    00034 subroutine guiput(yn,f,k1,k2,k3)
    00035 character (len=*) :: yn
    00036 return
    00037 end subroutine guiput
    00038
    00039 subroutine guigt(f)
    00040 return
    00041 end