Changeset 2378
- Timestamp:
- Jun 18, 2020, 5:12:08 PM (5 years ago)
- Location:
- trunk/LMDZ.MARS
- Files:
-
- 6 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.MARS/README
r2374 r2378 3104 3104 Minor fix to r2362 (addition of CO2 microphysics): make CO2 conservation 3105 3105 tests only if CO2 microphysics is on. 3106 3107 == 18/06/2020 == LR 3108 HDO 3109 Correction of an error in newstart for inihdo. 3110 Other minor corrections for HDO cycle. 3111 Transition from fractionation coefficients from Merlivat et al. 1967 to Lamb et al. 2017 -
trunk/LMDZ.MARS/libf/dynphy_lonlat/phymars/newstart.F
r2312 r2378 1010 1010 !D/H (SMOW) = 155.76e-6 so HDO/H2O is twice that 1011 1011 1012 DO l=1,llm1013 DO j=1,jjp11014 DO i=1,iip1-11015 q(i,j,l,igcm_hdo_vap)= q(i,j,l,igcm_h2o_vap) * DoverH1016 q(i,j,l,igcm_hdo_ice)= q(i,j,l,igcm_h2o_ice) * DoverH1017 ENDDO1018 ! We want to have the very same value at lon -180 and lon 1801019 q(iip1,j,l,igcm_hdo_vap) = q(1,j,l,igcm_hdo_vap)1020 q(iip1,j,l,igcm_hdo_ice) = q(1,j,l,igcm_hdo_ice)1021 ENDDO1022 ENDDO1023 1024 1012 do ig=1,ngridmx 1025 1013 qsurf(ig,igcm_h2o_ice)=max(0.,qsurf(ig,igcm_h2o_ice)) 1026 qsurf(ig,igcm_hdo_ice)= DoverH * qsurf(ig,igcm_h2o_ice)1027 1014 end do 1015 1016 ! Update the hdo tracers 1017 q(1:iip1,1:jjp1,1:llm,igcm_hdo_vap) 1018 & =q(1:iip1,1:jjp1,1:llm,igcm_h2o_vap)* DoverH 1019 q(1:iip1,1:jjp1,1:llm,igcm_hdo_ice) 1020 & =q(1:iip1,1:jjp1,1:llm,igcm_h2o_ice)* DoverH 1021 1022 qsurf(1:ngridmx,igcm_hdo_ice) 1023 & =qsurf(1:ngridmx,igcm_h2o_ice)*DoverH 1028 1024 1029 1025 -
trunk/LMDZ.MARS/libf/phymars/hdo_surfex_mod.F
r2324 r2378 105 105 106 106 if (hdofrac) then !do we use fractionation? 107 108 c alpha_c = exp(13525./zt(ig,l)**2.-5.59e-2) !Lamb107 c alpha_c(ig) = exp(16288./zt(ig,1)**2.-9.34e-2) 108 alpha_c = exp(13525./zt(ig,1)**2.-5.59e-2) !Lamb 109 109 else 110 110 alpha_c(ig) = 1. -
trunk/LMDZ.MARS/libf/phymars/phyetat0_mod.F90
r2312 r2378 609 609 end do 610 610 endif 611 612 if (txt.eq."hdo_ice") then 613 do ig=1,ngrid 614 if (qsurf(ig,iq).lt.0.0) then 615 qsurf(ig,iq) = 0.0 616 end if 617 end do 618 endif 619 611 620 enddo 612 621 endif ! of if (nq.ge.1) -
trunk/LMDZ.MARS/libf/phymars/physiq_mod.F
r2374 r2378 3032 3032 3033 3033 do ig=1,ngrid 3034 if (qsurf(ig,igcm_h2o_ice).gt. 1e-30) then3034 if (qsurf(ig,igcm_h2o_ice).gt.qperemin) then 3035 3035 DoH_surf(ig) = 0.5*( qsurf(ig,igcm_hdo_ice)/ 3036 3036 & qsurf(ig,igcm_h2o_ice) )/155.76e-6 -
trunk/LMDZ.MARS/libf/phymars/simpleclouds.F
r2324 r2378 172 172 173 173 if (hdofrac) then ! do we use fractionation? 174 175 calpha_c(ig,l) = exp(13525./zt(ig,l)**2.-5.59d-2) !Lamb174 c alpha_c(ig,l) = exp(16288./zt(ig,l)**2.-9.34d-2) 175 alpha_c(ig,l) = exp(13525./zt(ig,l)**2.-5.59d-2) !Lamb 176 176 else 177 177 alpha_c(ig,l) = 1.d0
Note: See TracChangeset
for help on using the changeset viewer.