Changeset 1658 for trunk/LMDZ.VENUS/libf

Timestamp:

Feb 6, 2017, 3:27:47 PM (8 years ago)

Author:

slebonnois

Message:

SL: deep atmosphere commented until further work

Location:

trunk/LMDZ.VENUS/libf/phyvenus

Files:

• clmain.F (modified) (2 diffs)
• cpdet_phy_mod.F90 (modified) (2 diffs)

trunk/LMDZ.VENUS/libf/phyvenus/clmain.F

@@ -572 +572 @@
         ratio_mod(i,k) = 1.
         rsmu_mod(i,k) = RD
-       if (pplay(i,k).gt.p_lim) then
+c ATM PROFONDE DESACTIVEE !
+       if (    (1 .EQ. 0)  .AND.(pplay(i,k).gt.p_lim)) then
           ratio_mod(i,k) = RMD /
      &  (RMD+0.56*(log(pplay(i,k))-log(p_lim))/(log(p_ref)-log(p_lim)))
@@ -1026 +1027 @@
       DO i = 1, klon
         modgam(i,k) = 0.
-       if (pplay(i,k).gt.p_lim) then
+c ATM PROFONDE DESACTIVEE !
+       if (    (1 .EQ. 0)  .AND.(pplay(i,k).gt.p_lim)) then
            modgam(i,k) = 0.56E-3/(log(p_ref)-log(p_lim))/R
        endif

trunk/LMDZ.VENUS/libf/phyvenus/cpdet_phy_mod.F90

@@ -71 +71 @@
       DO k = 1, npoints
         ratio_mod(k) = 1.
-        if (ypk(k).gt.ypklim) then
+! ATM PROFONDE DESACTIVEE !
+        if (   (1 .EQ. 0)  .AND.(ypk(k).gt.ypklim)) then
            ratio_mod(k) = mmm0 /                                        &
      &  (mmm0+0.56*(log(ypklim/cpp)-log(ypk(k)/cpp))                    &
@@ -121 +122 @@
       DO k = 1, npoints
         ratio_mod(k) = 1.
-        if (ypk(k).gt.ypklim) then
+! ATM PROFONDE DESACTIVEE !
+        if (   (1 .EQ. 0)  .AND.(ypk(k).gt.ypklim)) then
            ratio_mod(k) = mmm0 /                                        &
      &  (mmm0+0.56*(log(ypklim/cpp)-log(ypk(k)/cpp))                    &