Changeset 3312
- Timestamp:
- Apr 22, 2024, 6:44:48 PM (8 months ago)
- Location:
- trunk/LMDZ.GENERIC
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.GENERIC/changelog.txt
r3311 r3312 1916 1916 will before open_startphy was doing both by create_restartphy 1917 1917 at firstcall 1918 1919 == 22/04/2024 == YJ 1920 Photochemistry: correction for using diurnal equal true in 1D 1921 No correction factor with diurnal equal true for photolysis rate 1922 + writediagspecUV change name to flux_surf for clarity -
trunk/LMDZ.GENERIC/libf/aeronostd/calchim_asis.F90
r3309 r3312 419 419 420 420 !flux at the surface 421 call writediagspecUV(ngrid,"flux ","flux(lon,lat,band)","photon.s-1.nm-1.cm-2",3,fluxUV(:,:,1))421 call writediagspecUV(ngrid,"flux_surf","Surface flux(lon,lat,band)","photon.s-1.nm-1.cm-2",3,fluxUV(:,:,1)) 422 422 423 423 endif ! end jonline -
trunk/LMDZ.GENERIC/libf/aeronostd/photochemistry_asis.F90
r3309 r3312 169 169 call photolysis_online(nlayer, alt, press, temp, zmmean, rm, & 170 170 tau, sza, dist_sol, v_phot, e_phot, ig, ngrid, nreact) 171 if (ngrid.eq.1) then 172 do iphot = 1,nb_phot_hv_max 173 v_phot(:,iphot) = v_phot(:,iphot)* 0.25 / cos(sza*pi/180.) ! globally averaged = divide by 4 174 e_phot(:,iphot) = e_phot(:,iphot)* 0.25 / cos(sza*pi/180.) ! globally averaged = divide by 4 175 end do 176 elseif(diurnal .eqv. .false.) then 177 do iphot = 1,nb_phot_hv_max 178 v_phot(:,iphot) = v_phot(:,iphot) * fractcol 179 e_phot(:,iphot) = e_phot(:,iphot) * fractcol 180 end do 171 if (diurnal .eqv. .false.) then 172 if (ngrid.eq.1) then 173 do iphot = 1,nb_phot_hv_max 174 v_phot(:,iphot) = v_phot(:,iphot)* 0.25 / cos(sza*pi/180.) ! globally averaged = divide by 4 175 e_phot(:,iphot) = e_phot(:,iphot)* 0.25 / cos(sza*pi/180.) ! globally averaged = divide by 4 176 end do 177 else 178 do iphot = 1,nb_phot_hv_max 179 v_phot(:,iphot) = v_phot(:,iphot) * fractcol 180 e_phot(:,iphot) = e_phot(:,iphot) * fractcol 181 end do 182 endif 181 183 endif 182 184 else ! night
Note: See TracChangeset
for help on using the changeset viewer.