Changeset 2503 for LMDZ5/trunk/libf/phylmd/rrtm

Timestamp:

May 4, 2016, 12:05:42 PM (9 years ago)

Author:

oboucher

Message:

Correction pour le travail de cochon fait dans le commit 2501....

File:

• LMDZ5/trunk/libf/phylmd/rrtm/aeropt_lw_rrtm.F90 (modified) (3 diffs)

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

@@ -10 +10 @@
   USE dimphy
   USE aero_mod
+  USE infotrac
   USE phys_state_var_mod, ONLY : tau_aero_lw_rrtm
+  USE YOERAD, ONLY : NLW
 
   IMPLICIT NONE
@@ -19 +21 @@
   ! Input arguments:
   !
-  LOGICAL, INTENT(IN)                      :: aerosol_couple
-  REAL, DIMENSION(klon,klev+1), INTENT(in)  :: paprs
+  LOGICAL, INTENT(IN)                         :: aerosol_couple
+  REAL, DIMENSION(klon,klev+1), INTENT(in)    :: paprs
+  REAL, DIMENSION(klon,klev,nbtr), INTENT(in) :: tr_seri
   !
   REAL, DIMENSION(klon,klev) :: zdp, mass_temp
+  ! 
   !
-  INTEGER inu, k
+  INTEGER inu, i, k
   INTEGER :: id_ASBCM, id_ASPOMM, id_ASSO4M, id_ASMSAM, id_CSSO4M, id_CSMSAM, id_SSSSM
   INTEGER :: id_CSSSM, id_ASSSM, id_CIDUSTM, id_AIBCM, id_AIPOMM, id_ASNO3M, id_CSNO3M, id_CINO3M
@@ -78 +82 @@
     !
     DO k=1, klev
-       zdp(:,k) = (paprs(i,k)-paprs(i,k+1))/RG !--kg/m2
+       zdp(:,k) = (paprs(:,k)-paprs(:,k+1))/RG !--kg/m2
     ENDDO
     !