Changeset 2611 for LMDZ5/trunk/libf/phylmd/radlwsw_m.F90

Timestamp:

Aug 3, 2016, 5:41:26 PM (8 years ago)

Author:

jyg

Message:

Introduction of a new option inhibiting the
evolution of the state variables, while calling
all parametrizations. The option is controlled by
the parameter flag_inhib_tend.

For the time being the flag is set to 0 (= no

inhibition of tendencies).

jyg for jld.

File:

• LMDZ5/trunk/libf/phylmd/radlwsw_m.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/radlwsw_m.F90

@@ -465 +465 @@
         PWV(i,k) = MAX (q(iof+i,k), 1.0e-12)
         PQS(i,k) = PWV(i,k)
+!       Confert from  column density of ozone in a cell, in kDU, to a mass fraction
         POZON(i,k, :) = wo(iof+i, k, :) * RG * dobson_u * 1e3 &
              / (paprs(iof+i, k) - paprs(iof+i, k+1))