Changeset 2862 for LMDZ5/trunk/libf/phylmd

Timestamp:

Apr 23, 2017, 11:22:26 AM (8 years ago)

Author:

oboucher

Message:

Correcting diagnostics loadno3 and loadss.

File:

• LMDZ5/trunk/libf/phylmd/rrtm/readaerosol_optic_rrtm.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/rrtm/readaerosol_optic_rrtm.F90

@@ -232 +232 @@
      ENDIF
      !
-     ! Read and interpolate cidustm
+     ! Read and interpolate asno3m, csno3m, cino3m
      IF (flag_aerosol .EQ. 6) THEN 
 
@@ -241 +241 @@
         CALL readaerosol_interp(id_CINO3M_phy, itap, pdtphys, rjourvrai, & 
         debut, pplay, paprs, t_seri, nitrinscoarse, nitrinscoarse_pi, load_tmp3) 
-        loadss(:)=load_tmp1(:)+load_tmp2(:)+load_tmp3(:)
+        loadno3(:)=load_tmp1(:)+load_tmp2(:)+load_tmp3(:)
 
      ELSE