Changeset 3861


Ignore:
Timestamp:
Mar 8, 2021, 3:37:48 PM (3 years ago)
Author:
acozic
Message:

merge with rev 3860

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

Legend:

Unmodified
Added
Removed

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

    r3856 r3861  
    47804780    ELSE
    47814781       sh_in(:,:) = qx(:,:,ivap)
    4782        ch_in(:,:) = qx(:,:,iliq)
     4782       IF (nqo .EQ. 3) THEN
     4783          ch_in(:,:) = qx(:,:,iliq) + qx(:,:,isol)
     4784       ELSE
     4785          ch_in(:,:) = qx(:,:,iliq)
     4786       ENDIF
    47834787    ENDIF
    47844788

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

    r3649 r3861  
    176176    REAL,DIMENSION(klon,klev),INTENT(IN)   :: sh      ! humidite specifique
    177177    REAL,DIMENSION(klon,klev),INTENT(IN)   :: rh      ! humidite relative
    178     REAL,DIMENSION(klon,klev),INTENT(IN)   :: ch      ! eau liquide
     178    REAL,DIMENSION(klon,klev),INTENT(IN)   :: ch      ! eau liquide (+ glace si le traceur existe)
    179179    REAL,DIMENSION(klon,klev+1),INTENT(IN) :: paprs   ! pression pour chaque inter-couche (en Pa)
    180180    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.