Changeset 4103 for LMDZ6/trunk/libf/phylmd/o3_chem_m.F90
- Timestamp:
- Mar 17, 2022, 11:51:36 AM (2 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/o3_chem_m.F90
r2346 r4103 85 85 ! Heterogeneous chemistry is only during daytime: 86 86 call orbite(real(julien), earth_long, trash1) 87 call zenang(earth_long, gmtime, pdtphys, rlat, rlon, pmu0, trash2)87 call zenang(earth_long, gmtime, 0., pdtphys, rlat, rlon, pmu0, trash2) 88 88 forall (k = 1: nbp_lev) 89 89 where (pmu0 <= cos(87. / 180. * pi)) b(:, k) = 0.
Note: See TracChangeset
for help on using the changeset viewer.