Changeset 2298 for LMDZ5/branches/testing/libf/phylmd/traclmdz_mod.F90

Timestamp:

Jun 14, 2015, 9:13:32 PM (10 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes -r2237:2291 into testing branch

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/traclmdz_mod.F90 (modified) (2 diffs)

LMDZ5/branches/testing/libf/phylmd/traclmdz_mod.F90

@@ -174 +174 @@
     id_pcsat=0; id_pcocsat=0; id_pcq=0; id_pcs0=0; id_pcos0=0; id_pcq0=0
     DO it=1,nbtr
-       iiq=niadv(it+2)
-       IF ( tname(iiq) == "RN" ) THEN
+!!       iiq=niadv(it+2)                                                            ! jyg
+       iiq=niadv(it+nqo)                                                            ! jyg
+       IF ( tname(iiq) == "RN" ) THEN                                               
           id_rn=it ! radon
        ELSE IF ( tname(iiq) == "PB") THEN
@@ -293 +294 @@
 ! ----------------------------------------------
     DO it=1,nbtr
-       iiq=niadv(it+2)
+!!       iiq=niadv(it+2)                                                            ! jyg
+       iiq=niadv(it+nqo)                                                            ! jyg
        ! Test if tracer is zero everywhere. 
        ! Done by master process MPI and master thread OpenMP