Skip to content
Snippets Groups Projects
inputdata.f90 1.29 KiB
Newer Older
Victoria Suiazova's avatar
Victoria Suiazova committed
module INPUTDATA
   REAl, DIMENSION (6) :: AR1
   REAl, DIMENSION (11) :: AR2
   INTEGER, PARAMETER :: IT =1
!C*====================================================================
!C*     .....DEFENITION OF DRAG AND HEAT EXCHANGE COEFFICIENTS......  =
!C*     DETAILS OF ALGORITM ARE GIVEN IN:                             =
!C*     A.L.KAZAKOV,V.N.LYKOSSOV,"TRUDY ZAP.SIB.NII",1982,N.55,3-20   =
!C*                    INPUT DATA:
!C*     AR1(1) - ABS(WIND VELOCITY) AT CONSTANT FLUX LAYER            =
!C*                                 (CFL) HIGHT (M/S)                 =
!C*     AR1(2) - DIFFERENCE BETWEEN POTENTIAL TEMPERATURE AT CFL HIGHT=
!C!*                             AND AT SURFACE  ( DEG. K)             =
!C*     AR1(3) - SEMI-SUM OF POTENTIAL TEMPERATURE AT CFL HIGHT AND   =
!C*                             AND AT SURFACE  ( DEG. K)             =
!C*     AR1(4) - DIFFERENCE BETWEEN HUMIDITY AT CFL HIGHT             =
!C*                             AND A SURFACE   ( GR/GR )             =
!C*     AR1(5) - CFL HIGHT ( M )                                      =
!C*     AR1(6) - ROUGHNESS OF SURFACE ( M ); FOR SEA SURFACE PUT -1   =
!C*      IT    - NUMBER OF ITERATIONS                                 =
!C*====================================================================      

end module INPUTDATA