Changeset 2784 for LMDZ5/trunk/libf


Ignore:
Timestamp:
Jan 27, 2017, 9:41:14 AM (8 years ago)
Author:
acozic
Message:

Add new variable in inca (Strat Chemistry)

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

Legend:

Unmodified
Added
Removed

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

    r2783 r2784  
    10801080    INTEGER :: nbtr_tmp ! Number of tracer inside concvl
    10811081    REAL, dimension(klon,klev) :: sh_in ! Specific humidity entering in phytrac
     1082    REAL, dimension(klon,klev) :: ch_in ! Condensed humidity entering in phytrac (eau liquide)
    10821083    integer iostat
    10831084
    … …  
    40604061    ELSE
    40614062       sh_in(:,:) = qx(:,:,ivap)
     4063       ch_in(:,:) = qx(:,:,iliq)
    40624064    ENDIF
    40634065
    … …  
    40924094         frac_impa,frac_nucl, beta_prec_fisrt,beta_prec, &
    40934095         presnivs, pphis,     pphi,     albsol1, &
    4094          sh_in,    rhcl,      cldfra,   rneb, &
     4096         sh_in,   ch_in,    rhcl,      cldfra,   rneb, &
    40954097         diafra,   cldliq,    itop_con, ibas_con, &
    40964098         pmflxr,   pmflxs,    prfl,     psfl, &

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

    r2752 r2784  
    6666       frac_impa,frac_nucl,beta_fisrt,beta_v1,        &
    6767       presnivs,  pphis,    pphi,     albsol,         &
    68        sh,        rh,       cldfra,   rneb,           &
     68       sh,        ch, rh,   cldfra,   rneb,           &
    6969       diafra,    cldliq,   itop_con, ibas_con,       &
    7070       pmflxr,    pmflxs,   prfl,     psfl,           &
    … …  
    139139    REAL,DIMENSION(klon,klev),INTENT(IN)   :: sh      ! humidite specifique
    140140    REAL,DIMENSION(klon,klev),INTENT(IN)   :: rh      ! humidite relative
     141    REAL,DIMENSION(klon,klev),INTENT(IN)   :: ch      ! eau liquide
    141142    REAL,DIMENSION(klon,klev+1),INTENT(IN) :: paprs   ! pression pour chaque inter-couche (en Pa)
    142143    REAL,DIMENSION(klon,klev),INTENT(IN)   :: pplay   ! pression pour le mileu de chaque couche (en Pa)
    … …  
    573574       write(lunout,*)  'flag_cvltr    = ', flag_cvltr
    574575
    575        IF (lessivage.AND.config_inca.EQ.'inca') THEN
     576       IF (lessivage .AND. type_trac .EQ. 'inca') THEN
    576577          CALL abort_physic('phytrac', 'lessivage=T config_inca=inca impossible',1)
    577578          STOP
    … …  
    10221023            pdtphys,  t_seri,   paprs,          pplay,     &
    10231024            pmfu,     upwd,     ftsol,  pctsrf, pphis,     &
    1024             pphi,     albsol,   sh,             rh,        &
     1025            pphi,     albsol,   sh,    ch,     rh,        &
    10251026            cldfra,   rneb,     diafra,         cldliq,    &
    10261027            itop_con, ibas_con, pmflxr,         pmflxs,    &

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

    r2624 r2784  
    3636       pdtphys,  t_seri,   paprs,          pplay,     &
    3737       pmfu,     upwd,     ftsol,  pctsrf, pphis,     &
    38        pphi,     albsol,   sh,             rh,        &
     38       pphi,     albsol,   sh,             ch, rh,    &
    3939       cldfra,   rneb,     diafra,         cldliq,    &
    4040       itop_con, ibas_con, pmflxr,         pmflxs,    &
    … …  
    7676    REAL,DIMENSION(klon,klev),INTENT(IN)   :: t_seri  ! Temperature
    7777    REAL,DIMENSION(klon,klev),INTENT(IN)   :: sh      ! humidite specifique
     78    REAL,DIMENSION(klon,klev),INTENT(IN)   :: ch      ! eau liquide
    7879    REAL,DIMENSION(klon,klev),INTENT(IN)   :: rh      ! humidite relative
    7980    REAL,DIMENSION(klon,klev+1),INTENT(IN) :: paprs   ! pression pour chaque inter-couche (en Pa)
    … …  
    185186         t_seri,     & !tfld
    186187         sh,         & !sh
     188         ch,         & !ql
    187189         rh,         & !rh
    188190         nbp_lon,    & !nx
Note: See TracChangeset for help on using the changeset viewer.