Changeset 4482 for LMDZ6/branches/LMDZ_ECRad/libf/dyn3d/vlsplt.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/vlsplt.F
r4143 r4482 184 184 DO ij=iip2,ip1jm-1 185 185 dxqu(ij)=q(ij+1,l,iq)-q(ij,l,iq) 186 c IF(u_m(ij,l).lt.0.) stop'limx n admet pas les U<0'187 c sigu(ij)=u_m(ij,l)/masse(ij,l,iq)188 186 ENDDO 189 187 DO ij=iip1+iip1,ip1jm,iip1 … … 310 308 ENDDO 311 309 #endif 312 c stop313 310 314 311 c go to 9999 … … 437 434 enddo 438 435 enddo 439 do ifils=1,tracers(iq)%nqChild s436 do ifils=1,tracers(iq)%nqChildren 440 437 iq2=tracers(iq)%iqDescen(ifils) 441 438 call vlx(Ratio,pente_max,masseq,u_mq,iq2) … … 969 966 ! CRisi: appel récursif de l'advection sur les fils. 970 967 ! Il faut faire ça avant d'avoir mis à jour q et masse 971 !write(*,*) 'vlsplt 942: iq,nqChild s(iq)=',iq,nqChilds(iq)968 !write(*,*) 'vlsplt 942: iq,nqChildren(iq)=',iq,nqChildren(iq) 972 969 do ifils=1,tracers(iq)%nqDescen 973 970 iq2=tracers(iq)%iqDescen(ifils) … … 987 984 enddo 988 985 989 do ifils=1,tracers(iq)%nqChild s986 do ifils=1,tracers(iq)%nqChildren 990 987 iq2=tracers(iq)%iqDescen(ifils) 991 988 call vlz(Ratio,pente_max,masseq,wq,iq2)
Note: See TracChangeset
for help on using the changeset viewer.