Changeset 549

Timestamp:

Oct 18, 2004, 5:42:20 PM (20 years ago)

Author:

lmdzadmin

Message:

Rajout de declarations de tendances par O.Coindreau
LF

File:

• LMDZ4/trunk/libf/phylmd/ini_histrac.h (modified) (1 diff)

LMDZ4/trunk/libf/phylmd/ini_histrac.h

@@ -224 +224 @@
      .              "ave(X)", zsto,zout)
          endif
-#endif
-         ENDDO
+
+c---Ajout Olivia
+         CALL histdef(nid_tra, "d_tr_th_"//tnom(iq),
+     .                "tendance thermique"// ttext(iiq), "?",
+     .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
+     .                "ave(X)", zsto,zout)
+         CALL histdef(nid_tra, "d_tr_cv_"//tnom(iq),
+     .                "tendance convection"// ttext(iiq), "?",
+     .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
+     .                "ave(X)", zsto,zout)
+         CALL histdef(nid_tra, "d_tr_cl_"//tnom(iq),
+     .                "tendance couche limite"// ttext(iiq), "?",
+     .                iim,jjm+1,nhori, klev,1,klev,nvert, 32,
+     .                "ave(X)", zsto,zout)
+c---fin Olivia   
+
+#endif
+         ENDDO
+
 #ifdef INCA
 #ifdef INCA_CH4