Ignore:
Timestamp:
Jul 26, 2012, 2:46:22 AM (12 years ago)
Author:
aslmd
Message:

GENERIC: bug fix. the size of OLR_nu is L_NSPECTI and not L_NSPECTV

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.GENERIC/libf/phystd/physiq.F90

    r731 r743  
    715715
    716716                    OSR_nu(ig,1:L_NSPECTV) = ntf*OSR_nu1(ig,1:L_NSPECTV) + tf*OSR_nu(ig,1:L_NSPECTV)                   
    717                     OLR_nu(ig,1:L_NSPECTV) = ntf*OLR_nu1(ig,1:L_NSPECTV) + tf*OLR_nu(ig,1:L_NSPECTV)                   
     717                    OLR_nu(ig,1:L_NSPECTI) = ntf*OLR_nu1(ig,1:L_NSPECTI) + tf*OLR_nu(ig,1:L_NSPECTI)                   
    718718
    719719                 enddo
Note: See TracChangeset for help on using the changeset viewer.