source: LMDZ4/branches/V3_test/libf/phylmd/inifis.F @ 1120

Last change on this file since 1120 was 704, checked in by Laurent Fairhead, 18 years ago

Inclusion des modifs de Y. Meurdesoif pour la version V3
LF

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