Opened 5 years ago

Closed 5 years ago

#102 closed defect (fixed)

bug dans pbl_surface

Reported by: Ehouarn Millour Owned by: Laurent Fairhead
Priority: major Milestone:
Component: Terrestrial Physics Keywords:
Cc:

Description

Sur Jean Zay, avec les options de debug le bench plante (en séquentiel) pour la r3572 dans pbl_surface lors du calcul de tke_x(i,k,is_ave): 

       IF (iflag_split .eq.0) THEN
        wake_dltke(:,:,nsrf) = 0.
        DO k = 1, klev+1
           DO j = 1, knon
              i = ni(j)
!jyg<
!!              tke(i,k,nsrf)    = ytke(j,k)
!!              tke(i,k,is_ave) = tke(i,k,is_ave) + ytke(j,k)*ypct(j)
              tke_x(i,k,nsrf)    = ytke(j,k)
              tke_x(i,k,is_ave) = tke_x(i,k,is_ave) + ytke(j,k)*ypct(j)
!>jyg
           ENDDO
        ENDDO

pour i=14, k=1, car ytke(j,k)=nan (probablement pas/mal initialisé)

Change History (1)

comment:1 Changed 5 years ago by Ehouarn Millour

Resolution: → fixed
Status: new → closed

Problème résolu avec les corrections de la r3577

Note: See TracTickets for help on using tickets.