Ignore:
Timestamp:
Jun 11, 2014, 3:46:46 PM (11 years ago)
Author:
Laurent Fairhead
Message:

Merged trunk changes r1997:2055 into testing branch

Location:
LMDZ5/branches/testing
Files:
131 edited
5 copied

Legend:

Unmodified
Added
Removed

  • LMDZ5/branches/testing

  • LMDZ5/branches/testing/libf/phylmd/rrtm/eq_regions_mod.F90

    r1999 r2056  
    7878integer(kind=jpim) :: my_region_ew
    7979integer(kind=jpim),allocatable :: n_regions(:)
     80
     81
     82!$OMP THREADPRIVATE(l_regions_debug,my_region_ew,my_region_ns,n_regions_ew,n_regions_ns,pi,n_regions)
    8083
    8184CONTAINS

  • LMDZ5/branches/testing/libf/phylmd/rrtm/gfl_subs.F90

    r1999 r2056  
    5353TYPE(TYPE_GFL_COMP)  :: YCPF_SAVE ! For saving status of cloud fields
    5454LOGICAL :: L_CLD_DEACT=.FALSE.
     55
     56!$OMP THREADPRIVATE(l_cld_deact,ya_save,ycpf_save,yi_save,yl_save,ylastgflc,yptrc,yr_save,ys_save)
    5557
    5658#include "abor1.intfb.h"
    … …  
    115117LOGICAL,SAVE :: LLFIRSTCALL = .TRUE.
    116118REAL(KIND=JPRB) :: ZHOOK_HANDLE
     119!$OMP THREADPRIVATE(llfirstcall)
     120
    117121
    118122!-------------------------------------------------------------------------

  • LMDZ5/branches/testing/libf/phylmd/rrtm/lwu.F90

    • Property svn:keywords set to Author Date Id Revi
    r1999 r2056  
     1!
     2! $Id$
     3!
    14SUBROUTINE LWU &
    25 & ( KIDIA, KFDIA, KLON, KLEV,&
    … …  
    6972 & ALWT     ,BLWT     ,RO3T     ,RT1      ,TREF     ,&
    7073 & RVGCO2   ,RVGH2O   ,RVGO3 
    71 USE YOERDI   , ONLY : RCH4     ,RN2O     ,RCFC11   ,RCFC12
     74!USE YOERDI   , ONLY : RCH4     ,RN2O     ,RCFC11   ,RCFC12
    7275USE YOERDU   , ONLY : R10E     ,REPSCO   ,REPSCQ
     76
    7377
    7478IMPLICIT NONE
    … …  
    8791REAL(KIND=JPRB)   ,INTENT(IN)    :: PWV(KLON,KLEV)
    8892REAL(KIND=JPRB)   ,INTENT(OUT)   :: PABCU(KLON,NUA,3*KLEV+1)
     93
     94#include "clesphys.h"
    8995!-----------------------------------------------------------------------
    9096
    … …  
    115121 & ZUPMH2O, ZUPMO3, ZZABLY 
    116122REAL(KIND=JPRB) :: ZHOOK_HANDLE
     123
    117124
    118125!-----------------------------------------------------------------------
    … …  
    331338!      print *,'END OF LWU'
    332339
     340
     341
    333342!-----------------------------------------------------------------------
    334343

  • LMDZ5/branches/testing/libf/phylmd/rrtm/mod_const_para.F90

    r1999 r2056  
    33  INTEGER :: COMM_LMDZ
    44  INTEGER :: MPI_REAL_LMDZ
    5  
     5
     6!$OMP THREADPRIVATE(comm_lmdz,mpi_real_lmdz)
    67
    78CONTAINS

  • LMDZ5/branches/testing/libf/phylmd/rrtm/radlsw.F90

    r1999 r2056  
    144144 & RLILIA   ,RLILIB 
    145145USE YOERDU        , ONLY : NUAER    ,NTRAER   ,REPLOG   ,REPSC    ,REPSCW   ,DIFF
    146 USE YOETHF        , ONLY : RTICE
     146!USE YOETHF        , ONLY : RTICE
    147147USE YOEPHLI       , ONLY : LPHYLIN
    148148USE YOERRTWN      , ONLY :                     DELWAVE   ,TOTPLNK   
    … …  
    154154
    155155include "clesphys.h"
    156 
     156include "YOETHF.h"
    157157INTEGER(KIND=JPIM),INTENT(IN)    :: KLON
    158158INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV

  • LMDZ5/branches/testing/libf/phylmd/rrtm/rrtm_ecrt_140gp.F90

    • Property svn:keywords set to Author Date Id Revi
    r1999 r2056  
     1!
     2! $Id$
     3!
    14!****************** SUBROUTINE RRTM_ECRT_140GP **************************
    25
    … …  
    2629 & JPINPX 
    2730USE YOERAD   , ONLY : NOVLP
    28 USE YOERDI   , ONLY :    RCH4     ,RN2O    ,RCFC11  ,RCFC12
     31!USE YOERDI   , ONLY :    RCH4     ,RN2O    ,RCFC11  ,RCFC12
    2932USE YOESW    , ONLY : RAER
    3033
    3134!------------------------------Arguments--------------------------------
    3235
     36
     37
    3338IMPLICIT NONE
    3439
     40#include "clesphys.h"
    3541INTEGER(KIND=JPIM),INTENT(IN)    :: KLON! Number of atmospheres (longitudes)
    3642INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV! Number of atmospheric layers
    … …  
    384390!     ------------------------------------------------------------------
    385391
     392
     393
    386394IF (LHOOK) CALL DR_HOOK('RRTM_ECRT_140GP',1,ZHOOK_HANDLE)
    387395END SUBROUTINE RRTM_ECRT_140GP

  • LMDZ5/branches/testing/libf/phylmd/rrtm/rrtm_taumol1.F90

    r1999 r2056  
    189189
    190190IF (LHOOK) CALL DR_HOOK('RRTM_TAUMOL1',0,ZHOOK_HANDLE)
     191!--ajout OB
     192IF (K_LAYTROP.GT.100) THEN
     193PRINT *,'ATTENTION KLAY_TROP > 100 PROBLEME ARRAY DANS RRTM ON ARRETE'
     194STOP
     195!--fin ajout OB
     196ENDIF
    191197DO I_LAY = 1, K_LAYTROP
    192198  IND0(I_LAY) = ((K_JP(I_LAY)-1)*5+(K_JT(I_LAY)-1))*NSPA(1) + 1

  • LMDZ5/branches/testing/libf/phylmd/rrtm/srtm_srtm_224gp.F90

    • Property svn:keywords set to Author Date Id Revi
    r1999 r2056  
     1!
     2! $Id$
     3!
    14SUBROUTINE SRTM_SRTM_224GP &
    25 & ( KIDIA , KFDIA  , KLON  , KLEV  , KSW , KOVLP ,&
    … …  
    1518
    1619USE PARSRTM  , ONLY : JPLAY
    17 USE YOERDI   , ONLY : RCH4   , RN2O   
     20!USE YOERDI   , ONLY : RCH4   , RN2O   
    1821USE YOERAD   , ONLY : NAER
    1922USE YOESRTAER, ONLY : RSRTAUA, RSRPIZA, RSRASYA
    … …  
    2124USE YOMCST   , ONLY : RI0
    2225
     26
     27
    2328IMPLICIT NONE
     29
     30#include "clesphys.h"
    2431
    2532!-- Input arguments

  • LMDZ5/branches/testing/libf/phylmd/rrtm/sucst.F90

    r1999 r2056  
    289289  WRITE(KULOUT,'(10(1X,E10.4))') (ESW(RTT+10._JPRB*J),J=-4,4)
    290290  WRITE(KULOUT,'(10(1X,E10.4))') (ESS(RTT+10._JPRB*J),J=-4,4)
    291   call flush()       !!!!! A REVOIR (MPL) les 7 lignes qui suivent
     291!  call flush(0)       !!!!! A REVOIR (MPL) les 7 lignes qui suivent
    292292   do j=1,9
    293293     print*,'TEST J',j
    … …  
    295295     print*,'ES(RTT...',ES(RTT+10._JPRB*(J-5))
    296296   enddo
    297   call flush()
     297  call flush(0)
    298298
    299299  WRITE(KULOUT,'(10(1X,E10.4))') (ES (RTT+10._JPRB*J),J=-4,4)

  • LMDZ5/branches/testing/libf/phylmd/rrtm/suecrad.F90

    • Property svn:keywords set to Author Date Id Revi
    r1999 r2056  
     1!
     2! $Id$
     3!
    14SUBROUTINE SUECRAD (KULOUT, KLEV, PETAH )
    25
    … …  
    303306!       LECMWF = .FALSE.
    304307ENDIF
     308
     309!LRRTM  = .FALSE.
     310
    305311!- SRTM as SW scheme
    306312!!!!! A REVOIR (MPL) verifier signification de LSRTM
    … …  
    15201526!     ------------------------------------------------------------------
    15211527
     1528
    15221529IF (LHOOK) CALL DR_HOOK('SUECRAD',1,ZHOOK_HANDLE)
    15231530END SUBROUTINE SUECRAD

  • LMDZ5/branches/testing/libf/phylmd/rrtm/suphec.F90

    r1999 r2056  
    6969USE YOMCST   , ONLY : RD       ,RV       ,RCPD     ,&
    7070 & RLVTT    ,RLSTT    ,RLMLT    ,RTT      ,RATM
    71 USE YOETHF   , ONLY : R2ES     ,R3LES    ,R3IES    ,R4LES    ,&
    72  & R4IES    ,R5LES    ,R5IES    ,RVTMP2   ,RHOH2O   ,&
    73  & R5ALVCP  ,R5ALSCP  ,RALVDCP  ,RALSDCP  ,RALFDCP  ,&
    74  & RTWAT    ,RTBER    ,RTBERCU  ,RTICE    ,RTICECU  ,&
    75  & RTWAT_RTICE_R      ,RTWAT_RTICECU_R    ,&
    76  & RKOOP1   ,RKOOP2
     71!USE YOETHF   , ONLY : R2ES     ,R3LES    ,R3IES    ,R4LES    ,&
     72! & R4IES    ,R5LES    ,R5IES    ,RVTMP2   ,RHOH2O   ,&
     73! & R5ALVCP  ,R5ALSCP  ,RALVDCP  ,RALSDCP  ,RALFDCP  ,&
     74! & RTWAT    ,RTBER    ,RTBERCU  ,RTICE    ,RTICECU  ,&
     75! & RTWAT_RTICE_R      ,RTWAT_RTICECU_R    ,&
     76! & RKOOP1   ,RKOOP2
    7777USE YOMPHY   , ONLY : LRAYFM15
    7878!USE YOERAD   , ONLY : NSW      ,NTSW     ,&
    … …  
    8989
    9090IMPLICIT NONE
    91 
     91include "YOETHF.h"
    9292include "clesphys.h"
    9393

  • LMDZ5/branches/testing/libf/phylmd/rrtm/surdi.F90

    • Property svn:keywords set to Author Date Id Revi
    r1999 r2056  
     1!
     2! $Id$
     3!
    14SUBROUTINE SURDI
    25
    … …  
    5053
    5154USE YOERDI   , ONLY : RRAE     ,&
    52  & RCARDI   ,RCH4     ,RN2O     ,RO3      ,RCFC11   ,&
    53  & RCFC12   ,REPCLC   ,REPH2O   ,RSUNDUR  ,&
     55! & RCARDI   ,RCH4     ,RN2O     ,RO3      ,RCFC11   ,&
     56 & RCFC12, &   
     57 & REPCLC   ,REPH2O   ,RSUNDUR  ,&
    5458 & RCCO2    ,RCCH4    ,RCN2O    ,RCCFC11  ,RCCFC12
     59
    5560
    5661IMPLICIT NONE
    5762
     63!#include "clesphys.h"
    5864REAL(KIND=JPRB) :: ZAIRMWG, ZC11MWG, ZC12MWG, ZCH4MWG, ZCO2MWG, ZN2OMWG, ZO3MWG
    5965REAL(KIND=JPRB) :: ZHOOK_HANDLE
    … …  
    95101!RCFC12  = 484.E-12_JPRB*ZC12MWG/ZAIRMWG
    96102
    97 RCARDI  = RCCO2   * ZCO2MWG/ZAIRMWG
    98 RCH4    = RCCH4   * ZCH4MWG/ZAIRMWG
    99 RN2O    = RCN2O   * ZN2OMWG/ZAIRMWG
    100 RO3     = 1.E-06_JPRB*ZO3MWG /ZAIRMWG
    101 RCFC11  = RCCFC11 * ZC11MWG/ZAIRMWG
    102 RCFC12  = RCCFC12 * ZC12MWG/ZAIRMWG
     103!RCARDI  = RCCO2   * ZCO2MWG/ZAIRMWG
     104!RCH4    = RCCH4   * ZCH4MWG/ZAIRMWG
     105!RN2O    = RCN2O   * ZN2OMWG/ZAIRMWG
     106!RO3     = 1.E-06_JPRB*ZO3MWG /ZAIRMWG
     107!RCFC11  = RCCFC11 * ZC11MWG/ZAIRMWG
     108!RCFC12  = RCCFC12 * ZC12MWG/ZAIRMWG
     109
    103110
    104111REPCLC=1.E-12_JPRB
    105112REPH2O=1.E-12_JPRB
     113
    106114
    107115!     -----------------------------------------------------------------

  • LMDZ5/branches/testing/libf/phylmd/rrtm/surface_fields.F90

    r1999 r2056  
    505505TYPE(TYPE_SFL_VEXTR2)  :: YSD_X2
    506506
     507!$OMP THREADPRIVATE(ndimsurf,ndimsurfl,nofftraj,nofftraj_cst,nprogsurf)
     508!$OMP THREADPRIVATE(nprogsurfl,nptrsurf,nstrajgrib,nsurf,nsurfl,ysd_va,ysd_vad)
     509!$OMP THREADPRIVATE(ysd_vc,ysd_vcd,ysd_vd,ysd_vdd,ysd_vf,ysd_vfd,ysd_vh,ysd_vhd)
     510!$OMP THREADPRIVATE(ysd_vn,ysd_vnd,ysd_vp,ysd_vpd,ysd_vv,ysd_vvd,ysd_vx,ysd_vxd)
     511!$OMP THREADPRIVATE(ysd_ws,ysd_wsd,ysd_x2,ysd_x2d,ysd_xa,ysd_xad,ysp_ci,ysp_cid)
     512!$OMP THREADPRIVATE(ysp_ep,ysp_epd,ysp_rr,ysp_rrd,ysp_sb,ysp_sbd,ysp_sg,ysp_sgd)
     513!$OMP THREADPRIVATE(ysp_x2,ysp_x2d)
     514
     515!$OMP THREADPRIVATE(sd_va,sd_vc,sd_vd,sd_vf,sd_vh,sd_vn,sd_vp,sd_vv,sd_vx,sd_ws)
     516!$OMP THREADPRIVATE(sd_x2,sd_xa,sp_ci,sp_ep,sp_rr,sp_sb,sp_sg,sp_x2,surf_store_array)
     517
     518
    507519!-------------------------------------------------------------------------
    508520

  • LMDZ5/branches/testing/libf/phylmd/rrtm/susw15.F90

    r1999 r2056  
    6262REAL(KIND=JPRB)   :: ZPRH2O=30000._JPRB
    6363REAL(KIND=JPRB)   :: ZPRUMG=30000._JPRB
     64
     65!$OMP THREADPRIVATE(zpdh2o,zpdumg,zprh2o,zprumg)
    6466
    6567REAL(KIND=JPRB) :: ZH2O, ZUMG

  • LMDZ5/branches/testing/libf/phylmd/rrtm/sw.F90

    r1999 r2056  
    8080
    8181integer, save :: icount=0
     82!$OMP THREADPRIVATE(icount)
    8283INTEGER(KIND=JPIM),INTENT(IN)    :: KLON
    8384INTEGER(KIND=JPIM),INTENT(IN)    :: KLEV

  • LMDZ5/branches/testing/libf/phylmd/rrtm/swclr.F90

    r1999 r2056  
    55 & PRK   , PRMU0 , PTAUAZ, PTRA1 , PTRA2 , PTRCLR, &
    66!++MODIFCODE
    7   & LRDUST,PPIZA_DST, PCGA_DST, PTAUREL_DST )
     7  & LDDUST,PPIZA_DST, PCGA_DST, PTAU_DST )
    88!--MODIFCODE
    99
    … …  
    5858!        Y.Seity 05-10-10 : add add 3 optional arg. for dust SW properties
    5959!        Y.Seity 06-09-09 : add modset from O.Thouron (MesoNH) under NOVLP tests
     60!        O.Boucher fev.2014: modification sur les aerosols pour utiliser les variables DST
    6061!     ------------------------------------------------------------------
    6162
    … …  
    7172
    7273IMPLICIT NONE
    73 
    74 include "clesphys.h"
     74INCLUDE "clesphys.h"
    7575
    7676INTEGER(KIND=JPIM),INTENT(IN)    :: KLON
    … …  
    8686REAL(KIND=JPRB)   ,INTENT(IN)    :: PSEC(KLON)
    8787!++MODIFCODE
    88 LOGICAL           ,INTENT(IN)    :: LRDUST                   ! flag for DUST
     88LOGICAL           ,INTENT(IN)    :: LDDUST                   ! flag for DUST
    8989REAL(KIND=JPRB)   ,INTENT(IN)    :: PPIZA_DST(KLON,KLEV)
    9090REAL(KIND=JPRB)   ,INTENT(IN)    :: PCGA_DST(KLON,KLEV)
    91 REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAUREL_DST(KLON,KLEV)
     91REAL(KIND=JPRB)   ,INTENT(IN)    :: PTAU_DST(KLON,KLEV)
    9292!--MODIFCODE
    9393REAL(KIND=JPRB)   ,INTENT(OUT)   :: PCGAZ(KLON,KLEV)
    … …  
    157157
    158158!++MODIFCODE 
     159!--OB on fait passer les aerosols LMDZ dans la variable DST
    159160  IF(NOVLP < 5)THEN !ECMWF VERSION
    160   DO JAE=1,6
     161!  DO JAE=1,6
    161162      DO JL = KIDIA,KFDIA
    162         PTAUAZ(JL,JK)=PTAUAZ(JL,JK)+PAER(JL,JAE,IKL)*RTAUA(KNU,JAE)
    163         PPIZAZ(JL,JK)=PPIZAZ(JL,JK)+PAER(JL,JAE,IKL)&
    164          & * RTAUA(KNU,JAE)*RPIZA(KNU,JAE) 
    165         PCGAZ(JL,JK) =  PCGAZ(JL,JK) +PAER(JL,JAE,IKL)&
    166          & * RTAUA(KNU,JAE)*RPIZA(KNU,JAE)*RCGA(KNU,JAE) 
     163!        PTAUAZ(JL,JK)=PTAUAZ(JL,JK)+PAER(JL,JAE,IKL)*RTAUA(KNU,JAE)
     164        PTAUAZ(JL,JK)=PTAU_DST(JL,IKL)
     165!        PPIZAZ(JL,JK)=PPIZAZ(JL,JK)+PAER(JL,JAE,IKL)&
     166!         & * RTAUA(KNU,JAE)*RPIZA(KNU,JAE) 
     167        PPIZAZ(JL,JK)=PTAU_DST(JL,IKL)*PPIZA_DST(JL,IKL)
     168!        PCGAZ(JL,JK) =  PCGAZ(JL,JK) +PAER(JL,JAE,IKL)&
     169!         & * RTAUA(KNU,JAE)*RPIZA(KNU,JAE)*RCGA(KNU,JAE) 
     170        PCGAZ(JL,JK)=PTAU_DST(JL,IKL)*PPIZA_DST(JL,IKL)*PCGA_DST(JL,IKL)
    167171      ENDDO
    168     ENDDO
     172!    ENDDO
    169173  ELSE ! MESONH VERSION
    170      DO JAE=1,6
     174!--OB on utilise directement les aerosols LMDZ
     175!     DO JAE=1,6
    171176        DO JL = KIDIA,KFDIA
    172177           !Special optical properties for dust
    173            IF (LRDUST.AND.(JAE==3)) THEN
     178!           IF (LDDUST.AND.(JAE==3)) THEN
    174179           !Ponderation of aerosol optical properties:first step
    175180           !ti
    176             PTAUAZ(JL,JK)=PTAUAZ(JL,JK) + PAER(JL,JAE,IKL) * PTAUREL_DST(JL,IKL)
     181!            PTAUAZ(JL,JK)=PTAUAZ(JL,JK) + PAER(JL,JAE,IKL) * PTAUREL_DST(JL,IKL)
     182            PTAUAZ(JL,JK)= PTAU_DST(JL,IKL)
    177183           !wi*ti
    178              PPIZAZ(JL,JK)=PPIZAZ(JL,JK) + PAER(JL,JAE,IKL)  &
    179                    & *PTAUREL_DST(JL,IKL)*PPIZA_DST(JL,IKL)
     184!             PPIZAZ(JL,JK)=PPIZAZ(JL,JK) + PAER(JL,JAE,IKL)  &
     185!                   & *PTAUREL_DST(JL,IKL)*PPIZA_DST(JL,IKL)
     186             PPIZAZ(JL,JK)=PTAU_DST(JL,IKL)*PPIZA_DST(JL,IKL)
    180187           !wi*ti*gi
    181              PCGAZ(JL,JK) = PCGAZ(JL,JK) + PAER(JL,JAE,IKL) &
    182                 &  *PTAUREL_DST(JL,IKL)*PPIZA_DST(JL,IKL)*PCGA_DST(JL,IKL)
     188!             PCGAZ(JL,JK) = PCGAZ(JL,JK) + PAER(JL,JAE,IKL) &
     189!                &  *PTAUREL_DST(JL,IKL)*PPIZA_DST(JL,IKL)*PCGA_DST(JL,IKL)
     190             PCGAZ(JL,JK) = PTAU_DST(JL,IKL)*PPIZA_DST(JL,IKL)*PCGA_DST(JL,IKL)
    183191           !wi*ti*(gi**2)
    184              ZFACOA_NEW(JL,JK)= ZFACOA_NEW(JL,JK)+PAER(JL, JAE, IKL)&
    185                 & *PTAUREL_DST(JL,IKL) *PPIZA_DST(JL,IKL)*PCGA_DST(JL,IKL)*&
     192!             ZFACOA_NEW(JL,JK)= ZFACOA_NEW(JL,JK)+PAER(JL, JAE, IKL)&
     193!                & *PTAUREL_DST(JL,IKL) *PPIZA_DST(JL,IKL)*PCGA_DST(JL,IKL)*&
     194!                & PCGA_DST(JL,IKL)
     195             ZFACOA_NEW(JL,JK)= ZFACOA_NEW(JL,JK)+&
     196                & PTAU_DST(JL,IKL) *PPIZA_DST(JL,IKL)*PCGA_DST(JL,IKL)*&
    186197                & PCGA_DST(JL,IKL)
    187            ELSE
     198!           ELSE
    188199           !Ponderation of aerosol optical properties:first step
    189200           !ti
    190              PTAUAZ(JL,JK)=PTAUAZ(JL,JK)+PAER(JL, JAE, IKL)*RTAUA(KNU,JAE)
     201!             PTAUAZ(JL,JK)=PTAUAZ(JL,JK)+PAER(JL, JAE, IKL)*RTAUA(KNU,JAE)
    191202           !wi*ti
    192              PPIZAZ(JL,JK)=PPIZAZ(JL,JK)+PAER(JL, JAE, IKL)&
    193                 &* RTAUA(KNU,JAE)*RPIZA(KNU,JAE)
     203!             PPIZAZ(JL,JK)=PPIZAZ(JL,JK)+PAER(JL, JAE, IKL)&
     204!                &* RTAUA(KNU,JAE)*RPIZA(KNU,JAE)
    194205           !wi*ti*gi
    195              PCGAZ(JL,JK) =  PCGAZ(JL,JK) +PAER(JL, JAE, IKL)&
    196                 &* RTAUA(KNU,JAE)*RPIZA(KNU,JAE)*RCGA(KNU,JAE)
     206!             PCGAZ(JL,JK) =  PCGAZ(JL,JK) +PAER(JL, JAE, IKL)&
     207!                &* RTAUA(KNU,JAE)*RPIZA(KNU,JAE)*RCGA(KNU,JAE)
    197208           !wi*ti*(gi**2)
    198              ZFACOA_NEW(JL,JK)= ZFACOA_NEW(JL,JK)+PAER(JL, JAE, IKL)&
    199                 &* RTAUA(KNU,JAE)*RPIZA(KNU,JAE)*RCGA(KNU,JAE)*RCGA(KNU,JAE)
    200            ENDIF
     209!             ZFACOA_NEW(JL,JK)= ZFACOA_NEW(JL,JK)+PAER(JL, JAE, IKL)&
     210!                &* RTAUA(KNU,JAE)*RPIZA(KNU,JAE)*RCGA(KNU,JAE)*RCGA(KNU,JAE)
     211!           ENDIF
    201212        ENDDO
    202      ENDDO
     213!     ENDDO
    203214  ENDIF
    204215!--MODIFCODE 
    … …  
    217228!-- bug-fix: ZRATIO must be defined from the transformed value of optical thickness
    218229! MPLFH : ZTRAY N'EST PAS INITIALISE !!!!! A REVOIR (MPL)
    219       ZTRAY=0.
     230      ZTRAY= PRAYL(JL) * PDSIG(JL,JK)
    220231!     print *,'>>>>>>> swclr: ZTRAY ',ZTRAY
    221232      ZDENB = ZTRAY + PTAUAZ(JL,JK)*(1.0_JPRB-PPIZAZ(JL,JK)*ZFF)

  • LMDZ5/branches/testing/libf/phylmd/rrtm/swr.F90

    r1999 r2056  
    161161!++MODIFCODE
    162162  IF (NOVLP >= 5) THEN !MESONH VERSION
    163    stop'provisoire pour verifier option novlp=1'
     163   stop 'provisoire pour verifier option novlp=1'
    164164   ZFACOA =PTAUAZ(JL,IKL)
    165165   ZFACOC = 1.0_JPRB - POMEGA(JL,KNU,IKL) * PCG(JL,KNU,IKL)* PCG(JL,KNU,IKL)
    … …  
    192192    ZCLOUD(JL) = ZSS1(JL)
    193193  ELSEIF (NOVLP == 2) THEN
    194    stop'provisoire pour verifier option novlp=1b'
     194   stop 'provisoire pour verifier option novlp=1b'
    195195!* maximum
    196196    ZCLOUD(JL) = MAX( ZSS1(JL) , ZCLOUD(JL) )
    … …  
    198198!++MODIFCODE
    199199  ELSEIF ((NOVLP == 3).OR.((NOVLP  >=  5).AND.(NOVLP /= 8))) THEN
    200    stop'provisoire pour verifier option novlp=1c'
     200   stop 'provisoire pour verifier option novlp=1c'
    201201!--MODIFCODE
    202202!* random
    … …  
    205205    ZC1I(JL,IKL) = ZCLOUD(JL)
    206206  ELSEIF (NOVLP == 4) THEN
    207    stop'provisoire pour verifier option novlp=1d'
     207   stop 'provisoire pour verifier option novlp=1d'
    208208!* Hogan & Illingworth, 2001 
    209209    ZCLEAR(JL)=ZCLEAR(JL)*( &

  • LMDZ5/branches/testing/libf/phylmd/rrtm/tpm_dim.F90

    r1999 r2056  
    3232TYPE(DIM_TYPE),POINTER     :: R
    3333
     34!$OMP THREADPRIVATE(r)
     35!$OMP THREADPRIVATE(dim_resol)
     36
     37
    3438END MODULE TPM_DIM

  • LMDZ5/branches/testing/libf/phylmd/rrtm/tpm_distr.F90

    r1999 r2056  
    152152TYPE(DISTR_TYPE),POINTER     :: D
    153153
     154!$OMP THREADPRIVATE(d,leq_regions,mtagdistgp,mtagdistsp,mtaggl,mtagletr)
     155!$OMP THREADPRIVATE(mtaglg,mtaglm,mtagml,mtagpart,myproc,mysetv,mysetw)
     156!$OMP THREADPRIVATE(ncombflen,nprgpew,nprgpns,nproc,nprtrns,nprtrv,nprtrw)
     157
     158!$OMP THREADPRIVATE(distr_resol)
     159
    154160END MODULE TPM_DISTR
    155161

  • LMDZ5/branches/testing/libf/phylmd/rrtm/tpm_fft.F90

    r1999 r2056  
    1414TYPE(FFT_TYPE),POINTER     :: T
    1515
     16!$OMP THREADPRIVATE(t)
     17
    1618END MODULE TPM_FFT

  • LMDZ5/branches/testing/libf/phylmd/rrtm/tpm_gen.F90

    r1999 r2056  
    2323LOGICAL   :: LMPOFF          ! true: switch off message passing
    2424
     25!$OMP THREADPRIVATE(lalloperm,limp,limp_noolap,lmpoff,msetup0,ncur_resol)
     26!$OMP THREADPRIVATE(ndef_resol,nerr,nmax_resol,nout,nprintlev,npromatr)
     27
    2528END MODULE TPM_GEN

  • LMDZ5/branches/testing/libf/phylmd/rrtm/tpm_geometry.F90

    r1999 r2056  
    1919TYPE(GEOM_TYPE),POINTER     :: G
    2020
     21!$OMP THREADPRIVATE(g)
     22!$OMP THREADPRIVATE(geom_resol)
     23
    2124END MODULE TPM_GEOMETRY

  • LMDZ5/branches/testing/libf/phylmd/rrtm/tpm_trans.F90

    r1999 r2056  
    4242INTEGER(KIND=JPIM) :: NGPBLKS ! Number of NPROMA blocks
    4343
     44!$OMP THREADPRIVATE(ldivgp,lscders,luvder,lvorgp,nf_sc2,nf_sc3a,nf_sc3b,ngpblks,nproma)
     45!$OMP THREADPRIVATE(foubuf_in,foubuf)
     46
    4447END MODULE TPM_TRANS
     48
     49

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yoe_mcica.F90

    r1999 r2056  
    1212
    1313!------------------------------------------------------------------------------
     14
     15!$OMP THREADPRIVATE(nmci1,nmci2,xcw)
     16
    1417END MODULE YOE_McICA

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yoe_tile_prop.F90

    r1999 r2056  
    1919REAL(KIND=JPRB),ALLOCATABLE :: RTSKTI (:,:,:) ! SKIN TEMPERATURE
    2020
     21!$OMP THREADPRIVATE(rahfsti,revapti,rtskti,rustrti,rvstrti)
    2122END MODULE YOE_TILE_PROP

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yoe_uvrad.F90

    r1999 r2056  
    2222REAL(KIND=JPRB) :: RFCAER, RFCOZO, RMUZUV
    2323!     -----------------------------------------------------------------
     24!$OMP THREADPRIVATE(ipuv,jcop,juvlam,luvdbg,luvproc,luvtdep,nraduv,nuv,nuvtim,rasa,rasb)
     25!$OMP THREADPRIVATE(rasc,rasd,rase,rasf,rayuvb,rcguva,rcieas,rfa0,rfa1,rfb0,rfb1,rfb2,rfb3)
     26!$OMP THREADPRIVATE(rfc0,rfc1,rfc2,rfc3,rfcaer,rfcozo,rfd0,rfd1,rfd2,rfd3,rk250,rmuzuv,rpiuva)
     27!$OMP THREADPRIVATE(rsuvb,rsuvb0,rtauva,rtuv1,rtuv2,ruvlam,rxpl,rxpo)
    2428END MODULE YOE_UVRAD
    2529

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yoeaeratm.F90

    r1999 r2056  
    4545! LAER6SDIA  : .T. if radiance diagnostics with 6S
    4646!     ------------------------------------------------------------------
     47
     48
     49!$OMP THREADPRIVATE(indbg,laer6sdia,laerclimg,laerclimz,laerclist,laerdrydp)
     50!$OMP THREADPRIVATE(laergbud,laerngat,laerprnt,laerscav,laersedim,laersurf)
     51!$OMP THREADPRIVATE(ndd1,nss1,repscaer,rmasse,rmfmin)
     52
    4753END MODULE YOEAERATM
    4854

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yoeaerd.F90

    r1999 r2056  
    6565
    6666!     ------------------------------------------------------------------
     67
     68!$OMP THREADPRIVATE(raedc,raeds,raelc,raels,raesc,raess,raeuc,raeus)
     69!$OMP THREADPRIVATE(rcaeadk,rcaeadm,rcaeopd,rcaeopl,rcaeops,rcaeopu)
     70!$OMP THREADPRIVATE(rcaeros,rcstbga,rctrbga,rctrpt,rcvobga)
     71
     72!$OMP THREADPRIVATE(cvdaed,cvdael,cvdaes,cvdaeu)
     73
    6774END MODULE YOEAERD

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yoeaerop.F90

    r1999 r2056  
    3131! OMG is pizero, the single scattering albedo        ND
    3232!     ------------------------------------------------------------------
     33
     34!$OMP THREADPRIVATE(alf_bc,alf_dd,alf_fa,alf_om,alf_ss,alf_su,asy_bc,asy_dd)
     35!$OMP THREADPRIVATE(asy_fa,asy_om,asy_ss,asy_su,omg_bc,omg_dd,omg_fa,omg_om,omg_ss,omg_su)
     36
    3337END MODULE YOEAEROP
    3438

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yoeaersnk.F90

    r1999 r2056  
    5858! RVSEDLIC   :
    5959!     -----------------------------------------------------------------
     60
     61!$OMP THREADPRIVATE(nbrh,r_r,r_s,ralphar,ralphas,rfraer,rfrbc,rfrdd,rfrgas)
     62!$OMP THREADPRIVATE(rfrif,rfrom,rfrso4,rfrss,rho_ice,rho_wat,rmmd_dd,rmmd_ss)
     63!$OMP THREADPRIVATE(rrhmax,rrho_dd,rrho_ss,rrhtab,rssgrow,rvdplic,rvdplnd)
     64!$OMP THREADPRIVATE(rvdpoce,rvdpsic,rvsedlic,rvsedlnd,rvsedoce,rvsedsic)
     65
    6066END MODULE YOEAERSNK
    6167

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yoeaersrc.F90

    r1999 r2056  
    4444! JDDUST     : 1 =LSCE, 2 =based on MODIS
    4545!     ------------------------------------------------------------------
     46
     47
     48
     49!$OMP THREADPRIVATE(jkbin,jktyp,laerextr,lepaero,nbinaer,nddust,nindaer)
     50!$OMP THREADPRIVATE(nmaxtaer,ntaer,ntypaer,rclonv,rdclonv,rdglav,rdgmuv)
     51!$OMP THREADPRIVATE(rdslonv,rgelav,rgemuv,rlatvol,rlonvol,rslonv,rssflx)
     52
    4653END MODULE YOEAERSRC
    4754

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yoecld.F90

    r1999 r2056  
    7070!  LOMEGA:  LOGICAL  SWITCH FOR OMEGA-FILTER ON MIDDLE CLOUD
    7171!     ------------------------------------------------------------------
     72
     73!$OMP THREADPRIVATE(lomega,ranva,ranvb,ranvh,rcca,rccb,rccc,rcfct)
     74!$OMP THREADPRIVATE(rclwmr,rcscal,repscr,repsec,retahb,retamb,rgammas)
     75!$OMP THREADPRIVATE(rloia,rloib,rloic,rloid,rlonia,rlonib,rrhh,rrhl,rrhm)
     76
     77!$OMP THREADPRIVATE(ceta)
     78
    7279END MODULE YOECLD

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yoeclop.F90

    r1999 r2056  
    8383! RRIW   :  REAL   : TRANSITION RANGE
    8484!     -----------------------------------------------------------------
     85
     86
     87!$OMP THREADPRIVATE(raswca,raswcb,raswcc,raswcd,raswce,raswcf,rebcua)
     88!$OMP THREADPRIVATE(rebcub,rebcuc,rebcud,rebcue,rebcuf,rebcug,rebcuh)
     89!$OMP THREADPRIVATE(rebcui,rebcuj,reffia,reffib,rriw,rtiw,ryfwca)
     90!$OMP THREADPRIVATE(ryfwcb,ryfwcc,ryfwcd,ryfwce,ryfwcf)
     91
    8592END MODULE YOECLOP

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yoecnd.F90

    r1999 r2056  
    2323! REPQMI :  Minimum specific humidity (security within QNEGAT)
    2424!     -----------------------------------------------------------------
     25
     26!$OMP THREADPRIVATE(repflm,repfls,repqmi)
     27
     28!$OMP THREADPRIVATE(cevapcu)
     29
    2530END MODULE YOECND

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yoedbug.F90

    r1999 r2056  
    1212INTEGER(KIND=JPIM) :: KSTPDBG(3)
    1313!     ------------------------------------------------------------------
     14
     15!$OMP THREADPRIVATE(kstpdbg)
     16
    1417END MODULE YOEDBUG
    1518

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yoelw.F90

    r1999 r2056  
    7979!  RVGO3 :  REAL     RESIDUAL PRESSURE FOR O3  VOIGT LINE HALF-WIDTH
    8080!     ------------------------------------------------------------------
     81
     82
     83!$OMP THREADPRIVATE(alwt,blwt,mxixt,ng1,ng1p1,nipd,nipd2,nsil,ntr,ntra,nua)
     84!$OMP THREADPRIVATE(pdga,pdgb,retype,rntnu,ro1h,ro2h,ro3t,rpialf0,rptype,rt1)
     85!$OMP THREADPRIVATE(rvgco2,rvgh2o,rvgo3,tintp,tref,tstand,tstp,wg1,xp)
    8186END MODULE YOELW

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yoeovlp.F90

    r1999 r2056  
    2121
    2222!     ------------------------------------------------------------------
     23!$OMP THREADPRIVATE(ra1ovlp)
    2324END MODULE YOEOVLP

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yoephli.F90

    r1999 r2056  
    5656!                          ACTIVATED
    5757!     ------------------------------------------------------------------
     58
     59!$OMP THREADPRIVATE(lenopert,leppcfls,lphylin,lraisanen,rlpal1,rlpal2,rlpbb)
     60!$OMP THREADPRIVATE(rlpbeta,rlpcc,rlpdd,rlpdrag,rlpevap,rlpmixl,rlpp00,rlptrc)
     61
    5862END MODULE YOEPHLI

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yoephy.F90

    r1999 r2056  
    9393! LE4ALB : LOGICAL  : MODIS ALBEDO (UV-Vis+NIR)x(direct+diffuse)
    9494!     -----------------------------------------------------------------
     95
     96!$OMP THREADPRIVATE(lagphy,lbud23,le4alb,leco2diu,lecond,lecumf,lecurr,ledcld)
     97!$OMP THREADPRIVATE(leevap,legwdg,lemethox,lemwave,leo3ch,leocco,leocsa,leocwa)
     98!$OMP THREADPRIVATE(leozoc,lepcld,lephys,leqngt,lera40,leradi,lerads,lerain)
     99!$OMP THREADPRIVATE(leshcv,lesice,lesurf,levdif,lmftrac,lvdftrac,nephys_pcfull)
     100!$OMP THREADPRIVATE(nphproma,nphyint,rthrfrti)
     101
    95102END MODULE YOEPHY

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yoerad.F90

    r1999 r2056  
    170170!                     2: McICA w generalized overlap in cloud generator
    171171!     ------------------------------------------------------------------
     172
     173!$OMP THREADPRIVATE(crtabledir,crtablefil,lccnl,lccno,ldiffc,leco2var,lecsrad)
     174!$OMP THREADPRIVATE(ledbug,lepo3ra,lerad1h,leradhs,lhghg,lhvolca,lnewaer,lnotroaer)
     175!$OMP THREADPRIVATE(lonewsw,loptrproma,lradlb,lrayl,lrrtm,lsrtm,naer,ncsradf,nhincsol)
     176!$OMP THREADPRIVATE(niceopt,ninhom,nlayinh,nliqopt,nlngr1h,nlw,nmcica,nmode,novlp,nozocl)
     177!$OMP THREADPRIVATE(npertaer,npertoz,nradfr,nradint,nradip,nradlp,nradnfr,nradpfr,nradpla)
     178!$OMP THREADPRIVATE(nradres,nradsfr,nrint,nrproma,nscen,nswnl,nswtl,ntsw,nuv,raovlp)
     179!$OMP THREADPRIVATE(rbovlp,rccnlnd,rccnsea,rlwinhf,rpertoz,rre2de,rswinhf)
     180
    172181END MODULE YOERAD

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yoerdi.F90

    r1999 r2056  
    4040!          TO BE MORE THAN THE RESPECTIVE VALUE AT SATURATION.
    4141!     -----------------------------------------------------------------
     42
     43!$OMP THREADPRIVATE(rcardi,rccfc11,rccfc12,rcch4,rcco2,rcfc11,rcfc12,rch4)
     44!$OMP THREADPRIVATE(rcn2o,repclc,reph2o,rfvar,rhvar,rincsol,rn2o,ro3,rrae)
     45!$OMP THREADPRIVATE(rsolinc,rsundur)
     46
    4247END MODULE YOERDI

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yoerdu.F90

    r1999 r2056  
    4949
    5050!     -----------------------------------------------------------------
     51
     52
     53!$OMP THREADPRIVATE(diff,nimp,nout,ntraer,nuaer,r10e,rcday,replog,repsc,repsco,repscq,repsct,repscw)
     54
    5155END MODULE YOERDU

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yoerrtab.F90

    r1999 r2056  
    2424! BPADE  :  REAL     
    2525!     -----------------------------------------------------------------
     26
     27!$OMP THREADPRIVATE(bpade,trans)
     28
    2629END MODULE YOERRTAB
    2730

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yoerrtbg2.F90

    r1999 r2056  
    2626! CORR2  :  REAL   :
    2727!    -------------------------------------------------------------------
     28!$OMP THREADPRIVATE(corr1,corr2)
     29
    2830END MODULE YOERRTBG2
    2931

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yoerrtftr.F90

    r1999 r2056  
    3535!  WT    : REAL    :
    3636!    -------------------------------------------------------------------
     37
     38!$OMP THREADPRIVATE(ngb,ngc,ngm,ngn,ngs,wt)
     39
    3740END MODULE YOERRTFTR
    3841

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yoerrto1.F90

    r1999 r2056  
    3333! SELFREFO: REAL     
    3434!     -----------------------------------------------------------------
     35!$OMP THREADPRIVATE(forrefo,fracrefao,fracrefbo,kao,kbo,selfrefo)
    3536END MODULE YOERRTO1

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yoerrto10.F90

    r1999 r2056  
    3232! KB      : REAL     
    3333!     -----------------------------------------------------------------
     34
     35!$OMP THREADPRIVATE(fracrefao,fracrefbo,kao,kbo)
     36
    3437END MODULE YOERRTO10

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yoerrto11.F90

    r1999 r2056  
    3434! SELFREF : REAL     
    3535!     -----------------------------------------------------------------
     36
     37!$OMP THREADPRIVATE(fracrefao,fracrefbo,kao,kbo,selfrefo)
    3638END MODULE YOERRTO11

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yoerrto12.F90

    r1999 r2056  
    2929! SELFREF : REAL
    3030!     -----------------------------------------------------------------
     31
     32!$OMP THREADPRIVATE(fracrefao,kao,selfrefo)
     33
    3134END MODULE YOERRTO12

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yoerrto13.F90

    r1999 r2056  
    3030! SELFREF : REAL
    3131!     -----------------------------------------------------------------
     32!$OMP THREADPRIVATE(fracrefao,kao,selfrefo)
    3233END MODULE YOERRTO13

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yoerrto14.F90

    r1999 r2056  
    3434! SELFREF : REAL     
    3535!     -----------------------------------------------------------------
     36!$OMP THREADPRIVATE(fracrefao,fracrefbo,kao,kbo,selfrefo)
    3637END MODULE YOERRTO14

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yoerrto15.F90

    r1999 r2056  
    3030! SELFREF : REAL
    3131!     -----------------------------------------------------------------
     32!$OMP THREADPRIVATE(fracrefao,kao,selfrefo)
    3233END MODULE YOERRTO15

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yoerrto16.F90

    r1999 r2056  
    3030! SELFREF : REAL     
    3131!     -----------------------------------------------------------------
     32!$OMP THREADPRIVATE(fracrefao,kao,selfrefo)
    3233END MODULE YOERRTO16

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yoerrto2.F90

    r1999 r2056  
    3535! FORREFO : REAL 
    3636!     -----------------------------------------------------------------
     37!$OMP THREADPRIVATE(forrefo,fracrefao,fracrefbo,kao,kbo,selfrefo)
    3738END MODULE YOERRTO2

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yoerrto3.F90

    r1999 r2056  
    3939! SELFREFO: REAL     
    4040!     -----------------------------------------------------------------
     41!$OMP THREADPRIVATE(absn2oao,absn2obo,forrefo,fracrefao,fracrefbo,kao,kbo,selfrefo)
    4142END MODULE YOERRTO3

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yoerrto4.F90

    r1999 r2056  
    3232! SELFREF : REAL     
    3333!     -----------------------------------------------------------------
     34!$OMP THREADPRIVATE(fracrefao,fracrefbo,kao,kbo,selfrefo)
    3435END MODULE YOERRTO4

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yoerrto5.F90

    r1999 r2056  
    3535! SELFREF : REAL     
    3636!     -----------------------------------------------------------------
     37!$OMP THREADPRIVATE(ccl4o,fracrefao,fracrefbo,kao,kbo,selfrefo)
    3738END MODULE YOERRTO5

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yoerrto6.F90

    r1999 r2056  
    3434! SELFREF : REAL     
    3535!     -----------------------------------------------------------------
     36!$OMP THREADPRIVATE(absco2o,cfc11adjo,cfc12o,fracrefao,kao,selfrefo)
    3637END MODULE YOERRTO6

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yoerrto7.F90

    r1999 r2056  
    3535! SELFREF : REAL 
    3636!     -----------------------------------------------------------------
     37!$OMP THREADPRIVATE(absco2o,fracrefao,fracrefbo,kao,kbo,selfrefo)
    3738END MODULE YOERRTO7

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yoerrto8.F90

    r1999 r2056  
    4646! SELFREF : REAL     
    4747!     -----------------------------------------------------------------
     48!$OMP THREADPRIVATE(absco2ao,absco2bo,absn2oao,absn2obo,cfc12o,cfc22adjo,fracrefao,fracrefbo,kao,kbo,selfrefo)
    4849END MODULE YOERRTO8

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yoerrto9.F90

    r1999 r2056  
    4242! SELFREF : REAL     
    4343!     -----------------------------------------------------------------
     44!$OMP THREADPRIVATE(absn2oo,fracrefao,fracrefbo,kao,kbo,selfrefo)
    4445END MODULE YOERRTO9

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yoerrtrf.F90

    r1999 r2056  
    2626! TREF   : REAL
    2727!     -----------------------------------------------------------------
     28!$OMP THREADPRIVATE(pref,preflog,tref)
    2829END MODULE YOERRTRF

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yoerrtrwt.F90

    r1999 r2056  
    3232! RWT    :  REAL   :
    3333!    -------------------------------------------------------------------
     34!$OMP THREADPRIVATE(frefa,frefadf,frefb,frefbdf,rwgt)
    3435END MODULE YOERRTRWT

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yoerrtwn.F90

    r1999 r2056  
    3636! TOTPLK16: REAL    :
    3737!     -----------------------------------------------------------------
     38!$OMP THREADPRIVATE(delwave,ng,nspa,nspb,totplk16,totplnk,wavenum1,wavenum2)
    3839END MODULE YOERRTWN

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yoesat.F90

    r1999 r2056  
    5353! RGEAS : REAL    : LATITUDE OF EAST  LIMIT OF FIELD OF VIEW
    5454!     -----------------------------------------------------------------
     55!$OMP THREADPRIVATE(lgeose,lgeosw,lgms,lindsa,lmto,lnoaa,lnoab,lnoac,lnoad,ngeo,npolo,rgalt,rgeas,rgnad,rgnor,rgsou,rgwst)
    5556END MODULE YOESAT

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yoesrtaer.F90

    r1999 r2056  
    3232
    3333!     -----------------------------------------------------------------
     34!$OMP THREADPRIVATE(rsrasya,rsrpiza,rsrtaua)
    3435END MODULE YOESRTAER
    3536

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yoesrtcop.F90

    r1999 r2056  
    127127
    128128!     -----------------------------------------------------------------
     129!$OMP THREADPRIVATE(rsaswa,rsaswb,rsaswc,rsaswd,rsaswe,rsaswf,rsecia,rsecib)
     130!$OMP THREADPRIVATE(rsecic,rsecid,rsecie,rsecif,rsfla0,rsfla1,rsflb0,rsflb1)
     131!$OMP THREADPRIVATE(rsflb2,rsflb3,rsflc0,rsflc1,rsflc2,rsflc3,rsfld0,rsfld1)
     132!$OMP THREADPRIVATE(rsfld2,rsfld3,rsfua0,rsfua1,rsfub0,rsfub1,rsfub2,rsfub3)
     133!$OMP THREADPRIVATE(rsfuc0,rsfuc1,rsfuc2,rsfuc3,rsssia,rsssie,rsssif,rsssig)
     134!$OMP THREADPRIVATE(rsssih,rsssik,rsyfwa,rsyfwb,rsyfwc,rsyfwd,rsyfwe,rsyfwf)
    129135END MODULE YOESRTCOP
    130136

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yoesrtop.F90

    r1999 r2056  
    4040!                    FU, 1996, J. CLIM., 9,
    4141!     -----------------------------------------------------------------
     42!$OMP THREADPRIVATE(abscld1,abscoice,abscoliq,asyice2,asyice3,asyliq1,extcoice)
     43!$OMP THREADPRIVATE(extcoliq,extice2,extice3,extliq1,fdelta,fdlice3,forwice,forwliq)
     44!$OMP THREADPRIVATE(gice,gliq,ssacoice,ssacoliq,ssaice2,ssaice3,ssaliq1)
    4245END MODULE YOESRTOP
    4346

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yoesrtwn.F90

    r1999 r2056  
    6161!  RWGT   : REAL    :
    6262!     -----------------------------------------------------------------
     63!$OMP THREADPRIVATE(delwave,ng,ngbsw,ngc,ngm,ngn,ngs,nmpsrtm,nspa,nspb)
     64!$OMP THREADPRIVATE(pref,preflog,rwgt,tref,wavenum1,wavenum2,wt,wtsm)
    6365END MODULE YOESRTWN
    6466

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yoesw.F90

    r1999 r2056  
    264264! NMPSRTM: INTEGER  : Indices for mapping SW[1:6] albedo into SRTM[1:14] 
    265265!     -----------------------------------------------------------------
     266!$OMP THREADPRIVATE(apad,bpad,d,nexpo3,nmpsrtm,ntyps,radjust,raer,raswca)
     267!$OMP THREADPRIVATE(raswcb,raswcc,raswcd,raswce,raswcf,rcga,rebcua,rebcub)
     268!$OMP THREADPRIVATE(rebcuc,rebcud,rebcue,rebcuf,rebcug,rebcuh,rebcui,rebcuj)
     269!$OMP THREADPRIVATE(reffia,reffib,rexpo3,rflaa0,rflaa1,rflbb0,rflbb1,rflbb2)
     270!$OMP THREADPRIVATE(rflbb3,rflcc0,rflcc1,rflcc2,rflcc3,rfldd0,rfldd1,rfldd2)
     271!$OMP THREADPRIVATE(rfldd3,rfuaa0,rfuaa1,rfubb0,rfubb1,rfubb2,rfubb3,rfucc0)
     272!$OMP THREADPRIVATE(rfucc1,rfucc2,rfucc3,rfueta,rfuetb,rfuetc,rfulio,rhsavi)
     273!$OMP THREADPRIVATE(rhsra,rhsrb,rhsrc,rhsrd,rhsre,rhsrf,rhsrta,rhsrtb,rlilia)
     274!$OMP THREADPRIVATE(rlilib,rpdh1,rpdu1,rpiza,rpnh,rpnu,rrasy,rray,rriw,rroma)
     275!$OMP THREADPRIVATE(rromb,rsusha,rsushc,rsushd,rsushe,rsushf,rsushfa,rsushg)
     276!$OMP THREADPRIVATE(rsushh,rsushk,rswce,rswcp,rtaua,rtdh2o,rtdumg,rth2o,rtiw)
     277!$OMP THREADPRIVATE(rtumg,rtweight,rweight,rweigs,rweigv,ryfwca,ryfwcb,ryfwcc,ryfwcd,ryfwce,ryfwcf)
    266278END MODULE YOESW

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yoethf.F90

    r1999 r2056  
    6060
    6161!       ----------------------------------------------------------------
     62!$OMP THREADPRIVATE(r2es,r3ies,r3les,r4ies,r4les,r5alscp,r5alvcp,r5ies,r5les)
     63!$OMP THREADPRIVATE(ralfdcp,ralsdcp,ralvdcp,rhoh2o,rkoop1,rkoop2,rtber,rtbercu)
     64!$OMP THREADPRIVATE(rtice,rticecu,rtwat,rtwat_rtice_r,rtwat_rticecu_r,rvtmp2)
    6265END MODULE YOETHF

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yoevdf.F90

    r1999 r2056  
    4242!     *RPARSRF*   REAL     *DEPTH OF SURFACE LAYER AS FRACTION OF PBL-H
    4343!     ------------------------------------------------------------------
     44!$OMP THREADPRIVATE(nvtypes,rentr,repdu2,rkap,rlam,rpar,rpar1,rparsrf,rvdifts)
    4445END MODULE YOEVDF

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yoewcou.F90

    r1999 r2056  
    112112
    113113!     ------------------------------------------------------------------
     114!$OMP THREADPRIVATE(cbegdat,lwcou,lwcou2w,lwcounorms,lwvin_mask_not_set,lwvin_uninitialised,mwvin_recvtot)
     115!$OMP THREADPRIVATE(mwvin_sendtot,ndurat,nlat1w,nlatw,nlon1w,nlonw,nnorxw,nresum,nstpw,rdegrew,rnortw,rsoutw)
    114116END MODULE YOEWCOU

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yom_phys_grid.F90

    r1999 r2056  
    110110TYPE(TYPE_DYN_POINT),ALLOCATABLE :: YDYNPOI(:)
    111111 
     112!$OMP THREADPRIVATE(dyn_grid,dyn_sl,phys_grid,phys_sl)
     113!$OMP THREADPRIVATE(ydynpoi,yphypoi)
    112114END MODULE YOM_PHYS_GRID

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yom_ygfl.F90

    r1999 r2056  
    121121
    122122!------------------------------------------------------------------
     123!$OMP THREADPRIVATE(laerosfc,lghgsfc,lsf6sfc,nactaero,naero,ngfl_ext,ngfl_ezdiag,ngfl_forc,nghg,ngrg)
     124!$OMP THREADPRIVATE(ntrac,ya,ya_nl,yaero,yaero_nl,ycpf,ycpf_nl,ycvgq,ycvgq_nl,ycvv,ycvv_nl,ydal,ydal_nl)
     125!$OMP THREADPRIVATE(ydom,ydom_nl,yext,yext_nl,yezdiag,yezdiag_nl,yforc,yforc_nl,yg,yg_nl,ygfl,ygflc,yghg)
     126!$OMP THREADPRIVATE(yghg_nl,ygrg,ygrg_nl,yi,yi_nl,yl,yl_nl,yo3,yo3_nl,yq,yq_nl,yqva,yqva_nl,yr,yr_nl,ys)
     127!$OMP THREADPRIVATE(ys_nl,ysdsat,ysdsat_nl,yspf,yspf_nl,ysrc,ysrc_nl,ytke,ytke_nl,ytrac,ytrac_nl,yual)
     128!$OMP THREADPRIVATE(yual_nl,yuen,yuen_nl,yunebh,yunebh_nl,yuom,yuom_nl)
    123129END MODULE YOM_YGFL

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yomaer15.F90

    r1999 r2056  
    3232REAL(KIND=JPRB) :: RAER15 (5,6)
    3333
     34!$OMP THREADPRIVATE(raer15,rcga15,rpiza15,taua15)
    3435END MODULE YOMAER15

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yomaerd15.F90

    r1999 r2056  
    7070!     *RCAEROS15*  REAL      *BACKGROUND VALUE IN ABSENCE OF AEROSOLS.
    7171!     ------------------------------------------------------------------
     72!$OMP THREADPRIVATE(raedc15,raeds15,raelc15,raels15,raesc15,raess15,raeuc15,raeus15,rcaeadk15,rcaeadm15)
     73!$OMP THREADPRIVATE(rcaeopd15,rcaeopf15,rcaeopl15,rcaeops15,rcaeopu15,rcaeros15,rcstbga15,rctrbga15,rctrpt15,rcvobga15)
     74!$OMP THREADPRIVATE(cvdaed15,cvdaef15,cvdael15,cvdaes15,cvdaeu15)
    7275END MODULE YOMAERD15

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yomarar.F90

    r1999 r2056  
    9898
    9999!     ------------------------------------------------------------------
     100!$OMP THREADPRIVATE(larobu_enable,ldiagwmax,losigmas,losubg_aucv,losubg_cond,lowarm,lsquall)
     101!$OMP THREADPRIVATE(macprg,macprr,macprs,malbdir,malbsca,mfrthds,mgz0,mgz0h,minprg,minprr,minprs)
     102!$OMP THREADPRIVATE(mpabsm,mpsurf,mqvm,mrain,mrhodref,msfrv,msfsv,msfth,msfu,msfv,msnow,mswdif)
     103!$OMP THREADPRIVATE(mswdir,mtm,mum,mvemis,mvm,mvqs,mvts,mzz,ndiagfr,ndiagwmax,ndtchem,ngpar)
     104!$OMP THREADPRIVATE(nprintfr,nptp,nrefroi1,nrefroi2,nrr,nrri,nrrl,nsplitr,nsv,nswb_mnh,vsquall)
     105!$OMP THREADPRIVATE(nbuproc,njbudg1,njbudg2,xsw_bands)
    100106END MODULE YOMARAR

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yomarphy.F90

    r1999 r2056  
    4141CHARACTER(LEN=1) :: CCOUPLING
    4242!    -------------------------------------------------------------------
     43!$OMP THREADPRIVATE(ccoupling,lbuflux,lkfbconv,lkfbd,lkfbs,lmicro,lmpa,lmse,lorilam,lrdust,lturb,lusechem)
    4344END MODULE YOMARPHY
    4445

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yomcape.F90

    r1999 r2056  
    4444
    4545!     ------------------------------------------------------------------
     46!$OMP THREADPRIVATE(gcapepsd,gcaperet,ncapeiter,netapes)
    4647END MODULE YOMCAPE

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yomcli.F90

    r1999 r2056  
    107107REAL(KIND=JPRB) :: SZZ0D
    108108
     109!$OMP THREADPRIVATE(edlat,edlon,elatne,elatsw,elonne,elonsw,lglobe,lieee,ndatx,ndaty)
     110!$OMP THREADPRIVATE(nglobx,ngloby,npint,nslice,ntpdes,ntpgla,ntplac,ntpmer,salbb,salbd)
     111!$OMP THREADPRIVATE(salbg,salbm,salbn,salbx,sargd,sargn,sargx,sdepd,sdepn,sdepx,semib)
     112!$OMP THREADPRIVATE(semid,semig,semim,semin,semix,sfcz0,smanq,smask,srsmd,srsmn,srsmx)
     113!$OMP THREADPRIVATE(ssabd,ssabn,ssabx,sther,str,sveg,swr,szz0b,szz0d,szz0m,szz0n,szz0u)
    109114END MODULE YOMCLI

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yomclop15.F90

    r1999 r2056  
    6767! RRIW15   :  REAL   :  TRANSITION RANGE
    6868!     -----------------------------------------------------------------
     69!$OMP THREADPRIVATE(rebcua15,rebcub15,rebcuc15,rebcud15,rebcue15,rebcuf15,rebcug15,rebcuh15)
     70!$OMP THREADPRIVATE(reffia15,reffib15,reffwia15,rriw15,rtiw15,ryfwca15,ryfwcb15,ryfwcc15,ryfwcd15,ryfwce15,ryfwcf15)
    6971END MODULE YOMCLOP15

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yomcoaphy.F90

    r1999 r2056  
    2121CHARACTER (LEN = 256) ::   CPTABLEDIR
    2222
     23!$OMP THREADPRIVATE(cptabledir,cptablefil,nphyint,phys_gppbuf)
    2324END MODULE YOMCOAPHY

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yomcst.F90

    r1999 r2056  
    7979
    8080!    ------------------------------------------------------------------
     81!$OMP THREADPRIVATE(r,r1sa,ra,ralpd,ralps,ralpw,ratm,rbetd,rbets,rbetw,rclum,rcpd,rcpv,rcs,rcvd,rcvv,rcw)
     82!$OMP THREADPRIVATE(rd,rday,rdt,rea,repsm,restt,retv,rg,rgamd,rgams,rgamw,rhpla,ri0,rkappa,rkbol,rlmlt)
     83!$OMP THREADPRIVATE(rlstt,rlszer,rlvtt,rlvzer,rmch4,rmco,rmco2,rmd,rmhcho,rmn2o,rmno2,rmo3,rmra,rmsf6)
     84!$OMP THREADPRIVATE(rmso2,rmv,rnavo,romega,rpi,rsiday,rsigma,rsiyea,rtt,rv)
    8185END MODULE YOMCST

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yomct0.F90

    r1999 r2056  
    467467LOGICAL ::  LSFORC
    468468!     ------------------------------------------------------------------
     469!$OMP THREADPRIVATE(cfclass,cfdirlst,cfpncf,cndispp,cnmexp,cnppath,ctype,l_screen_call,l_split_screen,lallopr,lalltc)
     470!$OMP THREADPRIVATE(laprxpk,larome,larpegef,larpegef_rdgp_init,larpegef_rdgp_trajbg,larpegef_rdgp_trajhr)
     471!$OMP THREADPRIVATE(larpegef_trajbg,larpegef_trajhr,lbackg,lcanari,lcasig,lelam,lfbdap,lfdbop,lfpart2,lfpos)
     472!$OMP THREADPRIVATE(lgrbop,lguess,lifsmin,lifstraj,lminim,lmpdiag,lmpoff,lnf,lnhdyn,lnobgon,lobs,lobsc1,lobsref)
     473!$OMP THREADPRIVATE(loldpp,lopdis,loutput,lpc_full,lpc_nesc,lpc_old,lrefgen,lrefout,lregeta,lretcfou,lrfoutcnorm)
     474!$OMP THREADPRIVATE(lrfric,lrgptcnorm,lrough,lrplane,lrubc,lscmec,lscreen,lscreen_openmp,lsfcflx,lsforc,lsimob)
     475!$OMP THREADPRIVATE(lsitric,lslag,lsmssig,lsprt,ltenc,ltwotl,lvercor,lwrtcfou,n2dini,n3dini,n_regions_ew,n_regions_ns)
     476!$OMP THREADPRIVATE(ncntvar,nconf,ncycle,ndhfdts,ndhfgts,ndhfzts,ndhpts,nfrco,nfrcorm,nfrdhfd,nfrdhfg,nfrdhfz,nfrdhp)
     477!$OMP THREADPRIVATE(nfrgdi,nfrhis,nfrisp,nfrmasscon,nfrpos,nfrsdi,ngdits,nhists,ninterpincr,ninterpincrlimit)
     478!$OMP THREADPRIVATE(ninterpincrorder,ninterptraj,ninterptrajlimit,ninterptrajorder,nmasscons,noutput,npisps,nposts)
     479!$OMP THREADPRIVATE(nprgpew,nprgpns,nprintlev,nproc,nprtrm,nprtrn,nprtrns,nprtrv,nprtrw,nquad,nsdits,nsppr,nstart)
     480!$OMP THREADPRIVATE(nstepini,nstop,ntasks,rextlhf,rextshf,rextz0h,rextz0m,rtenc)
     481!$OMP THREADPRIVATE(n_regions)
    469482END MODULE YOMCT0

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yomct0b.F90

    r1999 r2056  
    1616
    1717!     ------------------------------------------------------------------
     18!$OMP THREADPRIVATE(lecmwf)
    1819END MODULE YOMCT0B

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yomct3.F90

    r1999 r2056  
    2222
    2323!     ------------------------------------------------------------------
     24!$OMP THREADPRIVATE(lgpqinsp,lrecall_suhdf_in_cnt4,lspc_from_di,nstep)
    2425END MODULE YOMCT3

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yomcver.F90

    r1999 r2056  
    4646! -----------------------------------------------------------------------------
    4747
     48!$OMP THREADPRIVATE(lsvtsm,lvertfe,lvsplip,nvsch)
     49!$OMP THREADPRIVATE(rderi,rfaa,rfbb,rfcc,rfdd,rinte,rvspc,rvsptri,vrdetar)
    4850END MODULE YOMCVER

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yomdim.F90

    r1999 r2056  
    228228
    229229!     ------------------------------------------------------------------
     230!$OMP THREADPRIVATE(lader,loptproma,lspt,luvder,lvor,ncmax,ncpec,ncpec2,ndgenfph)
     231!$OMP THREADPRIVATE(ndgeng,ndgenh,ndgenl,ndglg,ndgll,ndgnh,ndgsafph,ndgsag,ndgsah)
     232!$OMP THREADPRIVATE(ndgsal,ndgsur,ndgung,ndgunl,ndguxg,ndguxl,ndlon,ndlsm,ndlsur)
     233!$OMP THREADPRIVATE(ndlung,ndluxg,ndsur1,nf3d,nfaux,nfc2d,nfd2d,nfgpnh,nflen,nflevg)
     234!$OMP THREADPRIVATE(nflevl,nflevlmx,nflsa,nflsul,nflsur,nfppye,nfppyx,nfther,ngpblks)
     235!$OMP THREADPRIVATE(nmsmax,nmtcmax,nppm,nproma,npromb,npromc,nprome,npromm,npromnh)
     236!$OMP THREADPRIVATE(npromnh_gwadv,npromp,npromv,npromvc,nrlevx,ns1d,ns2d,ns3d,nsaux)
     237!$OMP THREADPRIVATE(nsefre,nsmax,nsmin,nspec,nspec2,nspec2g,nspec2mx,nspecg,ntcmax,ntmax)
     238!$OMP THREADPRIVATE(ntpec2,numcp,nump,numtp,numxp,nundefld,nvarmax,nxmax,nxpec,nxpecg)
     239!$OMP THREADPRIVATE(ndlunl,ndluxl)
    230240END MODULE YOMDIM

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yomdphy.F90

    r1999 r2056  
    6868LOGICAL            :: LTPROF
    6969!     ------------------------------------------------------------------
     70!$OMP THREADPRIVATE(ltprof,ncextr,nchac,nchin,ncsi,ncsnec,ncxp,nloa,nloe,nsira,ntiles,ntoz1d,ntoz2d,ntoz3d,ntsl,ntssg)
     71!$OMP THREADPRIVATE(ntvg,nvclis,nvextr,nvextrdyn,nvtend,nvxp,nvxp2,nvxtr2)
    7072END MODULE YOMDPHY

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yomdyn.F90

    r1999 r2056  
    563563
    564564!     ------------------------------------------------------------------
     565!$OMP THREADPRIVATE(alphint,betadt,flccri,frandh,gammax,gammax0,hdirdiv,hdiro3,hdirpd,hdirq,hdirsp,hdirt)
     566!$OMP THREADPRIVATE(hdirvd,hdirvor,hdsrdiv,hdsrvd,hdsrvor,hdtime_strhd,hrdirdiv,hrdiro3,hrdirpd,hrdirq)
     567!$OMP THREADPRIVATE(hrdirsp,hrdirt,hrdirvd,hrdirvor,hrdsrdiv,hrdsrvd,hrdsrvor,l2tlff,ladvf,ladvfw,lchdif)
     568!$OMP THREADPRIVATE(ldry_ecmwf,leltra,lfrein,lfreinf,limpf,lnewhd,lpc_xidt,lqmhp,lqmhpd,lqmht,lqmhvd,lqmhw)
     569!$OMP THREADPRIVATE(lqmp,lqmpd,lqmt,lqmvd,lqmw,lrephd,lrhdi_lastiterpc,lrspline_p,lrspline_spd,lrspline_svd)
     570!$OMP THREADPRIVATE(lrspline_t,lrspline_w,lsettls,lsidg,lsl_unlphy_f,lstrhd,lverave_hluv,lverflt,ncomp_cvgq)
     571!$OMP THREADPRIVATE(ncurrent_iter,ndlnpr,nitmp,nlevvf,nrubc,nsiter,nspdlag,nsrefdh,nsvdlag,ntlag,nvlag,nwlag)
     572!$OMP THREADPRIVATE(rcmslp0,rdampdiv,rdampdivs,rdamphds,rdampo3,rdamppd,rdampq,rdampsp,rdampt,rdampvd,rdampvds)
     573!$OMP THREADPRIVATE(rdampvor,rdampvors,refgeo,reps1,reps2,repsm1,repsm2,repsp1,repsvfdi,repsvfvo,rexpdh,rexpdhs)
     574!$OMP THREADPRIVATE(rfrein,rhydr0,rrdxtau,rtemrb,rw2tlff,sdred,sipr,siprub,sirprg,sirprn,sitime,sitr,sitra,sitrub)
     575!$OMP THREADPRIVATE(slevdh,slevdh2,slevdh3,slevdhs,slevdhs2,slhda0,slhdb,slhdkmax,tdt,tstep,vcak,vcpr,vctr,vesl)
     576!$OMP THREADPRIVATE(vetaon,vetaox,vmax1,vmax2,vnorm,xidt)
     577!$OMP THREADPRIVATE(gmr,rcordif,rcordih,rcordit,rdhi,rdhs,rdidiv,rdigfl,rdipd,rdisp,rditg,rdivd,rdivor,rdsdiv)
     578!$OMP THREADPRIVATE(rdsvd,rdsvor,rkrf,s2eta,scgmap,sialph,sib,sidelp,sidphi,sifac,sifaci,siheg,siheg2,sihegb)
     579!$OMP THREADPRIVATE(sihegb2,silnpr,simi,simo,sirdel,sirub,sitlaf,sitlah,sitrica,sitricb,sitricc,sivp,slhda,slhdd0)
    565580END MODULE YOMDYN

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yomfa.F90

    r1999 r2056  
    6969TYPE(FAD) :: YFAQVA  ! Total humidity amplitude variation of Q+L+I
    7070!     ------------------------------------------------------------------
     71!$OMP THREADPRIVATE(nbitcs,nbitpg,npulap,nstron,nvgrib,yfaclf,yfacpf,yfacvgq,yfacvv,yfadal,yfadom,yfafsp1)
     72!$OMP THREADPRIVATE(yfafsp2,yfafsp3,yfafsp4,yfafsp5,yfag,yfai,yfakhi,yfal,yfao3,yfaorog,yfapd,yfapsi,yfaq)
     73!$OMP THREADPRIVATE(yfaqva,yfar,yfas,yfasdsat,yfasp,yfaspf,yfasrc,yfat,yfatke,yfaual,yfauen,yfaugeo)
     74!$OMP THREADPRIVATE(yfaunebh,yfauom,yfavd,yfavgeo)
    7175END MODULE YOMFA

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yomfpc.F90

    r1999 r2056  
    244244INTEGER(KIND=JPIM) :: NFPMASK
    245245!     ------------------------------------------------------------------
     246!$OMP THREADPRIVATE(c1fp2df,c1fp3df,c1fp3dfh,c1fp3dfp,c1fp3dfs,c1fp3dft,c1fp3dfv,c1fpcfu,c1fpdom,c1fpphy,c1fpxfu)
     247!$OMP THREADPRIVATE(cfp2df,cfp3df,cfp3dfh,cfp3dfp,cfp3dfs,cfp3dft,cfp3dfv,cfpcfu,cfpdir,cfpdom,cfpfmt,cfpiden)
     248!$OMP THREADPRIVATE(cfpphy,cfpxfu,fpbl,lasq,lfitp,lfitt,lfitv,lfpcnt,lfplosp,lfpmois,lfpnhpd,lfpnhvd,lfpnhvw)
     249!$OMP THREADPRIVATE(lfpq,lfprh100,lfpspec,lmoconvar,ltracefp,mfp2df,mfp2dyn,mfp3dfh,mfp3dfp,mfp3dfs,mfp3dft)
     250!$OMP THREADPRIVATE(mfp3dfv,mfp3dyn,mfpphy,nfp2df,nfp3df,nfp3dfh,nfp3dfp,nfp3dfs,nfp3dft,nfp3dfv,nfp3h,nfp3p)
     251!$OMP THREADPRIVATE(nfp3pv,nfp3s,nfp3th,nfpcape,nfpcfu,nfpcli,nfpdom,nfpdphy,nfpgrib,nfpincr,nfpindyn,nfpinphy)
     252!$OMP THREADPRIVATE(nfplake,nfplnpr,nfpmask,nfpphy,nfpsurfex,nfpxfu,nfpxlev,nrfp3s,rfp3h,rfp3p,rfp3pv,rfp3th)
     253!$OMP THREADPRIVATE(rfpcd2,rfpcorr,rfpcsab,rfpvcap,wdxi,wdxo,wsxi,wsxo)
    246254END MODULE YOMFPC

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yomgc.F90

    r1999 r2056  
    6363
    6464!      ----------------------------------------------------------------
     65
     66!$OMP THREADPRIVATE(gaw,geclo,gelam,gelat,gemu,geslo,gm,gnordl,gnordlcl,gnordm,gnordmcl,gnordmcm,gomvrl)
     67!$OMP THREADPRIVATE(gomvrm,gsqm2,ngplat,nuniquegp,orog,orogl,orogll,oroglm,orogm,orogmm,rcori,rcoric)
    6568END MODULE YOMGC

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yomgem.F90

    r1999 r2056  
    187187
    188188!     ------------------------------------------------------------------
     189!$OMP THREADPRIVATE(nbeegp,nbnegp,ngptot,ngptot_cap,ngptotg,ngptotmx,nhtyp,nsttyp,r4jp,rc2m1,rc2p1,rcor0)
     190!$OMP THREADPRIVATE(rcor1,rcor2,reflcape,reflkuo,reflrhc,rlocen,rmucen,rnlginc,rstret,teqc,teqh,teqk,toppres,vp00,vrlevx)
     191!$OMP THREADPRIVATE(ndglu,nestagp,ngptotl,nloen,nloeng,nmen,nmeng,nmentc,nstagp,ntstagp,nvautf,nvauth,ratath,ratatx)
     192!$OMP THREADPRIVATE(rcolon,rindx,rindy,rsilon,vaf,vah,valh,vbf,vbh,vc,vcuico,vcuicoh,vdela,vdelb,vetaf,vetah,vrdetah)
    189193END MODULE YOMGEM

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yomgrb.F90

    r1999 r2056  
    670670
    671671!     ------------------------------------------------------------------
     672!$OMP THREADPRIVATE(mbitsgg,mbitssh,mensfnb,mgrbs2,mgrbs3,mjdiag,mjdomai,mjiter,mlocgrb,msec0,msec1,msec2spm,msec2spp)
     673!$OMP THREADPRIVATE(msec3,msec4,msmaxnp,mtotens,nbitsgg,nbitssh,ncalval,nconsensus,ndwd,nensfnb,ngrb080,ngrb081)
     674!$OMP THREADPRIVATE(ngrb082,ngrb083,ngrb084,ngrb085,ngrb086,ngrb087,ngrb088,ngrb089,ngrb090,ngrb091,ngrb092,ngrb093)
     675!$OMP THREADPRIVATE(ngrb094,ngrb095,ngrb096,ngrb097,ngrb098,ngrb099,ngrb100,ngrb101,ngrb102,ngrb103,ngrb104,ngrb105)
     676!$OMP THREADPRIVATE(ngrb106,ngrb107,ngrb108,ngrb109,ngrb10fg,ngrb10u,ngrb10v,ngrb110,ngrb111,ngrb112,ngrb113,ngrb114)
     677!$OMP THREADPRIVATE(ngrb115,ngrb116,ngrb117,ngrb118,ngrb119,ngrb120,ngrb149,ngrb150,ngrb153,ngrb154,ngrb207,ngrb21)
     678!$OMP THREADPRIVATE(ngrb214,ngrb215,ngrb216,ngrb217,ngrb218,ngrb219,ngrb22,ngrb222,ngrb223,ngrb224,ngrb225,ngrb226)
     679!$OMP THREADPRIVATE(ngrb227,ngrb23,ngrb241,ngrb242,ngrb249,ngrb250,ngrb251,ngrb252,ngrb253,ngrb254,ngrb255,ngrb2d)
     680!$OMP THREADPRIVATE(ngrb2t,ngrbaerdep,ngrbaergn01,ngrbaergn02,ngrbaergn03,ngrbaergn04,ngrbaergn05,ngrbaergn06)
     681!$OMP THREADPRIVATE(ngrbaergn07,ngrbaergn08,ngrbaergn09,ngrbaergn10,ngrbaergn11,ngrbaergn12,ngrbaergn13,ngrbaergn14)
     682!$OMP THREADPRIVATE(ngrbaergn15,ngrbaerlg,ngrbaerls01,ngrbaerls02,ngrbaerls03,ngrbaerls04,ngrbaerls05,ngrbaerls06)
     683!$OMP THREADPRIVATE(ngrbaerls07,ngrbaerls08,ngrbaerls09,ngrbaerls10,ngrbaerls11,ngrbaerls12,ngrbaerls13,ngrbaerls14)
     684!$OMP THREADPRIVATE(ngrbaerls15,ngrbaerlts,ngrbaermr01,ngrbaermr02,ngrbaermr03,ngrbaermr04,ngrbaermr05,ngrbaermr06)
     685!$OMP THREADPRIVATE(ngrbaermr07,ngrbaermr08,ngrbaermr09,ngrbaermr10,ngrbaermr11,ngrbaermr12,ngrbaermr13,ngrbaermr14)
     686!$OMP THREADPRIVATE(ngrbaermr15,ngrbaerpr,ngrbaerscc,ngrbaersm,ngrbal,ngrbalnid,ngrbalnip,ngrbaluvd,ngrbaluvp,ngrbanor)
     687!$OMP THREADPRIVATE(ngrbaodlg,ngrbaodpr,ngrbaodsm,ngrbasn,ngrbat,ngrbbld,ngrbblh,ngrbbv,ngrbcape,ngrbcc,ngrbccc)
     688!$OMP THREADPRIVATE(ngrbchar,ngrbci,ngrbciwc,ngrbclwc,ngrbco2a,ngrbco2b,ngrbco2o,ngrbcp,ngrbcsf,ngrbcvh,ngrbcvl,ngrbd)
     689!$OMP THREADPRIVATE(ngrbe,ngrbemis,ngrbes,ngrbewov,ngrbewss,ngrbfal,ngrbflsr,ngrbfsr,ngrbgh,ngrbghg,ngrbgrg,ngrbgwd)
     690!$OMP THREADPRIVATE(ngrbhcc,ngrbie,ngrbiews,ngrbinss,ngrbishf,ngrbisor,ngrbistl1,ngrbistl2,ngrbistl3,ngrbistl4,ngrblcc)
     691!$OMP THREADPRIVATE(ngrblgws,ngrblnsp,ngrblsf,ngrblsm,ngrblsp,ngrblspf,ngrblsrh,ngrbmaxxtra,ngrbmcc,ngrbmgws)
     692!$OMP THREADPRIVATE(ngrbminxtra,ngrbmn2t,ngrbmont,ngrbmsl,ngrbmx2t,ngrbneov,ngrbnsov,ngrbnsss,ngrbnwov,ngrbo3,ngrbpaw)
     693!$OMP THREADPRIVATE(ngrbpthpv,ngrbpv,ngrbq,ngrbr,ngrbro,ngrbrsn,ngrbs2,ngrbs3,ngrbsd,ngrbsdfor,ngrbsdor,ngrbsf,ngrbsf6)
     694!$OMP THREADPRIVATE(ngrbskt,ngrbslhf,ngrbslor,ngrbsmlt,ngrbsp,ngrbspar,ngrbsparc,ngrbspd,ngrbsr,ngrbsrc,ngrbsshf,ngrbssr)
     695!$OMP THREADPRIVATE(ngrbssrc,ngrbssrd,ngrbsst,ngrbstinc,ngrbstl1,ngrbstl2,ngrbstl3,ngrbstl4,ngrbstr,ngrbstrc,ngrbstrd)
     696!$OMP THREADPRIVATE(ngrbsund,ngrbsuvb,ngrbsvd,ngrbswl1,ngrbswl2,ngrbswl3,ngrbswl4,ngrbt,ngrbtbt,ngrbtcc,ngrbtcghg)
     697!$OMP THREADPRIVATE(ngrbtcgrg,ngrbtciw,ngrbtclw,ngrbtco3,ngrbtctrac,ngrbtcw,ngrbtcwv,ngrbth,ngrbtp,ngrbtrac,ngrbtsn)
     698!$OMP THREADPRIVATE(ngrbtsp,ngrbtsr,ngrbtsrc,ngrbttr,ngrbttrc,ngrbtvh,ngrbtvl,ngrbu,ngrbv,ngrbveg,ngrbvimd,ngrbvo)
     699!$OMP THREADPRIVATE(ngrbvso,ngrbw,ngrbz,njdiag,njdomai,njiter,nleg,nlocgrb,nmethod,nmfr,nncep,nreference,nsec0,nsec1)
     700!$OMP THREADPRIVATE(nsec2spm,nsec2spp,nsec3,nsec4,nsmaxnp,nsteplpp,nstream,nsystem,ntotens,nukm,rsec3,ssec3)
     701!$OMP THREADPRIVATE(msec2gg,ngrbgp2,ngrbgp3,ngrbsp2,ngrbsp3,nsec2gg,rsec2,ssec2)
    672702END MODULE YOMGRB

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yomgstats.F90

    r1999 r2056  
    9898INTEGER(KIND=JPIM) :: NPRNT_STATS=3
    9999
     100!$OMP THREADPRIVATE(ccdesc,cctype,lbarrier_stats,ldetailed_stats,lgstats_label,lstats,lstats_alloc)
     101!$OMP THREADPRIVATE(lstats_comms,lstats_mem,lstats_omp,lstatscpu,lsyncstats,ltrace_stats,myproc_stats)
     102!$OMP THREADPRIVATE(ncalls,ncalls_total,nprnt_stats,nproc_stats,nstats_mem,ntmem,ntrace_stats,thistcpu)
     103!$OMP THREADPRIVATE(thistime,thisvcpu,time_last_call,timelcall,timemax,timesqsum,timesum,timesumb)
     104!$OMP THREADPRIVATE(ttcpulcall,ttcpusum,tvcpulcall,tvcpusum)
     105!$OMP THREADPRIVATE(ncall_trace,nprcids_stats,time_start,time_trace)
    100106END MODULE YOMGSTATS
    101107

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yomjfh.F90

    r1999 r2056  
    1313!    -----------------------------------------------------------------
    1414
     15!$OMP THREADPRIVATE(n_vmass)
    1516END MODULE YOMJFH

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yomleg.F90

    r1999 r2056  
    3838REAL(KIND=JPRB),ALLOCATABLE:: RIPI2(:)
    3939
     40!$OMP THREADPRIVATE(r1mu2,r1mua,r1mui,r1qm2,racthe,ripi0,ripi1,ripi2,rlati,rlatig,rmu,rsqm2,rw)
    4041END MODULE YOMLEG

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yomlun.F90

    r1999 r2056  
    138138INTEGER(KIND=JPIM) :: NULTRAJBG
    139139!     ------------------------------------------------------------------
     140!$OMP THREADPRIVATE(nbias,ncmafl,nefls,neflss,negash,nfgigg,nfgish,ninigg,ninish,ninmsh,npdirl,npoddh,npossh)
     141!$OMP THREADPRIVATE(npppsh,nscasig,nscaspe,nscatab,nscrtch,ntcsr,ntide,ntrjsh,nulase,nulass,nulcl1,nulcl2,nulco)
     142!$OMP THREADPRIVATE(nulcont,nuldila,nulfp01,nulfp02,nulfp03,nulfp04,nulfp05,nulfp06,nulfp07,nulfp08,nulfp09)
     143!$OMP THREADPRIVATE(nulfp10,nulfp11,nulfp12,nulfp13,nulfp14,nulfp15,nulfpos,nulhwf,nulrad,nulrcf,nulref,nulrotc)
     144!$OMP THREADPRIVATE(nulrtl,nulstat,nultmp,nultrajbg,nultrajhr,nulusr1,nulusr2,nulusr3,nulusr4,nulusr5,nuo3ch1,nuo3ch2)
    140145END MODULE YOMLUN

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yomlun_ifsaux.F90

    r1999 r2056  
    1818
    1919!     ------------------------------------------------------------------
     20!$OMP THREADPRIVATE(nulerr,nulout)
    2021END MODULE YOMLUN_IFSAUX

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yomlw15.F90

    r1999 r2056  
    7777!  RVGO315  :  REAL     RESIDUAL PRESSURE FOR O3  VOIGT LINE HALF-WIDTH
    7878!     ------------------------------------------------------------------
     79!$OMP THREADPRIVATE(at15,bt15,ga15,gb15,mxixt15,ng115,ng1p115,nint15,nipd15,nipd215)
     80!$OMP THREADPRIVATE(ntr15,ntra15,nua15,o1h15,o2h15,oct15,rntnu15,rpialf015,rt115,rvgco215)
     81!$OMP THREADPRIVATE(rvgh2o15,rvgo315,tintp15,tref15,tstand15,tstp15,wg115,xp15)
    7982END MODULE YOMLW15

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yommddh.F90

    r1999 r2056  
    230230! ---- DDH
    231231!     ------------------------------------------------------------------
     232!$OMP THREADPRIVATE(bdeddh,fnoddh,hdsfgl,ndhaend,ndhaenp,ndhahkd,ndhahkp,ndhamcd)
     233!$OMP THREADPRIVATE(ndhamcp,ndhavd,ndhavp,ndhbend,ndhbenp,ndhbhkd,ndhbhkp,ndhbmcd)
     234!$OMP THREADPRIVATE(ndhbmcp,ndhbpu,ndhbpx,ndhbvd,ndhbvp,ndhcs,ndhcssu,ndhcv,ndhcvsu)
     235!$OMP THREADPRIVATE(ndhcvsul,ndhcvsun,ndhddx,ndhfend,ndhfenp,ndhffs,ndhfhkd,ndhfhkp)
     236!$OMP THREADPRIVATE(ndhfiis,ndhfmcd,ndhfmcp,ndhfsd,ndhfsp,ndhfsss,ndhftis,ndhftls)
     237!$OMP THREADPRIVATE(ndhftss,ndhftts,ndhfvd,ndhfvp,ndhfwls,ndhidh,ndhkd,ndhnom,ndhnpu)
     238!$OMP THREADPRIVATE(ndhten,ndhthk,ndhtmc,ndhven,ndhvfs,ndhvhk,ndhviis,ndhvmc,ndhvs)
     239!$OMP THREADPRIVATE(ndhvsss,ndhvtis,ndhvtls,ndhvtss,ndhvtts,ndhvv,ndhvwls,ndhzpr)
     240!$OMP THREADPRIVATE(hdsf,hdsfdu,hdsfla,nddhi,nddhla,nddhpu,nlrddh,nlxddh,nurddh,nuxddh)
    232241END MODULE YOMMDDH

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yommp.F90

    r1999 r2056  
    466466! ----------------------------------------------------------------------
    467467
     468!$OMP THREADPRIVATE(leq_regions,limp,limp_noolap,lockio,lsplit,lsplitout,mbx_size,mp_type,my_region_ew,my_region_ns)
     469!$OMP THREADPRIVATE(myfrstactlat,mylstactlat,myproc,myseta,mysetb,mysetm,mysetn,mysetv,mysetw,nafpb1,napsets,narib1)
     470!$OMP THREADPRIVATE(narob1,naslb1,nblkout,nbsetsp,ncombflen,ncpec2v,nfldin,nfldout,nfpmpbufsz,nfpprocs,nfprpt,nfpspt)
     471!$OMP THREADPRIVATE(nfrstloff,ngathout,nintype,nouttype,npsp,nptrfloff,nrimpbufsz,nriprocs,nrirpt,nrispt,nrompbufsz)
     472!$OMP THREADPRIVATE(nroprocs,nrorpt,nrospt,nslmpbufsz,nslpad,nslprocs,nslrpt,nslspt,nspec2v,nspec2vf,nstrin,nstrout)
     473!$OMP THREADPRIVATE(ntpec2v,numxp,nwrtout)
     474!$OMP THREADPRIVATE(lsplitlat,mylats,mylevs,nallms,nbsetlev,nfpcomm,nfpcore,nfpext,nfpoff,nfponl,nfprecvpos,nfprecvptr)
     475!$OMP THREADPRIVATE(nfpsendpos,nfpsendptr,nfpsta,nfrstlat,nglobalindex,nglobalproc,ngpset2pe,nlocalindex,nlstlat,noboff)
     476!$OMP THREADPRIVATE(nobonl,nobsta,nonl,nprcids,nprocm,npsurf,nptrcv,nptrfrstlat,nptrlat,nptrll,nptrls,nptrlstlat,nptrmf)
     477!$OMP THREADPRIVATE(nptrms,nptrsv,nptrsvf,nptrtv,nrecvptr,nricomm,nricore,nriext,nrioff,nrionl,nrirecvpos,nrirecvptr)
     478!$OMP THREADPRIVATE(nrisendpos,nrisendptr,nrista,nrocomm,nrocore,nroext,nrooff,nroonl,nrorecvpos,nrorecvptr,nrosendpos)
     479!$OMP THREADPRIVATE(nrosendptr,nrosta,nsendptr,nslcomm,nslcore,nslext,nsloff,nslonl,nslrecvpos,nslsendpos,nslsta)
     480!$OMP THREADPRIVATE(nspstaf,nsta,numll,numpp,numprocfp,numvmo,numvmojb,numxpp,nvmodist)
    468481END MODULE YOMMP

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yomoml.F90

    r1999 r2056  
    4646
    4747LOGICAL :: OML_DEBUG = .FALSE.
     48!$OMP THREADPRIVATE(OML_DEBUG)
    4849
    4950PUBLIC OML_WAIT_EVENT, OML_SET_EVENT, OML_INCR_EVENT, &
    … …  
    6263!-- Note: Still JPIM !!
    6364INTEGER(KIND=JPIM) :: M_EVENT = 0
     65!$OMP THREADPRIVATE(M_EVENT)
    6466
    6567!-- Note: OML_LOCK_KIND, not JPIM !!
    6668INTEGER(KIND=OML_LOCK_KIND) :: M_LOCK(2) = (/-1, -1/)
     69!$OMP THREADPRIVATE(M_LOCK)
    6770
    6871CONTAINS

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yomphy.F90

    r1999 r2056  
    412412INTEGER(KIND=JPIM), PARAMETER  ::  JPHYARO =   3  ! for AROME physics
    413413!     ------------------------------------------------------------------
     414!$OMP THREADPRIVATE(cgmixlen,l1drhcri,l2phys,l3mt,ladjcld,laerodes,laerolan,laerosea,laerosoo,laerosul)
     415!$OMP THREADPRIVATE(laerovol,lajucv,lautoneb,lbccond,lblvar,lcape,lcddpro,lclsatur,lcollec,lcondwt,lcvcas)
     416!$OMP THREADPRIVATE(lcvdd,lcvlis,lcvpgy,lcvpp,lcvppkf,lcvpro,lcvra,lcvrav3,ldifcons,lect,lectfl,levapp,lfgel)
     417!$OMP THREADPRIVATE(lfgels,lfpcor,lglt,lgwd,lgwdc,lgwrhcri,lhmto,lhucn,lhuneg,lmphys,lnd2diff,lnebco,lnebgr)
     418!$OMP THREADPRIVATE(lnebgy,lnebn,lnebnxr,lnebr,lnebt,lneige,lnewd,lnewstat,lnoias,lnsmlis,lo3abc,lozone,lpble)
     419!$OMP THREADPRIVATE(lphcdpi,lphspsh,lpil,lprgml,lprocld,lptke,lqxrtgh,lrautoev,lray,lrayfm,lrayfm15,lraylu)
     420!$OMP THREADPRIVATE(lraypl,lreasur,lrelaxt,lrelaxw,lrews,lrmix,lrnumx,lrprox,lrrgust,lrrmes,lrstab,lrtdl)
     421!$OMP THREADPRIVATE(lrtpp,lscmf,lsfhyd,lslc,lsmnimbt,lsmrot,lsmtps,lsnv,lsolv,lsrcon,lsrcont,lssd,lstra)
     422!$OMP THREADPRIVATE(lstrapro,lstras,lthermo,lvdif,lvfull,lvgsn,lvoigt,lz0hsrel,nbiter,ndpsfi,noir,nphy)
     423!$OMP THREADPRIVATE(nphyrep,nprac,nprag,nprri,nsmdneb,nsmtbot)
    414424END MODULE YOMPHY

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yomphy0.F90

    r1999 r2056  
    706706
    707707!     ------------------------------------------------------------------
     708!$OMP THREADPRIVATE(a0ml_at,a0ml_au,a0ml_bt,a0ml_bu,acbrphim,acg,adise,adisi,aecls3,aecls4,aercs1,aercs3,aercs5)
     709!$OMP THREADPRIVATE(agre1,agre2,agref,agreke,agrericr,ahclpv,aj1meps,aj1peps,ajbumin,akn,ald,alfx,almav,almave)
     710!$OMP THREADPRIVATE(alphae,alphat,arsb2,arsc1,arsc2,arsch,arscq,arsct,bedifv,ecmnp,ecmnpi,ectmin,edb,edc,edd,edk)
     711!$OMP THREADPRIVATE(eps,etacut,evap,fentrt,fevapc,fnebc,font,fqlic,galp,gamap1,gamtke,gccsv,gcismin,gcomod,gcvachi)
     712!$OMP THREADPRIVATE(gcvadmw,gcvads,gcvalfa,gcvalmx,gcvbee,gcvbeta,gcveex,gcvmlt,gcvnu,gcvpsi,gcvpsie,gcvsqdcx)
     713!$OMP THREADPRIVATE(gcvsqdn,gcvsqdr,gddbeta,gddeva,gddevf,gddsde,gddwpf,gfric,gpblhk0,gpblhra,grcvpp,grhcmod,grrinte)
     714!$OMP THREADPRIVATE(grrmina,gwbfaut,gwdamp,gwdbc,gwdcco,gwdcd,gwdlt,gwdprof,gwdse,gwdvali,hcmin,hobst,hucoe,hucoe2)
     715!$OMP THREADPRIVATE(hutil,hutil1,hutil2,najiter,npclo1,npclo2,nrhcri,nsmtpa,nsmtpb,nuptke,qsmin,qsnebc,qsnebs,qssc)
     716!$OMP THREADPRIVATE(qssusc,qssuss,qssusv,qsusxc,qsusxs,qxral,qxrdel,qxrhx,qxrr,qxrtgh,raccef,raggef,rauitn,rauitx)
     717!$OMP THREADPRIVATE(rauiuste,rautefr,rautefs,rautsbet,rcin,rcoflm,rcoll,rcvevap,rdphic,rdtfac,retamin,revgsl,rfacnsm)
     718!$OMP THREADPRIVATE(rfalll,rhcrit1,rhcrit2,rhevap,ricret,ricrlm,rkdn,rnegat,rnintr,rnints,rnlcurv,rphi0,rphir,rqcrns)
     719!$OMP THREADPRIVATE(rqicrmax,rqicrmin,rqicrsn,rqicrt1,rqicrt2,rqicvmax,rqicvmin,rqlcr,rqlcv,rrgamma,rrimef,rrscale)
     720!$OMP THREADPRIVATE(rsmdnebx,rsmdtx,rtcape,rwbf1,rwbf2,sco,sensl,snnbco,spnbco,sttbmin,sxnbco,tca,tct,tctc,tcw,tddbu)
     721!$OMP THREADPRIVATE(tddfr,tddgp,tentr,tentrd,tentrvl,tentrx,tfvr,tfvs,trentrv,tudbu,tudfr,tudgp,turb,tvf,tvfc,tym)
     722!$OMP THREADPRIVATE(ucwstar,udect,ueteps,uhdifv,untier,upreclp,upretmax,upretmin,usdmlt,ushearm,usuprc,usuric,usurice)
     723!$OMP THREADPRIVATE(usuricl,usurid,usuride,utilgust,vchrnk,vkarmn,vvn,vvx,vz0cm,vziustar0,xblm,xklm,xmaxlm,xminlm)
     724!$OMP THREADPRIVATE(xnbmax,xwsalm,xwsblm)
     725!$OMP THREADPRIVATE(rhcri)
    708726END MODULE YOMPHY0

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yomphy1.F90

    r1999 r2056  
    304304INTEGER(KIND=JPIM) :: NCHSP
    305305!     ------------------------------------------------------------------
     306!$OMP THREADPRIVATE(alb1,alb2,albgla,albmax,albmed,albmer,albmin,alcrin,alrcn1,alrcn2,ea,ec2ref,emcrin,emmgla)
     307!$OMP THREADPRIVATE(emmmer,ewfc,ewwilt,g1b,g1c1sat,g1cgsat,g1p,g1wsat,g2b,g2c1sat,g2cgsat,g2p,g2wsat,g3cgsat)
     308!$OMP THREADPRIVATE(ga,gc1,gc1s1,gc1s2,gc1s3,gc1s4,gc1y1,gc2,gc2ref,gc3,gc31,gc32,gcgel,gcgels,gconv,gcz0h,gf1)
     309!$OMP THREADPRIVATE(gf3,gf4,glaimx,glaimxs,gneimx,gneimxs,gsnc1,gsnc2,gtsvap,gvegmx,gvegmxs,gwfc,gwlex,gwlmx)
     310!$OMP THREADPRIVATE(gwpimx,gwwilt,hsol,hsolit0,hsoliwr,lc1vap,limc,limw,nchsp,ntvgla,ntvmer,omtpro,omwpro,rc1max)
     311!$OMP THREADPRIVATE(rcgmax,rctgla,rctveg,rd1,rd2gla,rd2mer,rgl,rhomax,rhomin,rlai,rlaimx,rsmax,rtiner,rz0gla)
     312!$OMP THREADPRIVATE(rz0mer,rzhgla,rzhmer,rzhz0g,rzhz0m,sodelx,tmergl,toexp,tolin,tref4,wcrin,wcrinc,wcring)
     313!$OMP THREADPRIVATE(wnew,wpmx,wsmx,xcrinr,xcrinv)
    306314END MODULE YOMPHY1

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yomphy2.F90

    r1999 r2056  
    6565LOGICAL :: LMULAF
    6666!     ------------------------------------------------------------------
     67!$OMP THREADPRIVATE(facraf,gz0raf,hclp,htcls,htshm,htsml,hvcls,lmulaf,lraftur,ntshm,ntsml,ripblc,tsphy)
     68!$OMP THREADPRIVATE(xdamp,xmucvpp,xmulaf)
    6769END MODULE YOMPHY2

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yomphy3.F90

    r1999 r2056  
    192192REAL(KIND=JPRB) :: REXP_NEB
    193193!     ------------------------------------------------------------------
     194!$OMP THREADPRIVATE(bsfsa,bsfsi,bsfsn,bsfta,bsfti,bsftn,earrt,eoasa,eoasi,eoasn,eoata,eoati,eoatn,eodsa,eodsi)
     195!$OMP THREADPRIVATE(eodsn,eodta,eodti,eodtn,eoray,fcm_del_a,fcm_del_d,fcm_mu_a,fcm_mu_d,fcm_n_i,fcm_n_l,fcm_p_ai)
     196!$OMP THREADPRIVATE(fcm_p_al,fcm_p_di,fcm_p_dl,fcm_p_gi,fcm_p_gl,fcm_q_ai,fcm_q_al,fcm_q_di,fcm_q_dl,fcm_q_gi)
     197!$OMP THREADPRIVATE(fcm_q_gl,gca,gcb,gcc,gcd4,gce4,girec1,girec2,girec3,girec4,qco2,qlimi,qlip0,rexp_neb,rii0)
     198!$OMP THREADPRIVATE(usaa,usai,usan,usba,usbi,usbn,vdp,vnp)
    194199END MODULE YOMPHY3

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yompldsw.F90

    r1999 r2056  
    1010LOGICAL :: LOPT_RS6K
    1111!     ------------------------------------------------------------------
     12!$OMP THREADPRIVATE(lopt_rs6k,lopt_scalar)
    1213END MODULE YOMPLDSW

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yomprad.F90

    r1999 r2056  
    145145INTEGER(KIND=JPIM),ALLOCATABLE:: NRCRCVWO(:,:,:)
    146146INTEGER(KIND=JPIM),ALLOCATABLE:: NRCRCVEO(:,:,:)
     147!$OMP THREADPRIVATE(lodbgradi,lodbgradl,lradondem,lradondem_active,nfixradfld,nrimaxla,nrimaxlb)
     148!$OMP THREADPRIVATE(nrimaxln,nrimaxlt,nrimaxt,nrlbchunks,nrlbdata,nrlbpoints,nrlprcs,nrlrchunks)
     149!$OMP THREADPRIVATE(nrlrdata,nrlrpoints,radgrid)
     150!$OMP THREADPRIVATE(mask_ri1,mask_ri2,mask_ro1,mask_ro2,nrcneede,nrcneedw,nrcrcve,nrcrcveo,nrcrcvt)
     151!$OMP THREADPRIVATE(nrcrcvw,nrcrcvwo,nrcsnde,nrcsndt,nrcsndw,nrfrstoff,nrimax,nrirint,nrlastoff)
    147152END MODULE YOMPRAD

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yomrad15.F90

    r1999 r2056  
    6666! LNEWAER15 :LOGICAL : .TRUE. IF TEGEN AEROSOLS ARE USED
    6767!     ------------------------------------------------------------------
     68!$OMP THREADPRIVATE(lerad6h15,leradhs15,lnewaer15,lradaer15,lradlb15,naer15,nflux15,nmode15,novlp15)
     69!$OMP THREADPRIVATE(nrad15,nradc2f15,nradf2c15,nradfr15,nradnfr15,nradpfr15,nradpla15,nradsfr15,nrint15,nrproma15)
    6870END MODULE YOMRAD15

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yomradf.F90

    r1999 r2056  
    4242REAL(KIND=JPRB),ALLOCATABLE :: RMOON(:,:)
    4343
     44
     45!$OMP THREADPRIVATE(edro,emtc,emtd,emtu,rmoon,srlwd,srlwdcs,srswd,srswdcs,srswduv)
     46!$OMP THREADPRIVATE(srswdv,srswpar,srswparc,srswtinc,srswuvb,trsc,trsw)
    4447END MODULE YOMRADF

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yomrcoef.F90

    r1999 r2056  
    8080
    8181!   ----------------------------------------------------------------
     82!$OMP THREADPRIVATE(lglobrad,lrcoef,ltladdia,nexpbsr,nexpbthr,ng3sr,ngmtr,nlatrd,nlatwr,nlengsrb)
     83!$OMP THREADPRIVATE(nlengtrb,npckfsr,npckfthr)
     84!$OMP THREADPRIVATE(solrad,therrad,trmatsum,trweight)
    8285END MODULE YOMRCOEF

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yomrdi15.F90

    r1999 r2056  
    5959!            TO BE MORE THAN THE RESPECTIVE VALUE AT SATURATION.
    6060!     -----------------------------------------------------------------
     61!$OMP THREADPRIVATE(ralbice15,ralbsea15,ralbsnm15,ralbsno15,rcardi15,rcfc1115,rcfc1215,rch415)
     62!$OMP THREADPRIVATE(remiss15,repalb15,repclc15,reph2o15,rmu0015,rn2o15,rrae15,rsdtsn15,rsnowal15,rvlbdc15)
    6163END MODULE YOMRDI15

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yomrdu15.F90

    r1999 r2056  
    5252! REPSCW15  : REAL      SEC. EPSILON FOR CLOUD LIQUID WATER PATH
    5353!     -----------------------------------------------------------------
     54!$OMP THREADPRIVATE(diff15,nimp15,nout15,ntraer15,nuaer15,r10e15,rcday15,reelog15)
     55!$OMP THREADPRIVATE(repsc15,repsco15,repscq15,repsct15,repscw15,repsec15)
    5456END MODULE YOMRDU15

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yomrip.F90

    r1999 r2056  
    9999REAL(KIND=JPRB) :: RSIVSRLU
    100100!     ------------------------------------------------------------------
     101!$OMP THREADPRIVATE(nindat,nsssss,nstadd,nstass,rcodec,rcodeclu,rcovsr,rcovsrlu,rdeaso,rdecli,rdeclu)
     102!$OMP THREADPRIVATE(rdts22,rdts62,rdtsa,rdtsa2,reqtim,rhgmt,rip0,rip0lu,rsidec,rsideclu,rsivsr)
     103!$OMP THREADPRIVATE(rsivsrlu,rsovr,rstati,rtdt,rtimst,rtimtr,rtmolt,rwsovr)
    101104END MODULE YOMRIP

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yomsc2.F90

    r1999 r2056  
    4949
    5050!-----------------------------------------------------------------------
     51!$OMP THREADPRIVATE(nfldobb1,nfldslb1,nfldslb15,nfldslb2,nobwide,nriwidee,nriwiden,nriwides)
     52!$OMP THREADPRIVATE(nriwidew,nrowidee,nrowiden,nrowides,nrowidew,nslwide)
     53!$OMP THREADPRIVATE(nciend,ncist,ndiend,ndist)
    5154END MODULE YOMSC2

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yomscm.F90

    r1999 r2056  
    5151INTEGER(KIND=JPIM) :: NSCM_ADD_SAMPL
    5252
     53!$OMP THREADPRIVATE(gscm_lat1,gscm_lat2,gscm_lon1,gscm_lon2,gscm_radius,lgscm,nfrscm,nscm_add_sampl,nscm_space_s,nscmts)
    5354END MODULE YOMSCM

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yomsimphl.F90

    r1999 r2056  
    5151
    5252!   ----------------------------------------------------------------
     53!$OMP THREADPRIVATE(lclouds,lcvrasp,lgwdsp,lraysp,lrrmessp,lsimph,lsmootha,lsmoothb,lsmoothd,lstrasp)
     54!$OMP THREADPRIVATE(ltrajps,ltrajpst,lvdifsp)
    5355END MODULE YOMSIMPHL

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yomslphy.F90

    r1999 r2056  
    2626INTEGER(KIND=JPIM) :: MSAVTEND_S
    2727
     28!$OMP THREADPRIVATE(lslphy,msat_savtend,msat_savtend_s,msavtend_s,mt_savtend,mt_savtend_s)
     29!$OMP THREADPRIVATE(mu_savtend,mu_savtend_s,mv_savtend,mv_savtend_s,nvtend)
     30!$OMP THREADPRIVATE(savtend)
    2831END MODULE YOMSLPHY

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yomsta.F90

    r1999 r2056  
    119119
    120120!     ------------------------------------------------------------------
     121!$OMP THREADPRIVATE(hextrap,nlextrap,rdtdz1,rdtdz2,rdtdz3,rdtdz4,rdtdz5,rdtdz6,rdtdz7,rdtdz8,rdtdz9)
     122!$OMP THREADPRIVATE(rpabov,rpmepo,rpmes2,rpmeso,rpstpo,rpstr2,rpstra,rptrop,rtabov,rtmepo,rtmes2,rtmeso)
     123!$OMP THREADPRIVATE(rtstpo,rtstr2,rtstra,rtsur,rttrop,rzabov,rzmepo,rzmes2,rzmeso,rzstpo,rzstr2,rzstra)
     124!$OMP THREADPRIVATE(rztrop,vdtdz1,vdtdz2,vdtdz3,vdtdz4,vdtdz5,vdtdz6,vdtdz7,vdtdz8,vdtdz9,vpabov,vpmepo)
     125!$OMP THREADPRIVATE(vpmes2,vpmeso,vpstpo,vpstr2,vpstra,vptrop,vtabov,vtmepo,vtmes2,vtmeso,vtstpo,vtstr2)
     126!$OMP THREADPRIVATE(vtstra,vtsur,vttrop,vzabov,vzmepo,vzmes2,vzmeso,vzstpo,vzstr2,vzstra,vztrop)
     127!$OMP THREADPRIVATE(stden,stphi,stpre,stpreh,sttem,stz)
    121128END MODULE YOMSTA

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yomsw15.F90

    r1999 r2056  
    5151!  RTUMG15 :  REFERENCE TEMPERATURE UNIFORMLY MIXED GASES
    5252!     -----------------------------------------------------------------
     53!$OMP THREADPRIVATE(apad15,bpad15,d15,rpdh115,rpdu115,rpnh15,rpnu15,rray15,rsun15,rswce15,rswcp15)
     54!$OMP THREADPRIVATE(rtdh2o15,rtdumg15,rth2o15,rtumg15)
    5355END MODULE YOMSW15

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yomtag.F90

    r1999 r2056  
    107107INTEGER(KIND=JPIM) :: MTAGDISTFO
    108108
     109!$OMP THREADPRIVATE(mt_distributed_vector,mtagbdy,mtagbrpr,mtagcain,mtagcost,mtagddh1,mtagddh2,mtagddh3,mtagddh4)
     110!$OMP THREADPRIVATE(mtagddhres,mtagdistfo,mtagdistgp,mtagdistsp,mtageigmd,mtagfce,mtagfreq,mtaggetv,mtagglobsi)
     111!$OMP THREADPRIVATE(mtagglobsr,mtaggom,mtaggpnorm,mtaggsum,mtagke,mtaglcz,mtaglm,mtagmn,mtagms,mtagmv,mtagnm)
     112!$OMP THREADPRIVATE(mtagobseq,mtagobseqad,mtagozon,mtagpart,mtagrad,mtagrcbdy,mtagrclb,mtagrclbi,mtagreadvec)
     113!$OMP THREADPRIVATE(mtagsig,mtagslag,mtagsm,mtagspno,mtagtide,mtagvh)
    109114END MODULE YOMTAG

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yomtddh.F90

    r1999 r2056  
    310310!       IF LHDMCI
    311311!       IF LHDENT
    312 
     312!$OMP THREADPRIVATE(hdcs0,hdcs1,hdcvb0,hdcvb1,pddhfsvi)
    313313END MODULE YOMTDDH

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yomtoph.F90

    r1999 r2056  
    8787
    8888!     ------------------------------------------------------------------
     89!$OMP THREADPRIVATE(etajuc,etcoef,etcoefe,etcoet,etcvim,etdifu,etdrag,etdrme,etnebu,etozon,etplui)
     90!$OMP THREADPRIVATE(etqsat,etradi,ntajuc,ntcoef,ntcoefe,ntcoet,ntcvim,ntdifu,ntdrag,ntdrme,ntnebu)
     91!$OMP THREADPRIVATE(ntozon,ntplui,ntqsat,ntradi,rclx,rfmesoq,tpsclim,xdrmqk,xdrmqp,xdrmtk,xdrmtp)
     92!$OMP THREADPRIVATE(xdrmtx,xdrmuk,xdrmup,xdrmux)
     93!$OMP THREADPRIVATE(rmesoq,rmesot,rmesou)
    8994END MODULE YOMTOPH

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yomvdoz.F90

    r1999 r2056  
    7474LOGICAL :: LRDEPOZ
    7575!   ---------------------------------------------------------------------
     76!$OMP THREADPRIVATE(lrdepoz,lrdifoz,vdajh,vdajs,vdanh,vdans,vdejh,vdejs,vdenh,vdens,vdhjh,vdhjs)
     77!$OMP THREADPRIVATE(vdhnh,vdhns,vdnjh,vdnjs,vdnnh,vdnns,vdpjh,vdpjs,vdpnh,vdpns,vozhs,voznj)
    7678END MODULE YOMVDOZ

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yophlc.F90

    r1999 r2056  
    5353!                        X(T+1)=X(T-1)+2*DX
    5454!     -----------------------------------------------------------------
     55!$OMP THREADPRIVATE(ah0,alandz0,alpha,aseaz0,lczdeb,lkexp,lsdrds,lsdrlc,lsphlc,lvdfds,lvdflc,lzmcon,ustarl,ustars)
    5556END MODULE YOPHLC

  • LMDZ5/branches/testing/libf/phylmd/rrtm/yophnc.F90

    r1999 r2056  
    5050
    5151!     ------------------------------------------------------------------
     52!$OMP THREADPRIVATE(lecond2,lecubm2,lecumf2,ledcld2,legwdg2,lekpert,lencld2,leqngt2,leradfl2,leradi2)
     53!$OMP THREADPRIVATE(leradn2,lerads2,leradsw2,lesurf2,letrajp,letrajpt,levapls2,levdif2,ltraclnph)
    5254END MODULE YOPHNC
Note: See TracChangeset for help on using the changeset viewer.