 |
PUMA
219
Portable University Model of the Atmosphere
|
|
PUMA
219
Portable University Model of the Atmosphere
|
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
