Newer
Older
program main_ddt
USE PRMT
USE PARAM
USE INPUTDATA
use DRAG3
type (DATA_IN):: DATA_IN1
type (DATA_OUTDEF) :: DATA_OUTDEF1
type (DATA_PAR) :: DATA_PAR1
OPEN (1,FILE='4_ddt.txt')
DO I = 1,1000000
READ (1,*,END=100) DATA_IN1%WS, DATA_IN1%DT
call surf_flux(DATA_IN1, DATA_OUTDEF1, DATA_PAR1)
ENDDO
100 CONTINUE
10 FORMAT (4I4,5F7.1,F7.4,F7.1)
20 FORMAT (4I4,5F7.1,F7.4,F7.1)
stop
end program