Changeset 2207 for LMDZ5/trunk/libf/phylmd/cv3a_uncompress.F90

Timestamp:

Feb 13, 2015, 9:40:30 AM (9 years ago)

Author:

fhourdin

Message:

Bi-gauussienne, suite.

File:

• LMDZ5/trunk/libf/phylmd/cv3a_uncompress.F90 (modified) (5 diffs)

LMDZ5/trunk/libf/phylmd/cv3a_uncompress.F90

@@ -6 +6 @@
     , clw, elij, evap, ep, epmlmmm, eplamm & ! RomP
     , wdtraina, wdtrainm &         ! RomP
+    , qtc, sigt          &
 
     , iflag1, kbas1, ktop1, precip1, cbmf1, plcl1, plfc1, wbeff1, sig1, w01, &
@@ -13 +14 @@
     , da1, phi1, mp1, phi21, d1a1, dam1, sigij1 & ! RomP+AC+jyg
     , clw1, elij1, evap1, ep1, epmlmmm1, eplamm1 & ! RomP
-    , wdtraina1, wdtrainm1) ! RomP
+    , wdtraina1, wdtrainm1 & ! RomP
+    , qtc1, sigt1)
 
   ! **************************************************************
@@ -56 +58 @@
   REAL evap(nloc, nd), ep(nloc, nd) !RomP
   REAL epmlmmm(nloc, nd, nd), eplamm(nloc, nd) !RomP+jyg
+  REAL qtc(nloc, nd), sigt(nloc, nd) !RomP
   REAL wdtraina(nloc, nd), wdtrainm(nloc, nd) !RomP
 
@@ -84 +87 @@
   REAL evap1(len, nd), ep1(len, nd) !RomP
   REAL epmlmmm1(len, nd, nd), eplamm1(len, nd) !RomP+jyg
+  REAL qtc1(len, nd), sigt1(len, nd) !RomP
   REAL wdtraina1(len, nd), wdtrainm1(len, nd) !RomP
 
@@ -141 +145 @@
       wdtraina1(idcum(i), k) = wdtraina(i, k) !RomP
       wdtrainm1(idcum(i), k) = wdtrainm(i, k) !RomP
+      qtc1(idcum(i), k) = qtc(i, k)
+      sigt1(idcum(i), k) = sigt(i, k)
 
     END DO