Ignore:
Timestamp:
Mar 8, 2021, 3:29:36 PM (4 years ago)
Author:
acozic
Message:

modify calcul of ch_in in physiq if there are 3 water tracers

Location:
LMDZ6/branches/IPSLCM6.0.15/libf/phylmd
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/physiq_mod.F90

    r3826 r3860  
    44884488    ELSE
    44894489       sh_in(:,:) = qx(:,:,ivap)
    4490        ch_in(:,:) = qx(:,:,iliq)
     4490       IF (nqo .EQ. 3) THEN
     4491          ch_in(:,:) = qx(:,:,iliq) + qx(:,:,isol)
     4492       ELSE
     4493          ch_in(:,:) = qx(:,:,iliq)
     4494       ENDIF
    44914495    ENDIF
    44924496

  • LMDZ6/branches/IPSLCM6.0.15/libf/phylmd/phytrac_mod.F90

    r3419 r3860  
    141141    REAL,DIMENSION(klon,klev),INTENT(IN)   :: sh      ! humidite specifique
    142142    REAL,DIMENSION(klon,klev),INTENT(IN)   :: rh      ! humidite relative
    143     REAL,DIMENSION(klon,klev),INTENT(IN)   :: ch      ! eau liquide
     143    REAL,DIMENSION(klon,klev),INTENT(IN)   :: ch      ! eau liquide  (+ glace si le traceur existe)
    144144    REAL,DIMENSION(klon,klev+1),INTENT(IN) :: paprs   ! pression pour chaque inter-couche (en Pa)
    145145    REAL,DIMENSION(klon,klev),INTENT(IN)   :: pplay   ! pression pour le mileu de chaque couche (en Pa)
Note: See TracChangeset for help on using the changeset viewer.