Changeset 2647 for LMDZ5/trunk/libf

Timestamp:

Oct 5, 2016, 6:14:25 AM (8 years ago)

Author:

fhourdin

Message:

Modification pour tourner avec 3 traceurs pour l'eau

File:

• LMDZ5/trunk/libf/phylmd/Dust/phytracr_spl_mod.F90 (modified) (1 diff)

LMDZ5/trunk/libf/phylmd/Dust/phytracr_spl_mod.F90

@@ -1170 +1170 @@
        !print *,nbtr
        do it=1,nbtr
-        print *, it, tname(it+2)
-        if (tname(it+2) == 'PREC' ) then
+        print *, it, tname(it+nqo)
+        if (tname(it+nqo) == 'PREC' ) then
             id_prec=it
         endif
-        if (tname(it+2) == 'FINE' ) then
+        if (tname(it+nqo) == 'FINE' ) then
             id_fine=it
         endif
-        if (tname(it+2) == 'COSS' ) then
+        if (tname(it+nqo) == 'COSS' ) then
             id_coss=it
         endif
-        if (tname(it+2) == 'CODU' ) then
+        if (tname(it+nqo) == 'CODU' ) then
             id_codu=it
         endif
-        if (tname(it+2) == 'SCDU' ) then
+        if (tname(it+nqo) == 'SCDU' ) then
             id_scdu=it
         endif