Changeset 4368 for LMDZ6/branches/Ocean_skin/libf/phylmd/o3_chem_m.F90
- Timestamp:
- Dec 6, 2022, 12:01:16 AM (23 months ago)
- Location:
- LMDZ6/branches/Ocean_skin
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Ocean_skin
- Property svn:mergeinfo changed
-
LMDZ6/branches/Ocean_skin/libf/phylmd/o3_chem_m.F90
r2346 r4368 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.