Changeset 214

Timestamp:

Apr 25, 2001, 3:16:43 PM (24 years ago)

Author:

lmdz

Message:

rajout de rain sur suggestion de MAF
LF

File:

• LMDZ.3.3/trunk/libf/phylmd/initphysto.F (modified) (2 diffs)

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

@@ +1 @@
+C
+C $Header$
+C
       subroutine initphysto
      .  (infile,
@@ -240 +243 @@
      .             32, "inst(X)", t_ops, t_wrt)
         
-        
+c
+c rain
+c
+        call histdef(fileid, "rain", " ", " ",
+     .             iim, jjm+1, nhoriid, 1, 1,1, -99,
+     .             32, "inst(X)", t_ops, t_wrt)
+
 c
 c psrf1