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

Last change on this file since 3553 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
RevLine 
[1024]1       module comuforc_h
2       IMPLICIT NONE
3       REAL,ALLOCATABLE,DIMENSION(:,:) :: uforc
[1345]4       REAL,ALLOCATABLE,DIMENSION(:) :: attenua
[1024]5       REAL :: facwind
[1345]6       REAL :: phalf
[1024]7       end module comuforc_h
8
9
Note: See TracBrowser for help on using the repository browser.