Changeset 2345 for LMDZ5/trunk/libf/phylmd/regr_pr_o3_m.F90

Timestamp:

Aug 21, 2015, 11:57:36 AM (9 years ago)

Author:

Ehouarn Millour

Message:

Physics/dynamics separation:

• move test_disvert_m to dynlonlat_phylonlat/phylmd since it is only used by ce0l and relies on dynamics.
• put "config_inca" in tracinca_mod so physics routines can get the info from there rather than from control_mod.
• get rid of references to "control_mod" from within the physics.

EM

File:

• LMDZ5/trunk/libf/phylmd/regr_pr_o3_m.F90 (modified) (3 diffs)

LMDZ5/trunk/libf/phylmd/regr_pr_o3_m.F90

@@ -30 +30 @@
     use regr1_step_av_m, only: regr1_step_av
     use press_coefoz_m, only: press_in_edg
-    use control_mod, only: dayref
+    use time_phylmdz_mod, only: day_ref
 
     REAL, intent(in):: p3d(:, :, :) ! pressure at layer interfaces, in Pa
@@ -49 +49 @@
 
     real r_mob(jjm + 1, size(press_in_edg) - 1)
-    ! (ozone mole fraction from Mobidic at day "dayref")
+    ! (ozone mole fraction from Mobidic at day "day_ref")
     ! (r_mob(j, k) is at latitude "rlatu(j)", in pressure interval
     ! "[press_in_edg(k), press_in_edg(k+1)]".)
@@ -64 +64 @@
     call nf95_inq_varid(ncid, "r_Mob", varid)
     ! Get data at the right day from the input file:
-    ncerr = nf90_get_var(ncid, varid, r_mob, start=(/1, 1, dayref/))
+    ncerr = nf90_get_var(ncid, varid, r_mob, start=(/1, 1, day_ref/))
     call handle_err("nf90_get_var r_Mob", ncerr)
     ! Latitudes are in ascending order in the input file while