source: trunk/LMDZ.COMMON/libf/dyn3d_common/comuforc_h.F90 @ 3000

Last change on this file since 3000 was 1345, checked in by aslmd, 10 years ago

LMDZ.COMMON. introduced an attenuation profile for nudging towards wind. new parameter: phalf: pressure at which attenuation factor is divided by two.
File size: 217 bytes
Line 
1       module comuforc_h
2       IMPLICIT NONE
3       REAL,ALLOCATABLE,DIMENSION(:,:) :: uforc
4       REAL,ALLOCATABLE,DIMENSION(:) :: attenua
5       REAL :: facwind
6       REAL :: phalf
7       end module comuforc_h
8
9
Note: See TracBrowser for help on using the repository browser.