Changeset 2907 for LMDZ5/branches/IPSLCM5A2.1/libf/phylmd/tracinca_mod.F90

Timestamp:

Jun 9, 2017, 4:56:43 PM (7 years ago)

Author:

acozic

Message:

Add some modification to fit with recent version of model Inca

File:

• LMDZ5/branches/IPSLCM5A2.1/libf/phylmd/tracinca_mod.F90 (modified) (3 diffs)

LMDZ5/branches/IPSLCM5A2.1/libf/phylmd/tracinca_mod.F90

@@ -36 +36 @@
        pdtphys,  t_seri,   paprs,          pplay,     &
        pmfu,     upwd,     ftsol,  pctsrf, pphis,     &
-       pphi,     albsol,   sh,             rh,        &
+       pphi,     albsol,   sh,             ch, rh,    &
        cldfra,   rneb,     diafra,         cldliq,    &
        itop_con, ibas_con, pmflxr,         pmflxs,    &
@@ -76 +76 @@
     REAL,DIMENSION(klon,klev),INTENT(IN)   :: t_seri  ! Temperature
     REAL,DIMENSION(klon,klev),INTENT(IN)   :: sh      ! humidite specifique
+    REAL,DIMENSION(klon,klev),INTENT(IN)   :: ch      ! eau liquide
     REAL,DIMENSION(klon,klev),INTENT(IN)   :: rh      ! humidite relative
     REAL,DIMENSION(klon,klev+1),INTENT(IN) :: paprs   ! pression pour chaque inter-couche (en Pa)
@@ -185 +186 @@
          t_seri,     & !tfld
          sh,         & !sh
+         ch,         & !ql
          rh,         & !rh
          nbp_lon,    & !nx