Changeset 1337 for LMDZ4/trunk/libf/phylmd/readaerosol_interp.F90

Timestamp:

Apr 2, 2010, 1:31:05 PM (14 years ago)

Author:

Laurent Fairhead

Message:

Additions to aerosol outputs for CMIP5 exercise

---

Additions aux sorties aérosols pour l'exercice CMIP5

Michael, Anne

File:

• LMDZ4/trunk/libf/phylmd/readaerosol_interp.F90 (modified) (3 diffs)

LMDZ4/trunk/libf/phylmd/readaerosol_interp.F90

@@ -1 +1 @@
 ! $Id$
 !
-SUBROUTINE readaerosol_interp(id_aero, itap, pdtphys, r_day, first, pplay, paprs, t_seri, mass_out, pi_mass_out)
+SUBROUTINE readaerosol_interp(id_aero, itap, pdtphys, r_day, first, pplay, paprs, t_seri, mass_out, pi_mass_out, load_src)
 !
 ! This routine will return the mass concentration at actual day(mass_out) and 
@@ -46 +46 @@
   REAL, INTENT(OUT) :: mass_out(klon,klev)    ! Mass of aerosol (monthly mean data,from file) [ug AIBCM/m3]
   REAL, INTENT(OUT) :: pi_mass_out(klon,klev) ! Mass of preindustrial aerosol (monthly mean data,from file) [ug AIBCM/m3]
+  REAL, INTENT(OUT) :: load_src(klon) ! Load of aerosol (monthly mean data,from file) [kg/m3]
 !      
 ! Local Variables:
@@ -61 +62 @@
   REAL                              :: volm      ! Volyme de melange [kg/kg]
   REAL, DIMENSION(klon)             :: psurf_day, pi_psurf_day
-  REAL, DIMENSION(klon)             :: load_src, pi_load_src  ! Mass load at source grid
+  REAL, DIMENSION(klon)             :: pi_load_src  ! Mass load at source grid
   REAL, DIMENSION(klon)             :: load_tgt, load_tgt_test
   REAL, DIMENSION(klon,klev)        :: delp ! pressure difference in each model layer