Changeset 1453 for trunk/LMDZ.VENUS/libf

Timestamp:

Jun 16, 2015, 2:25:22 PM (10 years ago)

Author:

slebonnois

Message:

SL: bugs in previous commit...

Location:

trunk/LMDZ.VENUS/libf/phyvenus

Files:

• ini_histins.h (modified) (2 diffs)
• write_histins.h (modified) (2 diffs)

trunk/LMDZ.VENUS/libf/phyvenus/ini_histins.h

@@ -101 +101 @@
 c    .                "ins(X)", zsto,zout)
 c
-         CALL histdef(nid_mth, "mmean", "Mean molecular mass", "g/mol",
-     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
-     .                "ave(X)", zsto,zout)
-
-         CALL histdef(nid_mth, "rho", "Air density [mass/Vol]", "kg/m3",
+         CALL histdef(nid_ins, "mmean", "Mean molecular mass", "g/mol",
+     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
+     .                "ave(X)", zsto,zout)
+
+         CALL histdef(nid_ins, "rho", "Air density [mass/Vol]", "kg/m3",
      .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
      .                "ave(X)", zsto,zout)
@@ -126 +126 @@
 
        IF (callthermos .and. ok_chem) THEN
-          CALL histdef(nid_mth, "d_qmoldif CO2", "Dif molec" , "kg/kg",
-     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
-     .                "ave(X)", zsto,zout)
-          CALL histdef(nid_mth, "d_qmoldif O3p", "Dif molec" , "kg/kg",
-     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
-     .                "ave(X)", zsto,zout)
-          CALL histdef(nid_mth, "d_qmoldif N2", "Dif molec" , "kg/kg",
+          CALL histdef(nid_ins, "d_qmoldif CO2", "Dif molec" , "kg/kg",
+     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
+     .                "ave(X)", zsto,zout)
+          CALL histdef(nid_ins, "d_qmoldif O3p", "Dif molec" , "kg/kg",
+     .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
+     .                "ave(X)", zsto,zout)
+          CALL histdef(nid_ins, "d_qmoldif N2", "Dif molec" , "kg/kg",
      .                iim,jj_nb,nhori, klev,1,klev,nvert, 32,
      .                "ave(X)", zsto,zout)

trunk/LMDZ.VENUS/libf/phyvenus/write_histins.h

@@ -41 +41 @@
 c     call histwrite_phy(nid_ins,.false.,"mang",itau_w,mang)
 c     call histwrite_phy(nid_ins,.false.,"Kz",itau_w,ycoefh)
-      call histwrite_phy(nid_mth,.false.,"mmean",itau_w,mmean)
-      call histwrite_phy(nid_mth,.false.,"rho",itau_w,rho)
+      call histwrite_phy(nid_ins,.false.,"mmean",itau_w,mmean)
+      call histwrite_phy(nid_ins,.false.,"rho",itau_w,rho)
 
 c plusieurs traceurs  !!!outputs in [vmr]
@@ -53 +53 @@
 
        IF (callthermos .and. ok_chem) THEN
-       call histwrite_phy(nid_mth,.false.,"d_qmoldifCO2",itau_w,
+       call histwrite_phy(nid_ins,.false.,"d_qmoldifCO2",itau_w,
      .                 d_q_moldif(:,:,i_co2))
-       call histwrite_phy(nid_mth,.false.,"d_qmoldifO3p",itau_w,
+       call histwrite_phy(nid_ins,.false.,"d_qmoldifO3p",itau_w,
      .                  d_q_moldif(:,:,i_o))
-       call histwrite_phy(nid_mth,.false.,"d_qmoldifN2",itau_w,
+       call histwrite_phy(nid_ins,.false.,"d_qmoldifN2",itau_w,
      .                  d_q_moldif(:,:,i_n2))
        ENDIF