Changeset 295 for LMDZ.3.3/branches/rel-LF/libf/bibio/writedynav.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/writedynav.F (modified) (2 diffs)

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

@@ -71 +71 @@
       ndex2d = 0
       ok_sync = .TRUE.
+      us = 999.999
+      vs = 999.999
+      tm = 999.999
+      vnat = 999.999
+      unat = 999.999
 
 C Passage aux composantes naturelles du vent
@@ -89 +94 @@
       call histwrite(histid, 'v', time, vs, 
      .               iip1*jjp1*llm, ndex3d)
+C
+C  Temperature potentielle moyennee
+C
+      call histwrite(histid, 'theta', time, teta, 
+     .                iip1*jjp1*llm, ndex3d)
 C
 C  Temperature moyennee