Changeset 4041


Ignore:
Timestamp:
Dec 1, 2021, 9:04:55 PM (3 years ago)
Author:
lguez
Message:

Bug fix: replace i by 1

i is not defined if guide_plevs equals 1.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/dyn3dmem/guide_loc_mod.F90

    r3995 r4041  
    10101010            DO l=1,nlevnc
    10111011              write(*,*)trim(modname)//' PL(',l,')=',&
    1012                         apnc(l)+bpnc(l)*psnat2(i,jjbu)
     1012                        apnc(l)+bpnc(l)*psnat2(1,jjbu)
    10131013            ENDDO
    10141014        CASE (2)
Note: See TracChangeset for help on using the changeset viewer.