Ignore:
Timestamp:
Feb 4, 2013, 2:25:36 PM (12 years ago)
Author:
idelkadi
Message:

Correction dans newmicro.F : initialisation des tableaux (rel et re)

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/phylmd/newmicro.F

    r1712 r1723  
    291291                fl(i,k) = seuil_neb*(1.-zfice(i,k))           
    292292                re(i,k) = rad_chaud(i,k)*fl(i,k)
     293                rel = 0.
     294                rei = 0.
    293295                pclc(i,k)   = 0.0
    294296                pcltau(i,k) = 0.0
Note: See TracChangeset for help on using the changeset viewer.