SURFEX v7.3: /home/dasprezs/EXPORT_v7_3/src/SURFEX/modn_surf

Go to the documentation of this file.
00001 !!
00002 !!    #####################
00003       MODULE MODN_SURF_ATM
00004 !!    #####################
00005 !!
00006 !!*** *MODN_DUST*
00007 !!
00008 !!    PURPOSE
00009 !!    -------
00010 !       Namelist for wind threshold
00011 !!
00012 !!**  AUTHOR
00013 !!    ------
00014 !!    P. Le Moigne      *CNRM*
00015 !
00016 !!    MODIFICATIONS
00017 !!    -------------
00018 !!    Original 10/2007
00019 !!
00020 !!    IMPLICIT ARGUMENTS
00021 !!    ------------------
00022 USE MODD_SURF_ATM, ONLY : XCISMIN, XVMODMIN, LALDTHRES, &
00023                             LDRAG_COEF_ARP, LALDZ0H,      &
00024                             LNOSOF, LRW_PRECIP,           &
00025                             XEDB, XEDC, XEDD, XEDK,       &
00026                             XUSURIC, XUSURID, XUSURICL,   &
00027                             XVCHRNK, XVZ0CM, XDELTA_MAX,  &
00028                             XRIMAX, LVERTSHIFT,           &
00029                             LVZIUSTAR0_ARP, LRRGUST_ARP,  &
00030                             XVZIUSTAR0,XRZHZ0M,           &
00031                             XRRSCALE, XRRGAMMA,           &
00032                             XUTILGUST, LCPL_ARP, LQVNPLUS,&
00033                             CIMPLICIT_WIND
00034 !
00035 !-----------------------------------------------------------------------------
00036 !
00037 !*       0.   DECLARATIONS
00038 !        -----------------
00039 IMPLICIT NONE
00040 SAVE
00041 NAMELIST /NAM_SURF_ATM/XCISMIN, XVMODMIN, LALDTHRES, &
00042                          LDRAG_COEF_ARP, LALDZ0H,      &
00043                          LNOSOF, LRW_PRECIP,           &
00044                          XEDB, XEDC, XEDD, XEDK,       &
00045                          XUSURIC, XUSURID, XUSURICL,   &
00046                          XVCHRNK, XVZ0CM, XDELTA_MAX,  &
00047                          XRIMAX, LVERTSHIFT,           &
00048                          LVZIUSTAR0_ARP, LRRGUST_ARP,  &
00049                          XVZIUSTAR0,XRZHZ0M,           &
00050                          XRRSCALE, XRRGAMMA,           &
00051                          XUTILGUST, LCPL_ARP, LQVNPLUS,&
00052                          CIMPLICIT_WIND
00053 !
00054 END MODULE MODN_SURF_ATM