Changeset 1220 for LMDZ4/branches/LMDZ4-dev/libf/phylmd/ozonecm_m.F90
- Timestamp:
- Aug 5, 2009, 4:38:34 PM (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/branches/LMDZ4-dev/libf/phylmd/ozonecm_m.F90
r1215 r1220 6 6 contains 7 7 8 function ozonecm(r jour,rlat,paprs)8 function ozonecm(rlat, paprs, rjour) 9 9 10 10 ! The ozone climatology is based on an analytic formula which fits the … … 24 24 use assert_m, only: assert 25 25 26 REAL, INTENT (IN) :: rjour27 26 REAL, INTENT (IN) :: rlat(:) ! (klon) 28 27 REAL, INTENT (IN) :: paprs(:, :) ! (klon,klev+1) 28 REAL, INTENT (IN) :: rjour 29 29 30 30 REAL ozonecm(klon,klev)
Note: See TracChangeset
for help on using the changeset viewer.