Changeset 6118 for LMDZ6/trunk/libf


Ignore:
Timestamp:
Mar 23, 2026, 11:28:16 PM (8 days ago)
Author:
lguez
Message:

Bug fix: set upper limit of loop to nsw

Array PSFSWDIR has shape [klon,NSW]. The bug comes from revision r6018.

File:
1 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/radlwsw_m.F90

    r6019 r6118  
    16161616          zdir(:)=0.
    16171617          zdif(:)=0.
    1618           DO k=1,klev
     1618          DO k=1,nsw
    16191619            DO i = 1, kdlon
    16201620             zdir(i)=zdir(i)+PSFSWDIR(i,k)
Note: See TracChangeset for help on using the changeset viewer.