Changeset 5158 for LMDZ6/branches/Amaury_dev/libf/phylmd/cosp/zeff.F90
- Timestamp:
- Aug 2, 2024, 2:12:03 PM (7 weeks ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Amaury_dev/libf/phylmd/cosp/zeff.F90
r5099 r5158 110 110 sizep = (pi*D0)/wl 111 111 dqv(1) = 0. 112 doi=1,nsizes112 DO i=1,nsizes 113 113 call mieint(sizep(i), m0(i), one, dqv, qext(i), dqsc, qbsca(i), & 114 114 dg, xs1, xs2, dph, err)
Note: See TracChangeset
for help on using the changeset viewer.