Changeset 4325 for LMDZ6/trunk/libf/dyn3dmem/vlspltqs_loc.F
- Timestamp:
- Nov 7, 2022, 3:09:43 AM (23 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/dyn3dmem/vlspltqs_loc.F
r4143 r4325 337 337 ! CRisi: appel recursif de l'advection sur les fils. 338 338 ! Il faut faire ca avant d'avoir mis a jour q et masse 339 !write(*,*) 'vlspltqs 336: iq,ijb_x,nqChild s(iq)=',340 ! & iq,ijb_x,tracers(iq)%nqChild s339 !write(*,*) 'vlspltqs 336: iq,ijb_x,nqChildren(iq)=', 340 ! & iq,ijb_x,tracers(iq)%nqChildren 341 341 342 342 do ifils=1,tracers(iq)%nqDescen … … 356 356 c$OMP END DO NOWAIT 357 357 enddo 358 do ifils=1,tracers(iq)%nqChild s358 do ifils=1,tracers(iq)%nqChildren 359 359 iq2=tracers(iq)%iqDescen(ifils) 360 360 !write(*,*) 'vlxqs 349: on appelle vlx pour iq2=',iq2 … … 729 729 ! CRisi: appel recursif de l'advection sur les fils. 730 730 ! Il faut faire ca avant d'avoir mis a jour q et masse 731 !write(*,*) 'vlyqs 689: iq,nqChilds(iq)=',iq,tracers(iq)%nqChilds 731 ! write(*,*)'vlyqs 689: iq,nqChildren(iq)=',iq, 732 ! & tracers(iq)%nqChildren 732 733 733 734 ijb=ij_begin-2*iip1 … … 767 768 c$OMP END DO NOWAIT 768 769 enddo 769 do ifils=1,tracers(iq)%nqChild s770 do ifils=1,tracers(iq)%nqChildren 770 771 iq2=tracers(iq)%iqDescen(ifils) 771 772 !write(lunout,*) 'vly: appel recursiv vly iq2=',iq2
Note: See TracChangeset
for help on using the changeset viewer.