Changeset 1183 for LMDZ4/branches/LMDZ4-dev/libf/phylmd/physiq.F

Timestamp:

Jun 16, 2009, 5:38:46 PM (15 years ago)

Author:

jghattas

Message:

• Ajoute test de coherence entre les longitudes et latitudes des fichiers de forcage des aerosols et le model.

• Corection pour la variable mass_solu_aero : changement du nom, commentaire et contenu(il y avait l'aerosol dust en trop)

• Changement du nom de module car dans INCA le meme nom existe deja : aerosol_mod => aero_mod

File:

• LMDZ4/branches/LMDZ4-dev/libf/phylmd/physiq.F (modified) (6 diffs)

LMDZ4/branches/LMDZ4-dev/libf/phylmd/physiq.F

@@ -33 +33 @@
       use netcdf95, only: nf95_close
       use mod_phys_lmdz_mpi_data, only: is_mpi_root
+      USE aero_mod
 
       IMPLICIT none
@@ -1066 +1067 @@
       CHARACTER*4, DIMENSION(naero_grp) :: rfname 
       REAL, DIMENSION(klon)          :: aerindex     ! POLDER aerosol index
-      REAL, DIMENSION(klon,klev)     :: mass_ins_aero! total mass concentration for all indissoluble aerosols[ug/m3]
-      REAL, DIMENSION(klon,klev)     :: mass_ins_aero_pi  ! - " - (pre-industrial value)
+      REAL, DIMENSION(klon,klev)     :: mass_solu_aero    ! total mass concentration for all soluble aerosols[ug/m3]
+      REAL, DIMENSION(klon,klev)     :: mass_solu_aero_pi ! - " - (pre-industrial value)
 
       ! Parameters
@@ -2638 +2639 @@
      &        debut, new_aod, flag_aerosol, rjourvrai, pdtphys,
      &        pplay, paprs, t_seri, rhcl, 
-     &        mass_ins_aero, mass_ins_aero_pi, 
+     &        mass_solu_aero, mass_solu_aero_pi, 
      &        tau_aero, piz_aero, cg_aero, 
      &        tausum_aero, tau3d_aero)
@@ -2821 +2822 @@
 
       IF (aerosol_couple) THEN 
-         mass_ins_aero(:,:)    = ccm(:,:,1) 
-         mass_ins_aero_pi(:,:) = ccm(:,:,2) 
+         mass_solu_aero(:,:)    = ccm(:,:,1) 
+         mass_solu_aero_pi(:,:) = ccm(:,:,2) 
       END IF
 
@@ -2831 +2832 @@
      .            flwp, fiwp, flwc, fiwc,
      e            ok_aie,
-     e            mass_ins_aero, mass_ins_aero_pi,
+     e            mass_solu_aero, mass_solu_aero_pi,
      e            bl95_b0, bl95_b1,
      s            cldtaupi, re, fl)
@@ -2839 +2840 @@
      .            cldh, cldl, cldm, cldt, cldq,
      e            ok_aie,
-     e            mass_ins_aero, mass_ins_aero_pi,
+     e            mass_solu_aero, mass_solu_aero_pi,
      e            bl95_b0, bl95_b1,
      s            cldtaupi, re, fl)