Changeset 1809 for trunk/LMDZ.TITAN/libf/phytitan

Timestamp:

Oct 23, 2017, 10:30:20 PM (7 years ago)

Author:

jvatant

Message:

Correct a small mistake from r1808

File:

• trunk/LMDZ.TITAN/libf/phytitan/physiq_mod.F90 (modified) (1 diff)

trunk/LMDZ.TITAN/libf/phytitan/physiq_mod.F90

@@ -1476 +1476 @@
            call writediagfi(ngrid,"HC3N","HC3N",'kg/kg',3,zq(:,:,42))
         else if ( callchim .and. callmufi ) then
-           call writediagfi(ngrid,"C2H2","C2H2",'kg/kg',3,zq(:,:,6))
-           call writediagfi(ngrid,"C2H4","C2H4",'kg/kg',3,zq(:,:,8))
-           call writediagfi(ngrid,"C2H6","C2H6",'kg/kg',3,zq(:,:,10))
-           call writediagfi(ngrid,"C4H2","C4H2",'kg/kg',3,zq(:,:,22))
-           call writediagfi(ngrid,"HCN","HCN",'kg/kg',3,zq(:,:,32))
-           call writediagfi(ngrid,"HC3N","HC3N",'kg/kg',3,zq(:,:,38))
+           call writediagfi(ngrid,"C2H2","C2H2",'kg/kg',3,zq(:,:,14))
+           call writediagfi(ngrid,"C2H4","C2H4",'kg/kg',3,zq(:,:,16))
+           call writediagfi(ngrid,"C2H6","C2H6",'kg/kg',3,zq(:,:,18))
+           call writediagfi(ngrid,"C4H2","C4H2",'kg/kg',3,zq(:,:,30))
+           call writediagfi(ngrid,"HCN","HCN",'kg/kg',3,zq(:,:,40))
+           call writediagfi(ngrid,"HC3N","HC3N",'kg/kg',3,zq(:,:,46))
         endif