Skip to content
Snippets Groups Projects
main_drag.f90 467 B
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