Changeset 1609 for trunk/LMDZ.VENUS/libf

Timestamp:

Sep 21, 2016, 11:18:51 AM (8 years ago)

Author:

slebonnois

Message:

SL: correction of a bug introduced in the previous Venus commit

File:

• trunk/LMDZ.VENUS/libf/phyvenus/moldiff_red.F90 (modified) (3 diffs)

trunk/LMDZ.VENUS/libf/phyvenus/moldiff_red.F90

@@ -1053 +1053 @@
         END
 
-        SUBROUTINE UPPER_RESOL(P,T,Z,M,R,Rk,                            &
+        SUBROUTINE UPPER_RESOL(P,T,Z,M,RR,Rk,                            &
      & qq,mol_tr,gc,Praf,Traf,Qraf,Mraf,Zraf,                             &
      & Nraf,Nrafk,Rraf,Rrafk,il,nl,nq,nlx,ig)
@@ -1063 +1063 @@
         INTEGER :: gc(nq)
         INTEGER,DIMENSION(1) :: indz
-        REAL*8, DIMENSION(nlx) :: P,T,Z,M,R
+        REAL*8, DIMENSION(nlx) :: P,T,Z,M,RR
         REAL*8, DIMENSION(nlx,nq) :: qq,Rk
         REAL*8, DIMENSION(nl) :: Praf,Traf,Mraf,Zraf,Nraf,Rraf
@@ -1137 +1137 @@
         do iq=1,nq
         Rrafk(nl,iq)=Rk(nlx,iq)
-        Qraf(nl,iq)=Rk(nlx,iq)/R(nlx)
+        Qraf(nl,iq)=Rk(nlx,iq)/RR(nlx)
         Nrafk(nl,iq)=Rk(nlx,iq)/dble(mol_tr(iq))/masseU
         enddo