Changeset 539 for LMDZ4


Ignore:
Timestamp:
Jun 9, 2004, 3:44:33 PM (20 years ago)
Author:
lmdzadmin
Message:

Petit bug sur le signe de la valeur seuil du gradient tair-tsol
IM

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/trunk/libf/phylmd/stdlevvar.F90

    r524 r539  
    101101        ustar(i) = sqrt(cdram(i) * speed(i) * speed(i))
    102102        zdte(i) = tpot(i) - ts1(i)
     103!       PRINT*,'AVANT i,zdte',i,zdte(i)
    103104!IM cf FH : on prend le max : pour eviter le plantage sur SUN
    104         zdte(i) = max(zdte(i),1.e-10)
     105!IM BUG BUG BUG       zdte(i) = max(zdte(i),1.e-10)
     106        zdte(i) = sign(max(abs(zdte(i)),1.e-10),zdte(i))
     107!       PRINT*,'APRES i,zdte',i,zdte(i)
     108!
    105109        zdq(i) = max(q1(i),0.0) - max(qsurf(i),0.0)
    106110!
Note: See TracChangeset for help on using the changeset viewer.