source: LMDZ6/trunk/libf/phylmd/frequences_LW_data.F90 @ 6048

Last change on this file since 6048 was 6048, checked in by fhourdin, 2 weeks ago

Renommage des nom de fichiers incluant des modules
File size: 740 bytes
Line 
1
2MODULE frequences_LW_data
3
4    USE AERO_MOD, ONLY : nbands_lw_rrtm !FC
5    IMPLICIT NONE
6!FC
7    REAL, SAVE, DIMENSION(nbands_lw_rrtm) :: wl1_lw , wl2_lw , deltanu   ! wavelenghts  bounds for  LW
8!    REAL, SAVE, DIMENSION(nbands_lw_rrtm) :: wl1_lw , wl2_lw
9    !$OMP THREADPRIVATE(wl1_lw,wl2_lw,deltanu)
10
11
12!      wl1_lw(1:nbands_lw_rrtm) = [ 10., 250., 500., 630., 700., 820., 980.,1080. ,1180.,1390.,1480.,1800.,2080.,2250.,2380.,2600.]
13!      wl2_lw(1:nbands_lw_rrtm) = [250., 500., 630., 700., 820., 980.,1080.,1180. ,1390.,1480.,1800.,2080.,2250.,2380.,2600.,3000.]
14!FC
15
16!        DO ILW=1,nbands_lw_rrtm
17!       deltanu(ILW)=(wl2_lw(ILW)-wl1_lw(ILW))/2.
18!        print*, ILW,deltanu(ilw)
19!       enddo
20END MODULE frequences_LW_data
21
Note: See TracBrowser for help on using the repository browser.