source: LMDZ4/branches/unlabeled-1.1.1/libf/phylmd/inifis.F @ 4667

Last change on this file since 4667 was 524, checked in by lmdzadmin, 20 years ago

Initial revision

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 1.8 KB
Line 
1!
2! $Header$
3!
4      SUBROUTINE inifis(ngrid,nlayer,
5     $           punjours,
6     $           pdayref,ptimestep,
7     $           plat,plon,parea,
8     $           prad,pg,pr,pcpp)
9      IMPLICIT NONE
10c
11c=======================================================================
12c
13c   subject:
14c   --------
15c
16c   Initialisation for the physical parametrisations of the LMD
17c   martian atmospheric general circulation modele.
18c
19c   author: Frederic Hourdin 15 / 10 /93
20c   -------
21c
22c   arguments:
23c   ----------
24c
25c   input:
26c   ------
27c
28c    ngrid                 Size of the horizontal grid.
29c                          All internal loops are performed on that grid.
30c    nlayer                Number of vertical layers.
31c    pdayref               Day of reference for the simulation
32c    firstcall             True at the first call
33c    lastcall              True at the last call
34c    pday                  Number of days counted from the North. Spring
35c                          equinoxe.
36c
37c=======================================================================
38c
39c-----------------------------------------------------------------------
40c   declarations:
41c   -------------
42 
43#include "dimensions.h"
44#include "dimphy.h"
45
46      REAL prad,pg,pr,pcpp,punjours
47 
48      INTEGER ngrid,nlayer
49      REAL plat(ngrid),plon(ngrid),parea(klon)
50      INTEGER pdayref
51 
52      REAL ptimestep
53 
54      IF (nlayer.NE.klev) THEN
55         PRINT*,'STOP in inifis'
56         PRINT*,'Probleme de dimensions :'
57         PRINT*,'nlayer     = ',nlayer
58         PRINT*,'klev   = ',klev
59         STOP
60      ENDIF
61
62      IF (ngrid.NE.klon) THEN
63         PRINT*,'STOP in inifis'
64         PRINT*,'Probleme de dimensions :'
65         PRINT*,'ngrid     = ',ngrid
66         PRINT*,'klon   = ',klon
67         STOP
68      ENDIF
69
70      RETURN
719999  STOP'Cette version demande les fichier rnatur.dat et surf.def'
72      END
Note: See TracBrowser for help on using the repository browser.