https://github.com/alphaparrot/ExoPlaSim
Tip revision: 9f69f6e970c50cae27581eb9ae4fc6710a9eae3d authored by Adiv Paradise on 14 August 2019, 21:22:17 UTC
Fixed bug where surface temperature in the time-averaged output file was erroneously low on the first write. This was a purely diagnostic bug--no impact on physics.
Fixed bug where surface temperature in the time-averaged output file was erroneously low on the first write. This was a purely diagnostic bug--no impact on physics.
Tip revision: 9f69f6e
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
