Changeset 2207


Ignore:
Timestamp:
Feb 13, 2015, 9:40:30 AM (10 years ago)
Author:
fhourdin
Message:

Bi-gauussienne, suite.

Location:
LMDZ5/trunk/libf/phylmd
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/cv3a_uncompress.F90

    r1992 r2207  
    66    , clw, elij, evap, ep, epmlmmm, eplamm & ! RomP
    77    , wdtraina, wdtrainm &         ! RomP
     8    , qtc, sigt          &
    89
    910    , iflag1, kbas1, ktop1, precip1, cbmf1, plcl1, plfc1, wbeff1, sig1, w01, &
    … …  
    1314    , da1, phi1, mp1, phi21, d1a1, dam1, sigij1 & ! RomP+AC+jyg
    1415    , clw1, elij1, evap1, ep1, epmlmmm1, eplamm1 & ! RomP
    15     , wdtraina1, wdtrainm1) ! RomP
     16    , wdtraina1, wdtrainm1 & ! RomP
     17    , qtc1, sigt1)
    1618
    1719  ! **************************************************************
    … …  
    5658  REAL evap(nloc, nd), ep(nloc, nd) !RomP
    5759  REAL epmlmmm(nloc, nd, nd), eplamm(nloc, nd) !RomP+jyg
     60  REAL qtc(nloc, nd), sigt(nloc, nd) !RomP
    5861  REAL wdtraina(nloc, nd), wdtrainm(nloc, nd) !RomP
    5962
    … …  
    8487  REAL evap1(len, nd), ep1(len, nd) !RomP
    8588  REAL epmlmmm1(len, nd, nd), eplamm1(len, nd) !RomP+jyg
     89  REAL qtc1(len, nd), sigt1(len, nd) !RomP
    8690  REAL wdtraina1(len, nd), wdtrainm1(len, nd) !RomP
    8791
    … …  
    141145      wdtraina1(idcum(i), k) = wdtraina(i, k) !RomP
    142146      wdtrainm1(idcum(i), k) = wdtrainm(i, k) !RomP
     147      qtc1(idcum(i), k) = qtc(i, k)
     148      sigt1(idcum(i), k) = sigt(i, k)
    143149
    144150    END DO

  • LMDZ5/trunk/libf/phylmd/cva_driver.F90

    r2205 r2207  
    2424                      da1, phi1, mp1, phi21, d1a1, dam1, sigij1, wghti1, & ! RomP, RL
    2525                      clw1, elij1, evap1, ep1, epmlmMm1, eplaMm1, &        ! RomP, RL
    26                       wdtrainA1, wdtrainM1, qtc, sigt, tau_cld_cv, &
     26                      wdtrainA1, wdtrainM1, qtc1, sigt1, tau_cld_cv, &
    2727                      coefw_cld_cv)                                        ! RomP, AJ
    2828! **************************************************************
    … …  
    122122! phi1          Real           Output     used in tracer transport (cvltr)
    123123! mp1           Real           Output     used in tracer transport (cvltr)
    124 ! qtc           Real           Output     specific humidity in convection
    125 ! sigt          Real           Output     surface fraction in adiabatic updrafts                                         
     124! qtc1          Real           Output     specific humidity in convection
     125! sigt1         Real           Output     surface fraction in adiabatic updrafts                                         
    126126! phi21         Real           Output     used in tracer transport (cvltr)
    127127                                         
    … …  
    232232  REAL asupmaxmin1(len)
    233233  INTEGER lalim_conv(len)
     234  REAL qtc1(len, nd)         ! cld
     235  REAL sigt1(len, nd)        ! cld
     236
    234237! RomP >>>
    235238  REAL wdtrainA1(len, nd), wdtrainM1(len, nd)
    … …  
    485488  REAL ftra(nloc, klev, ntra), traent(nloc, klev, klev, ntra)
    486489  REAL qcondc(nloc, klev)      ! cld
    487   REAL qtc(nloc, klev)         ! cld
    488   REAL sigt(nloc, klev)        ! cld
    489490  REAL wd(nloc)                ! gust
    490491  REAL Plim1(nloc), plim2(nloc)
    … …  
    497498  REAL hnk(nloc), unk(nloc), vnk(nloc)
    498499
     500  REAL qtc(nloc, klev)         ! cld
     501  REAL sigt(nloc, klev)        ! cld
     502 
    499503! RomP >>>
    500504  REAL wdtrainA(nloc, klev), wdtrainM(nloc, klev)
    … …  
    603607
    604608! RomP >>>
     609  sigt1(:, :) = 0.
     610  qtc1(:, :) = 0.
    605611  wdtrainA1(:, :) = 0.
    606612  wdtrainM1(:, :) = 0.
    … …  
    10421048                           clw, elij, evap, ep, epmlmMm, eplaMm, &       ! RomP
    10431049                           wdtrainA, wdtrainM, &                         ! RomP
     1050                           qtc, sigt, &
    10441051                           iflag1, kbas1, ktop1, &
    10451052                           precip1, cbmf1, plcl1, plfc1, wbeff1, sig1, w01, ptop21, &
    … …  
    10531060                           da1, phi1, mp1, phi21, d1a1, dam1, sigij1,  & ! RomP
    10541061                           clw1, elij1, evap1, ep1, epmlmMm1, eplaMm1, & ! RomP
    1055                            wdtrainA1, wdtrainM1)                         ! RomP
     1062                           wdtrainA1, wdtrainM1,                       & ! RomP
     1063                           qtc1, sigt1)
    10561064    END IF
    10571065
Note: See TracChangeset for help on using the changeset viewer.