Ignore:
Timestamp:
Feb 6, 2017, 4:00:11 PM (8 years ago)
Author:
slebonnois
Message:

SL: bug in previous commit...

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r1658 r1659  
    221221        ratio_mod(k,l) = 1.
    222222! ATM PROFONDE DESACTIVEE !
    223         if (   (1 .EQ. 0)  .AND.(ypk(k).gt.ypklim)) then
     223        if (   (1 .EQ. 0)  .AND.(ypk(k,l).gt.ypklim)) then
    224224           ratio_mod(k,l) = mmm0 /                                      &
    225225     &  (mmm0+0.56*(log(ypklim/cpp)-log(ypk(k,l)/cpp))                  &
    … …  
    292292        ratio_mod(i,j,l) = 1.
    293293! ATM PROFONDE DESACTIVEE !
    294         if (   (1 .EQ. 0)  .AND.(ypk(k).gt.ypklim)) then
     294        if (   (1 .EQ. 0)  .AND.(ypk(i,j,l).gt.ypklim)) then
    295295           ratio_mod(i,j,l) = mmm0 /                                    &
    296296     &  (mmm0+0.56*(log(ypklim/cpp)-log(ypk(i,j,l)/cpp))                &
    … …  
    363363        ratio_mod(k,l) = 1.
    364364! ATM PROFONDE DESACTIVEE !
    365         if (   (1 .EQ. 0)  .AND.(ypk(k).gt.ypklim)) then
     365        if (   (1 .EQ. 0)  .AND.(ypk(k,l).gt.ypklim)) then
    366366           ratio_mod(k,l) = mmm0 /                                      &
    367367     &  (mmm0+0.56*(log(ypklim/cpp)-log(ypk(k,l)/cpp))                  &
    … …  
    432432        ratio_mod(i,j,l) = 1.
    433433! ATM PROFONDE DESACTIVEE !
    434         if (   (1 .EQ. 0)  .AND.(ypk(k).gt.ypklim)) then
     434        if (   (1 .EQ. 0)  .AND.(ypk(i,j,l).gt.ypklim)) then
    435435           ratio_mod(i,j,l) = mmm0 /                                    &
    436436     &  (mmm0+0.56*(log(ypklim/cpp)-log(ypk(i,j,l)/cpp))                &
Note: See TracChangeset for help on using the changeset viewer.