Changeset 5670 for LMDZ6

Timestamp:

May 21, 2025, 3:51:33 PM (3 weeks ago)

Author:

lguez

Message:

Define ztoplwadaero and ztoplwadaero with ECRad

ztoplwadaero and ztoplwadaero were not defined so neither were
toplwad_aero and toplwad0_aero, so the content of NetCDF variables
toplwad and toplwad0 in history files was random.

File:

• LMDZ6/trunk/libf/phylmd/radlwsw_m.F90 (modified) (2 diffs)

LMDZ6/trunk/libf/phylmd/radlwsw_m.F90

@@ -91 +91 @@
     USE yoethf_mod_h
     USE phys_constants_mod, ONLY: dobson_u
+    USE wxios_mod, ONLY: missing_val
 
     !======================================================================
@@ -1529 +1530 @@
           ZSOLSWCF_AERO(:,2)=ZSOLSWCF_AERO(:,2)*fract(:)
           ZSOLSWCF_AERO(:,3)=ZSOLSWCF_AERO(:,3)*fract(:)
+          ztoplwadaero = missing_val
+          ztoplwad0aero = missing_val
 
           ! ---------