Changeset 3909 for LMDZ6/trunk/libf/phylmd/radlwsw_m.F90

Timestamp:

May 20, 2021, 12:19:47 PM (3 years ago)

Author:

idelkadi

Message:

Error correction (variable ZO3_DP to be treated under CPP_ECRAD keys)

File:

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

LMDZ6/trunk/libf/phylmd/radlwsw_m.F90

@@ -567 +567 @@
         POZON(i,k, :) = wo(iof+i, k, :) * RG * dobson_u * 1e3 &
              / (paprs(iof+i, k) - paprs(iof+i, k+1))
+#ifdef CPP_ECRAD
         ZO3_DP(i,k) = wo(iof+i, k, 1) * RG * dobson_u * 1e3
+#endif
 !       A activer pour CCMVAL on prend l'ozone impose (MPL 07042010)
 !       POZON(i,k,:) = wo(i,k,:)