Changeset 2345 for LMDZ5/trunk/libf/phylmd/regr_pr_o3_m.F90
- Timestamp:
- Aug 21, 2015, 11:57:36 AM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/regr_pr_o3_m.F90
r1907 r2345 30 30 use regr1_step_av_m, only: regr1_step_av 31 31 use press_coefoz_m, only: press_in_edg 32 use control_mod, only: dayref32 use time_phylmdz_mod, only: day_ref 33 33 34 34 REAL, intent(in):: p3d(:, :, :) ! pressure at layer interfaces, in Pa … … 49 49 50 50 real r_mob(jjm + 1, size(press_in_edg) - 1) 51 ! (ozone mole fraction from Mobidic at day "day ref")51 ! (ozone mole fraction from Mobidic at day "day_ref") 52 52 ! (r_mob(j, k) is at latitude "rlatu(j)", in pressure interval 53 53 ! "[press_in_edg(k), press_in_edg(k+1)]".) … … 64 64 call nf95_inq_varid(ncid, "r_Mob", varid) 65 65 ! Get data at the right day from the input file: 66 ncerr = nf90_get_var(ncid, varid, r_mob, start=(/1, 1, day ref/))66 ncerr = nf90_get_var(ncid, varid, r_mob, start=(/1, 1, day_ref/)) 67 67 call handle_err("nf90_get_var r_Mob", ncerr) 68 68 ! Latitudes are in ascending order in the input file while
Note: See TracChangeset
for help on using the changeset viewer.