Changeset 2862 for LMDZ5/trunk/libf


Ignore:
Timestamp:
Apr 23, 2017, 11:22:26 AM (8 years ago)
Author:
oboucher
Message:

Correcting diagnostics loadno3 and loadss.

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r2854 r2862  
    232232     ENDIF
    233233     !
    234      ! Read and interpolate cidustm
     234     ! Read and interpolate asno3m, csno3m, cino3m
    235235     IF (flag_aerosol .EQ. 6) THEN
    236236
    … …  
    241241        CALL readaerosol_interp(id_CINO3M_phy, itap, pdtphys, rjourvrai, &
    242242        debut, pplay, paprs, t_seri, nitrinscoarse, nitrinscoarse_pi, load_tmp3)
    243         loadss(:)=load_tmp1(:)+load_tmp2(:)+load_tmp3(:)
     243        loadno3(:)=load_tmp1(:)+load_tmp2(:)+load_tmp3(:)
    244244
    245245     ELSE
Note: See TracChangeset for help on using the changeset viewer.