Changeset 2523
- Timestamp:
- May 17, 2021, 12:16:36 PM (4 years ago)
- Location:
- trunk/LMDZ.VENUS/libf/phyvenus
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.VENUS/libf/phyvenus/moldiff_red.F90
r2464 r2523 176 176 allocate(dij(ncompdiff,ncompdiff)) 177 177 178 call moldiffcoeff_red(dij,indic_diff,gcmind,ncompdiff ,nq)178 call moldiffcoeff_red(dij,indic_diff,gcmind,ncompdiff) 179 179 print*,'MOLDIFF EXO' 180 180 -
trunk/LMDZ.VENUS/libf/phyvenus/moldiffcoeff_red.F
r1621 r2523 84 84 real dnh 85 85 logical,save :: firstcall=.true. 86 ! logical,parameter :: outputcoeffs=.true. ! to output 'coeffs.dat' file, 86 87 logical,parameter :: outputcoeffs=.false. ! to output 'coeffs.dat' file, 87 88 ! set outputcoeffs=.true. … … 282 283 enddo 283 284 285 !!! TEST !!! Augmentation des coeffs CO2/CO et CO2/O 286 ! do n=2,ncompdiff2 287 ! if ((tname(gcmind(n)).eq.'co').or.(tname(gcmind(n)).eq.'o')) then 288 ! dij(1,n)=dij(1,n)*1000. 289 ! dij(n,1)=dij(1,n) 290 ! endif 291 ! enddo 292 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! 293 284 294 if (outputcoeffs) then 285 295 ! output coefficients in 'coeffs.dat' file … … 287 297 do n=1,ncompdiff2 288 298 do nn=n,ncompdiff2 289 write(56,*) n,nn,dij(n,nn) !*1.e5/1.381e-23/(273**1.75)299 write(56,*) tname(gcmind(n)),tname(gcmind(nn)),dij(n,nn) !*1.e5/1.381e-23/(273**1.75) 290 300 enddo 291 301 enddo -
trunk/LMDZ.VENUS/libf/phyvenus/physiq_mod.F
r2486 r2523 178 178 integer,save :: itap ! physics counter 179 179 REAL delp(klon,klev) ! epaisseur d'une couche 180 REAL omega(klon,klev) ! vitesse verticale en Pa/s 180 REAL omega(klon,klev) ! vitesse verticale en Pa/s (+ downward) 181 REAL vertwind(klon,klev) ! vitesse verticale en m/s (+ upward) 181 182 182 183 INTEGER igwd,idx(klon),itest(klon) … … 359 360 REAL :: tr_hedin(klon,klev,nqmax) 360 361 REAL :: d_tr(klon,klev,nqmax) 362 c pour sorties 363 REAL :: col_dens_tr(klon,nqmax) 361 364 362 365 c pour ioipsl … … 861 864 c==================================================================== 862 865 863 c Calcule de vitesse verticale a partir de flux de masse verticale 864 DO k = 1, klev 865 DO i = 1, klon 866 omega(i,k) = RG*flxmw(i,k) / cell_area(i) 867 END DO 868 END DO 866 ! Compute vertical velocity (Pa/s) from vertical mass flux 867 ! Need to linearly interpolate mass flux to mid-layers 868 do k=1,klev-1 869 omega(1:klon,k) = 0.5*RG*(flxmw(1:klon,k)+flxmw(1:klon,k+1)) 870 . / cell_area(1:klon) 871 enddo 872 omega(1:klon,klev) = 0.5*RG*flxmw(1:klon,klev) / cell_area(1:klon) 869 873 870 874 c====== … … 1930 1934 endif 1931 1935 1936 c calcul vitesse verticale en m/s 1937 DO k = 1, klev 1938 DO i = 1, klon 1939 vertwind(i,k) = -omega(i,k)/(rho(i,k)*RG) 1940 END DO 1941 END DO 1942 1932 1943 c------------------------ 1933 1944 c Calcul moment cinetique … … 2013 2024 CALL send_xios_field("vitv",-1.*v_seri) 2014 2025 CALL send_xios_field("vitw",omega) 2026 CALL send_xios_field("vitwz",vertwind) 2015 2027 CALL send_xios_field("Kz",ycoefh) 2016 2028 CALL send_xios_field("mmean",mmean) … … 2059 2071 $ tr_seri(:,:,iq)*mmean(:,:)/m_tr(iq)) 2060 2072 end do 2073 2074 ! tracers in gas phase, column densities 2075 do iq = 1,nqmax - nmicro 2076 col_dens_tr(:,iq)=0. 2077 do k = 1, klev 2078 col_dens_tr(:,iq) = col_dens_tr(:,iq) + 2079 $ tr_seri(:,k,iq)* (paprs(:,k)-paprs(:,k+1)) / RG 2080 end do 2081 call send_xios_field("col_"//tname(iq),col_dens_tr(:,iq)) 2082 end do 2083 2061 2084 2062 2085 ! tracers in liquid phase, volume mixing ratio -
trunk/LMDZ.VENUS/libf/phyvenus/phytrac_chimie.F
r2464 r2523 68 68 if (debutphy) then 69 69 70 !!--- Adjustment of Helium amount 71 ! if (i_he/=0) then 72 ! trac(:,:,i_he)=trac(:,:,i_he)*20. 73 ! endif 74 !!--- 75 70 76 !------------------------------------------------------------------- 71 77 ! case of tracers re-initialisation with chemistry
Note: See TracChangeset
for help on using the changeset viewer.