Changeset 4482 for LMDZ6/branches/LMDZ_ECRad/libf/dyn3d/vlspltqs.F
- Timestamp:
- Mar 29, 2023, 3:14:27 PM (15 months ago)
- Location:
- LMDZ6/branches/LMDZ_ECRad
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/LMDZ_ECRad
- Property svn:mergeinfo changed
-
LMDZ6/branches/LMDZ_ECRad/libf/dyn3d/vlspltqs.F
r4052 r4482 248 248 DO ij=iip2,ip1jm-1 249 249 dxqu(ij)=q(ij+1,l,iq)-q(ij,l,iq) 250 c IF(u_m(ij,l).lt.0.) stop'limx n admet pas les U<0'251 c sigu(ij)=u_m(ij,l)/masse(ij,l,iq)252 250 ENDDO 253 251 DO ij=iip1+iip1,ip1jm,iip1 … … 479 477 ! CRisi: appel récursif de l'advection sur les fils. 480 478 ! Il faut faire ça avant d'avoir mis à jour q et masse 481 !write(*,*) 'vlspltqs 326: iq,nqChilds(iq)=',iq,tracers(iq)%nqChilds 479 !write(*,*) 'vlspltqs 326: iq,nqChildren(iq)=',iq, 480 ! & tracers(iq)%nqChildren 482 481 483 482 do ifils=1,tracers(iq)%nqDescen … … 491 490 enddo 492 491 enddo 493 do ifils=1,tracers(iq)%nqChild s492 do ifils=1,tracers(iq)%nqChildren 494 493 iq2=tracers(iq)%iqDescen(ifils) 495 494 call vlx(Ratio,pente_max,masseq,u_mq,iq2) … … 786 785 ! CRisi: appel récursif de l'advection sur les fils. 787 786 ! Il faut faire ça avant d'avoir mis à jour q et masse 788 !write(*,*) 'vlyqs 689: iq,nqChilds(iq)=',iq,tracers(iq)%nqChilds 787 !write(*,*) 'vlyqs 689: iq,nqChildren(iq)=',iq, 788 ! & tracers(iq)%nqChildren 789 789 790 790 do ifils=1,tracers(iq)%nqDescen … … 797 797 enddo 798 798 enddo 799 do ifils=1,tracers(iq)%nqChild s799 do ifils=1,tracers(iq)%nqChildren 800 800 iq2=tracers(iq)%iqDescen(ifils) 801 801 !write(*,*) 'vlyqs 783: appel rec de vly, iq2=',iq2
Note: See TracChangeset
for help on using the changeset viewer.