source: LMDZ.3.3/trunk/libf/phylmd/inifis.F @ 2

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