Changeset 4489 for LMDZ6/trunk/libf/phylmd/ecrad/radiation_spartacus_lw.F90
- Timestamp:
- Mar 31, 2023, 8:42:57 PM (17 months ago)
- Location:
- LMDZ6/trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk
- Property svn:mergeinfo changed
/LMDZ6/branches/LMDZ_ECRad (added) merged: 4175,4177-4183,4188,4192,4200-4203,4355,4366,4387-4388,4390,4444,4482,4486,4488
- Property svn:mergeinfo changed
-
LMDZ6/trunk/libf/phylmd/ecrad/radiation_spartacus_lw.F90
r3908 r4489 66 66 use radiation_matrix 67 67 use radiation_two_stream, only : calc_two_stream_gammas_lw, & 68 calc_reflectance_transmittance_lw, LwDiffusivity 68 calc_reflectance_transmittance_lw, LwDiffusivityWP 69 69 use radiation_lw_derivatives, only : calc_lw_derivatives_matrix 70 70 use radiation_constants, only : Pi, GasConstantDryAir, & … … 615 615 planck_top(1:ng3D,nreg+jreg) = od_region(1:ng3D,jreg) & 616 616 & *(1.0_jprb-ssa_region(1:ng3D,jreg))*region_fracs(jreg,jlev,jcol) & 617 & *planck_hl(1:ng3D,jlev,jcol)*LwDiffusivity 617 & *planck_hl(1:ng3D,jlev,jcol)*LwDiffusivityWP 618 618 planck_top(1:ng3D,jreg) = -planck_top(1:ng3D,nreg+jreg) 619 619 planck_diff(1:ng3D,nreg+jreg) = od_region(1:ng3D,jreg) & 620 620 & * (1.0_jprb-ssa_region(1:ng3D,jreg))*region_fracs(jreg,jlev,jcol) & 621 621 & * (planck_hl(1:ng3D,jlev+1,jcol) & 622 & -planck_hl(1:ng3D,jlev,jcol))*LwDiffusivity 622 & -planck_hl(1:ng3D,jlev,jcol))*LwDiffusivityWP 623 623 planck_diff(1:ng3D,jreg) = -planck_diff(1:ng3D,nreg+jreg) 624 624 end do
Note: See TracChangeset
for help on using the changeset viewer.