Changeset 2303 for LMDZ5/branches/LMDZ5_SPLA/libf/phylmd/cv3a_uncompress.F90

Timestamp:

Jun 17, 2015, 8:06:14 PM (9 years ago)

Author:

jescribano

Message:

Bugs corrections, control vector is now fine mode+coarse mode and seasalt coarse+fine, change in emission scheme parameters, more outputs at 10h30 and 13h30 LT. (Pending correct optical and sedimentation parameters)

File:

• LMDZ5/branches/LMDZ5_SPLA/libf/phylmd/cv3a_uncompress.F90 (modified) (2 diffs)

LMDZ5/branches/LMDZ5_SPLA/libf/phylmd/cv3a_uncompress.F90

@@ -138 +138 @@
       evap1(idcum(i), k) = evap(i, k) !RomP
       ep1(idcum(i), k) = ep(i, k) !RomP
-      eplamm(idcum(i), k) = eplamm(i, k) !RomP+jyg
+      !eplamm(idcum(i), k) = eplamm(i, k) !RomP+jyg
+      eplamm1(idcum(i), k) = eplamm(i, k) !RomP+jyg _ 20150518
       wdtraina1(idcum(i), k) = wdtraina(i, k) !RomP
       wdtrainm1(idcum(i), k) = wdtrainm(i, k) !RomP
@@ -167 +168 @@
         sigij1(idcum(i), k, j) = sigij(i, k, j) !RomP
         elij1(idcum(i), k, j) = elij(i, k, j) !RomP
-        epmlmmm(idcum(i), k, j) = epmlmmm(i, k, j) !RomP+jyg
+        !epmlmmm(idcum(i), k, j) = epmlmmm(i, k, j) !RomP+jyg
+        epmlmmm1(idcum(i), k, j) = epmlmmm(i, k, j) !RomP+jyg 20150518
       END DO
     END DO