Changeset 4052 for LMDZ6/trunk/libf/dyn3dmem/vlspltqs_loc.F

Timestamp:

Dec 26, 2021, 10:27:36 PM (2 years ago)

Author:

dcugnet

Message:

Fixes for previous commit:

• few tracers(:)%nqChilds were errouneously replaced with tarcers(:)%nqDesc
• minor changes

File:

• LMDZ6/trunk/libf/dyn3dmem/vlspltqs_loc.F (modified) (6 diffs)

LMDZ6/trunk/libf/dyn3dmem/vlspltqs_loc.F

@@ -264 +264 @@
 c$OMP END DO NOWAIT
 
-cym ATTENTION ICI en OpenMP reduction pas forcement nécessaire
+cym ATTENTION ICI en OpenMP reduction pas forcement necessaire
 cym      IF(n0.gt.1) THEN
 cym        IF(n0.gt.0) THEN
@@ -335 +335 @@
 c$OMP END DO NOWAIT
 
-! CRisi: appel récursif de l'advection sur les fils.
-! Il faut faire ça avant d'avoir mis à jour q et masse
-      !write(*,*) 'vlspltqs 336: iq,ijb_x,iqDescen(iq)=',
-!     &     iq,ijb_x,tracers(iq)%iqDescen  
+! CRisi: appel recursif de l'advection sur les fils.
+! Il faut faire ca avant d'avoir mis a jour q et masse
+      !write(*,*) 'vlspltqs 336: iq,ijb_x,nqChilds(iq)=',
+!     &     iq,ijb_x,tracers(iq)%nqChilds
 
       do ifils=1,tracers(iq)%nqDescen
@@ -356 +356 @@
 c$OMP END DO NOWAIT
       enddo
-      do ifils=1,tracers(iq)%nqDescen
+      do ifils=1,tracers(iq)%nqChilds
         iq2=tracers(iq)%iqDescen(ifils)
         !write(*,*) 'vlxqs 349: on appelle vlx pour iq2=',iq2
@@ -727 +727 @@
 c$OMP END DO NOWAIT
 
-! CRisi: appel récursif de l'advection sur les fils.
-! Il faut faire ça avant d'avoir mis à jour q et masse
-      !write(*,*) 'vlyqs 689: iq,iqDescen(iq)=',iq,tracers(iq)%iqDescen
+! CRisi: appel recursif de l'advection sur les fils.
+! Il faut faire ca avant d'avoir mis a jour q et masse
+      !write(*,*) 'vlyqs 689: iq,nqChilds(iq)=',iq,tracers(iq)%nqChilds
       
       ijb=ij_begin-2*iip1
@@ -748 +748 @@
         DO l=1,llm
           ! modif des bornes: CRisi 16 nov 2020
-          ! d'abord masse avec bornes corrigées
+          ! d'abord masse avec bornes corrigees
           DO ij=ijbm,ijem 
             !MVals: veiller a ce qu'on n'ait pas de denominateur nul
@@ -767 +767 @@
 c$OMP END DO NOWAIT
       enddo
-      do ifils=1,tracers(iq)%nqDescen
+      do ifils=1,tracers(iq)%nqChilds
         iq2=tracers(iq)%iqDescen(ifils)
         !write(lunout,*) 'vly: appel recursiv vly iq2=',iq2