Changeset 197 for LMDZ.3.3/trunk/libf/phylmd/initphysto.F

Timestamp:

Mar 29, 2001, 4:59:31 PM (23 years ago)

Author:

lmdz

Message:

Chgts divers pour le offline/nudge FH
LF

File:

• LMDZ.3.3/trunk/libf/phylmd/initphysto.F (modified) (1 diff)

LMDZ.3.3/trunk/libf/phylmd/initphysto.F

@@ -133 +133 @@
      .                "once", t_ops, t_wrt)
 
+C T 
+C
+      call histdef(fileid, 't', 'Temperature', 'K',
+     .             iim, jjm+1, nhoriid, llm, 1, llm, zvertiid,
+     .             32, 'inst(X)', t_ops, t_wrt)
+        write(*,*) 'apres t ds initphysto'
 C mfu 
 C