Changeset 2980 for LMDZ5/branches/IPSLCM6.0.12/libf/phylmd/physiq_mod.F90

Timestamp:

Aug 3, 2017, 10:31:46 AM (7 years ago)

Author:

acozic

Message:

merges with trunk for rev 2968 and 2971 --
2968 = improved method for ozone forcing
2971 = control outputs for debug are removed

File:

• LMDZ5/branches/IPSLCM6.0.12/libf/phylmd/physiq_mod.F90 (modified) (2 diffs)

LMDZ5/branches/IPSLCM6.0.12/libf/phylmd/physiq_mod.F90

@@ -195 +195 @@
        beta_prec,  &
        rneb,  &
-       zxsnow,snowhgt,qsnow,to_ice,sissnow,runoff,albsol3_lic, &
-       pr_tropopause
+       zxsnow,snowhgt,qsnow,to_ice,sissnow,runoff,albsol3_lic
        !
     USE phys_state_var_mod ! Variables sauvegardees de la physique
@@ -2017 +2016 @@
           IF(SIZE(time_climoz)==360.AND..NOT.ok_daily_climoz) ro3i=ro3i*360./year_len
           IF(adjust_tropopause) THEN
-             CALL dyn_tropopause(t_seri, ztsol, paprs, pplay, presnivs, rot, &
-                  pr_tropopause)
              CALL regr_pr_time_av(ncid_climoz, vars_climoz(1:read_climoz),   &
                       ro3i,  press_edg_climoz,  paprs,   wo, time_climoz,    &
-                           latitude_deg,  press_cen_climoz,  pr_tropopause)
+                      longitude_deg,   latitude_deg,    press_cen_climoz,    &
+                      dyn_tropopause(t_seri, ztsol, paprs, pplay, rot))
           ELSE
              CALL regr_pr_time_av(ncid_climoz, vars_climoz(1:read_climoz),   &