Changeset 3221
- Timestamp:
- Feb 16, 2024, 1:13:16 PM (10 months ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.VENUS/libf/phyvenus/moldiff_red.F90
r3218 r3221 166 166 end do 167 167 168 ! find vertical index above which diffusion is computed 169 170 do l=1,nlayer 171 if (pplay(1,l) .gt. Pdiff) then 172 il0=l 173 endif 174 enddo 175 il0=il0+1 176 print*,'vertical index for diffusion',il0,pplay(1,il0) 177 178 allocate(dij(ncompdiff,ncompdiff)) 179 180 call moldiffcoeff_red(dij,indic_diff,gcmind,ncompdiff) 181 print*,'MOLDIFF EXO' 182 183 ! allocatation des tableaux dependants du nombre d especes diffusees 184 allocate(qq(nlayer,ncompdiff)) 185 allocate(qnew(nlayer,ncompdiff)) 186 allocate(qint(nlayer,ncompdiff)) 187 allocate(FacMass(nlayer,ncompdiff)) 188 allocate(rhok(nlayer,ncompdiff)) 189 allocate(rhokinit(nlayer,ncompdiff)) 190 191 allocate(wi(ncompdiff)) 192 allocate(wad(ncompdiff)) 193 allocate(uthermal(ncompdiff)) 194 allocate(lambdaexo(ncompdiff)) 195 allocate(Hspecie(ncompdiff)) 196 allocate(Mtot1(ncompdiff)) 197 allocate(Mtot2(ncompdiff)) 198 allocate(Mraf1(ncompdiff)) 199 allocate(Mraf2(ncompdiff)) 200 201 firstcall= .false. 202 step=1 203 endif ! of if (firstcall) 204 205 ! 168 ! find vertical index above which diffusion is computed 169 170 do l = 1,nlayer 171 if (pplay(1,l) > Pdiff) then 172 il0 = l 173 end if 174 end do 175 176 il0 = il0 + 1 177 178 print*,'vertical index for diffusion',il0,pplay(1,il0) 179 180 allocate(dij(ncompdiff,ncompdiff)) 181 182 call moldiffcoeff_red(dij,indic_diff,gcmind,ncompdiff) 183 184 print*,'MOLDIFF EXO' 185 186 ! allocation of arrays depending on the number of diffused species 187 188 allocate(qq(nlayer,ncompdiff)) 189 allocate(qnew(nlayer,ncompdiff)) 190 allocate(qint(nlayer,ncompdiff)) 191 allocate(FacMass(nlayer,ncompdiff)) 192 allocate(rhok(nlayer,ncompdiff)) 193 allocate(rhokinit(nlayer,ncompdiff)) 194 195 allocate(wi(ncompdiff)) 196 allocate(wad(ncompdiff)) 197 allocate(uthermal(ncompdiff)) 198 allocate(lambdaexo(ncompdiff)) 199 allocate(Hspecie(ncompdiff)) 200 allocate(Mtot1(ncompdiff)) 201 allocate(Mtot2(ncompdiff)) 202 allocate(Mraf1(ncompdiff)) 203 allocate(Mraf2(ncompdiff)) 204 205 firstcall = .false. 206 step = 1 207 208 end if ! of if (firstcall) 209 206 210 !ccccccccccccccccccccccccccccccccccccccccccccccccccccccc 207 211
Note: See TracChangeset
for help on using the changeset viewer.