Changeset 1114 for LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/advtrac_p.F
- Timestamp:
- Mar 3, 2009, 5:40:26 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4-dev/libf/dyn3dpar/advtrac_p.F
r985 r1114 22 22 USE Vampir 23 23 USE times 24 USE infotrac 24 25 IMPLICIT NONE 25 26 c … … 35 36 #include "ener.h" 36 37 #include "description.h" 37 #include "advtrac.h"38 38 39 39 c------------------------------------------------------------------- … … 46 46 INTEGER iapptrac 47 47 REAL pbaru(ip1jmp1,llm),pbarv(ip1jm,llm) 48 REAL q(ip1jmp1,llm,nq mx),masse(ip1jmp1,llm)48 REAL q(ip1jmp1,llm,nqtot),masse(ip1jmp1,llm) 49 49 REAL p( ip1jmp1,llmp1 ),teta(ip1jmp1,llm) 50 50 REAL pk(ip1jmp1,llm) … … 59 59 REAL,SAVE::pbarug(ip1jmp1,llm),pbarvg(ip1jm,llm),wg(ip1jmp1,llm) 60 60 REAL (kind=kind(1.d0)) :: t_initial, t_final, tps_cpu 61 real cpuadv(nqmx)62 common/cpuadv/cpuadv63 64 61 INTEGER iadvtr 65 62 INTEGER ij,l,iq,iiq … … 76 73 REAL psppm(iim,jjp1) ! pression au sol 77 74 REAL unatppm(iim,jjp1,llm),vnatppm(iim,jjp1,llm) 78 REAL qppm(iim*jjp1,llm,nq mx)75 REAL qppm(iim*jjp1,llm,nqtot) 79 76 REAL fluxwppm(iim,jjp1,llm) 80 77 REAL apppm(llmp1), bpppm(llmp1) … … 88 85 REAL,SAVE :: teta_tmp(ip1jmp1,llm) 89 86 REAL,SAVE :: pk_tmp(ip1jmp1,llm) 90 87 91 88 ijb_u=ij_begin 92 89 ije_u=ij_end … … 196 193 call Register_SwapFieldHallo(pk_tmp,pk_tmp,ip1jmp1,llm, 197 194 * jj_Nb_vanleer,1,1,Request_vanleer) 198 do j=1,nq mx195 do j=1,nqtot 199 196 call Register_SwapFieldHallo(q(1,1,j),q(1,1,j),ip1jmp1,llm, 200 197 * jj_nb_vanleer,0,0,Request_vanleer) … … 279 276 c Appel des sous programmes d'advection 280 277 c----------------------------------------------------------- 281 do iq=1,nq mx278 do iq=1,nqtot 282 279 c call clock(t_initial) 283 280 if(iadv(iq) == 0) cycle … … 479 476 c$OMP END MASTER 480 477 481 do j=1,nq mx478 do j=1,nqtot 482 479 call Register_SwapFieldHallo(q(1,1,j),q(1,1,j),ip1jmp1,llm, 483 480 * jj_nb_caldyn,0,0,Request_vanleer)
Note: See TracChangeset
for help on using the changeset viewer.