Changeset 1658

Timestamp:

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

Author:

slebonnois

Message:

SL: deep atmosphere commented until further work

Location:

trunk

Files:

• LMDZ.COMMON/libf/dyn3d_common/cpdet_mod.F90 (modified) (6 diffs)
• LMDZ.VENUS/libf/phyvenus/clmain.F (modified) (2 diffs)
• LMDZ.VENUS/libf/phyvenus/cpdet_phy_mod.F90 (modified) (2 diffs)

trunk/LMDZ.COMMON/libf/dyn3d_common/cpdet_mod.F90

@@ -97 +97 @@
       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))                    &
@@ -157 +158 @@
       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))                    &
@@ -218 +220 @@
       DO l = 1, nlev
         ratio_mod(k,l) = 1.
-        if (ypk(k,l).gt.ypklim) then
+! ATM PROFONDE DESACTIVEE !
+        if (   (1 .EQ. 0)  .AND.(ypk(k).gt.ypklim)) then
            ratio_mod(k,l) = mmm0 /                                      &
      &  (mmm0+0.56*(log(ypklim/cpp)-log(ypk(k,l)/cpp))                  &
@@ -288 +291 @@
       DO l = 1, llm
         ratio_mod(i,j,l) = 1.
-        if (ypk(i,j,l).gt.ypklim) then
+! ATM PROFONDE DESACTIVEE !
+        if (   (1 .EQ. 0)  .AND.(ypk(k).gt.ypklim)) then
            ratio_mod(i,j,l) = mmm0 /                                    &
      &  (mmm0+0.56*(log(ypklim/cpp)-log(ypk(i,j,l)/cpp))                &
@@ -358 +362 @@
       DO l = 1, nlev
         ratio_mod(k,l) = 1.
-        if (ypk(k,l).gt.ypklim) then
+! ATM PROFONDE DESACTIVEE !
+        if (   (1 .EQ. 0)  .AND.(ypk(k).gt.ypklim)) then
            ratio_mod(k,l) = mmm0 /                                      &
      &  (mmm0+0.56*(log(ypklim/cpp)-log(ypk(k,l)/cpp))                  &
@@ -426 +431 @@
       DO l = 1, llm
         ratio_mod(i,j,l) = 1.
-        if (ypk(i,j,l).gt.ypklim) then
+! ATM PROFONDE DESACTIVEE !
+        if (   (1 .EQ. 0)  .AND.(ypk(k).gt.ypklim)) then
            ratio_mod(i,j,l) = mmm0 /                                    &
      &  (mmm0+0.56*(log(ypklim/cpp)-log(ypk(i,j,l)/cpp))                &

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))                    &