Ignore:
Timestamp:
Feb 6, 2017, 3:27:47 PM (8 years ago)
Author:
slebonnois
Message:

SL: deep atmosphere commented until further work

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/LMDZ.COMMON/libf/dyn3d_common/cpdet_mod.F90

    r1591 r1658  
    9797      DO k = 1, npoints
    9898        ratio_mod(k) = 1.
    99         if (ypk(k).gt.ypklim) then
     99! ATM PROFONDE DESACTIVEE !
     100        if (   (1 .EQ. 0)  .AND.(ypk(k).gt.ypklim)) then
    100101           ratio_mod(k) = mmm0 /                                        &
    101102     &  (mmm0+0.56*(log(ypklim/cpp)-log(ypk(k)/cpp))                    &
     
    157158      DO k = 1, npoints
    158159        ratio_mod(k) = 1.
    159         if (ypk(k).gt.ypklim) then
     160! ATM PROFONDE DESACTIVEE !
     161        if (   (1 .EQ. 0)  .AND.(ypk(k).gt.ypklim)) then
    160162           ratio_mod(k) = mmm0 /                                        &
    161163     &  (mmm0+0.56*(log(ypklim/cpp)-log(ypk(k)/cpp))                    &
     
    218220      DO l = 1, nlev
    219221        ratio_mod(k,l) = 1.
    220         if (ypk(k,l).gt.ypklim) then
     222! ATM PROFONDE DESACTIVEE !
     223        if (   (1 .EQ. 0)  .AND.(ypk(k).gt.ypklim)) then
    221224           ratio_mod(k,l) = mmm0 /                                      &
    222225     &  (mmm0+0.56*(log(ypklim/cpp)-log(ypk(k,l)/cpp))                  &
     
    288291      DO l = 1, llm
    289292        ratio_mod(i,j,l) = 1.
    290         if (ypk(i,j,l).gt.ypklim) then
     293! ATM PROFONDE DESACTIVEE !
     294        if (   (1 .EQ. 0)  .AND.(ypk(k).gt.ypklim)) then
    291295           ratio_mod(i,j,l) = mmm0 /                                    &
    292296     &  (mmm0+0.56*(log(ypklim/cpp)-log(ypk(i,j,l)/cpp))                &
     
    358362      DO l = 1, nlev
    359363        ratio_mod(k,l) = 1.
    360         if (ypk(k,l).gt.ypklim) then
     364! ATM PROFONDE DESACTIVEE !
     365        if (   (1 .EQ. 0)  .AND.(ypk(k).gt.ypklim)) then
    361366           ratio_mod(k,l) = mmm0 /                                      &
    362367     &  (mmm0+0.56*(log(ypklim/cpp)-log(ypk(k,l)/cpp))                  &
     
    426431      DO l = 1, llm
    427432        ratio_mod(i,j,l) = 1.
    428         if (ypk(i,j,l).gt.ypklim) then
     433! ATM PROFONDE DESACTIVEE !
     434        if (   (1 .EQ. 0)  .AND.(ypk(k).gt.ypklim)) then
    429435           ratio_mod(i,j,l) = mmm0 /                                    &
    430436     &  (mmm0+0.56*(log(ypklim/cpp)-log(ypk(i,j,l)/cpp))                &
Note: See TracChangeset for help on using the changeset viewer.