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

Last change on this file since 5687 was 5679, checked in by Laurent Fairhead, 5 weeks ago

Forgot to add one file to previous commit
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.