source: LMDZ.3.3/trunk/libf/dyn3d/readhist.F @ 3787

Last change on this file since 3787 was 2, checked in by lmdz, 25 years ago

Initial revision

  • Property svn:eol-style set to native
  • Property svn:executable set to *
  • Property svn:keywords set to Author Date Id Revision
File size: 1.2 KB
RevLine 
[2]1      SUBROUTINE readhist(typfile,unitlec,
2     s  ucov,vcov,h,pext,ptime,pdt,ifin)
3c%W%    %G%
4c=======================================================================
5c
6c   Author:    Frederic Hourdin      original: 11/11/92
7c   -------
8c
9c   Subject:
10c   ------
11c
12c   Method:
13c   --------
14c
15c   Interface:
16c   ----------
17c
18c      Input:
19c      ------
20c
21c      Output:
22c      -------
23c
24c=======================================================================
25      IMPLICIT NONE
26c-----------------------------------------------------------------------
27c   Declararations:
28c   ---------------
29
30#include "dimensions.h"
31#include "comconst.h"
32#include "control.h"
33#include "paramet.h"
34
35c   Arguments:
36c   ----------
37
38      INTEGER typfile,unitlec
39      REAL vcov(ip1jm,llm),ucov(ip1jmp1,llm),h(ip1jmp1,llm)
40      REAL pext(ip1jmp1)
41      REAL pdt,ptime
42
43c   Local:
44c   ------
45
46      INTEGER ifin
47
48c-----------------------------------------------------------------------
49
50      ifin=0
51      IF(typfile.EQ.0) THEN
52         READ(unitlec,err=9999) ptime,vcov,ucov,h,pext
53         pdt=iecri*dtvr
54      ELSE
55         READ(unitlec,err=9999) ptime,pdt,vcov,ucov,h,pext
56      ENDIF
57      PRINT*,ptime,pdt
58
59      RETURN
609999  CONTINUE
61          ifin=1
62      RETURN
63      END
Note: See TracBrowser for help on using the repository browser.