Changeset 295 for LMDZ.3.3/branches/rel-LF/libf/bibio/initdynav.F

Timestamp:

Nov 26, 2001, 2:47:57 PM (23 years ago)

Author:

lmdzadmin

Message:

Tag version 0 qui marche en couple/force
LF

File:

• LMDZ.3.3/branches/rel-LF/libf/bibio/initdynav.F (modified) (1 diff)

LMDZ.3.3/branches/rel-LF/libf/bibio/initdynav.F

@@ -119 +119 @@
      .             32, 'ave(X)', t_ops, t_wrt)
 C
+C  Temperature potentielle
+C
+      call histdef(fileid, 'theta', 'temperature potentielle', 'K',
+     .             iip1, jjp1, thoriid, llm, 1, llm, zvertiid,
+     .             32, 'ave(X)', 7200., 7200.)
+
+
+C
 C  Geopotentiel
 C