Changeset 5267 for LMDZ6/trunk/libf/dyn3d/bilan_dyn.F90
- Timestamp:
- Oct 23, 2024, 5:34:46 PM (2 days ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/dyn3d/bilan_dyn.F90
r5246 r5267 10 10 ! vQ..A=Cp T + L * ... 11 11 12 #ifdef CPP_IOIPSL13 12 USE IOIPSL 14 #endif15 13 USE comconst_mod, ONLY: pi, cpp 16 14 USE comvert_mod, ONLY: presnivs … … 26 24 !==================================================================== 27 25 ! 28 ! Sous-programme consacre àdes diagnostics dynamiques de base26 ! Sous-programme consacre � des diagnostics dynamiques de base 29 27 ! 30 28 ! … … 89 87 real :: ww 90 88 91 ! variables dynamiques interm édiaires89 ! variables dynamiques interm�diaires 92 90 REAL :: vcont(iip1,jjm,llm),ucont(iip1,jjp1,llm) 93 91 REAL :: ang(iip1,jjp1,llm),unat(iip1,jjp1,llm) … … 97 95 REAL :: bern(iip1,jjp1,llm) 98 96 99 ! champ contenant les scalaires advect és.97 ! champ contenant les scalaires advect�s. 100 98 real :: Q(iip1,jjp1,llm,nQ) 101 99 102 ! champs cumul és100 ! champs cumul�s 103 101 real :: ps_cum(iip1,jjp1) 104 102 real :: masse_cum(iip1,jjp1,llm) … … 308 306 ! ---------------------------- 309 307 310 ! énergie cinétique308 ! �nergie cin�tique 311 309 ucont(:,:,:)=0 312 310 CALL covcont(llm,ucov,vcov,ucont,vcont) 313 311 CALL enercin(vcov,ucov,vcont,ucont,ecin) 314 312 315 ! moment cin étique313 ! moment cin�tique 316 314 do l=1,llm 317 315 ang(:,:,l)=ucov(:,:,l)+constang(:,:) … … 373 371 enddo 374 372 375 ! flux m éridien373 ! flux m�ridien 376 374 ! ------------- 377 375 do iQ=1,nQ … … 440 438 441 439 !===================================================================== 442 ! Transport m éridien440 ! Transport m�ridien 443 441 !===================================================================== 444 442
Note: See TracChangeset
for help on using the changeset viewer.