https://github.com/alphaparrot/ExoPlaSim
Tip revision: e534acdd7b5ff5827c1c942f95ed5384de296304 authored by Adiv Paradise on 03 March 2019, 20:18:20 UTC
Added switch for 20-layer Rayleigh drag at top of atmosphere
Added switch for 20-layer Rayleigh drag at top of atmosphere
Tip revision: e534acd
f90check.f90
program f90check
integer :: i = 258
real :: r = 1.0
open(21,file='F90_INTEGER',form='unformatted')
write (21) i
close(21)
open(21,file='F90_REAL',form='unformatted')
write (21) r
close(21)
!call csub(i,r)
stop
end program f90check
