Ignore:
Timestamp:
Nov 19, 2014, 5:52:35 PM (10 years ago)
Author:
fhourdin
Message:

Corrections cosmétiques pour RRTM
Bug fixing for RRTM

Location:
LMDZ5/trunk/libf/phylmd/rrtm
Files:
3 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/phylmd/rrtm/readaerosolstrato_rrtm.F90

    r2148 r2152  
    148148    CALL grid2dTo1d_glo(tauaerstrat_mois,tauaerstrat_mois_glo)
    149149
     150    ENDIF !--is_mpi_root
     151
     152!--keep memory of previous month
     153    mth_pre=mth_cur
     154
    150155!--scatter on all proc
    151156    CALL scatter(tauaerstrat_mois_glo,tau_aer_strat)
    152157
     158    IF (is_mpi_root) THEN
     159!
    153160    DEALLOCATE(tauaerstrat)
    154161    DEALLOCATE(tauaerstrat_mois)
    155162    DEALLOCATE(tauaerstrat_mois_glo)
    156  
    157     mth_pre=mth_cur
     163!
     164    ENDIF !--is_mpi_root
    158165
    159166    ENDIF !--debut ou nouveau mois
    160 
    161     ENDIF !--is_mpi_root
    162167
    163168!--total vertical aod at the 5 SW wavelengths
  • LMDZ5/trunk/libf/phylmd/rrtm/rrtm_ecrt_140gp.F90

    r2146 r2152  
    264264DO I_L=1,KLEV
    265265  JK=KLEV-I_L+1
    266 !  DO JAE=1, NLW
    267   DO JAE=1, 16
     266  DO JAE=1, NLW
    268267    P_TAUAERL(I_L,JAE) = MAX( PTAU_LW(K_IPLON, JK, JAE), 1e-30 )
    269268  ENDDO
  • LMDZ5/trunk/libf/phylmd/rrtm/suecrad.F90

    r2027 r2152  
    407407  END SELECT
    408408print *,'SUECRAD: NOVLP=',NOVLP
    409 NLW    = 6
     409NLW    = 16
    410410NTSW   = 14
    411411!NSW    = 6    !!!!! Maintenant dans config.def (MPL 20140213)
Note: See TracChangeset for help on using the changeset viewer.