source: LMDZ5/trunk/libf/phylmd/inifis.F @ 1907

Last change on this file since 1907 was 1907, checked in by lguez, 10 years ago

Added a copyright property to every file of the distribution, except
for the fcm files (which have their own copyright). Use svn propget on
a file to see the copyright. For instance:

$ svn propget copyright libf/phylmd/physiq.F90
Name of program: LMDZ
Creation date: 1984
Version: LMDZ5
License: CeCILL version 2
Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
See the license file in the root directory

Also added the files defining the CeCILL version 2 license, in French
and English, at the top of the LMDZ tree.
  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 2.2 KB
Line 
1!
2! $Id: inifis.F 1907 2013-11-26 13:10:46Z lguez $
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      INCLUDE 'iniprint.h'
48      REAL prad,pg,pr,pcpp,punjours
49 
50      INTEGER ngrid,nlayer
51      REAL plat(ngrid),plon(ngrid),parea(klon)
52      INTEGER pdayref
53 
54      REAL ptimestep
55      CHARACTER (LEN=20) :: modname='inifis'
56      CHARACTER (LEN=80) :: abort_message
57
58 
59      IF (nlayer.NE.klev) THEN
60         PRINT*,'STOP in inifis'
61         PRINT*,'Probleme de dimensions :'
62         PRINT*,'nlayer     = ',nlayer
63         PRINT*,'klev   = ',klev
64         abort_message = ''
65         CALL abort_gcm (modname,abort_message,1)
66      ENDIF
67
68      IF (ngrid.NE.klon) THEN
69         PRINT*,'STOP in inifis'
70         PRINT*,'Probleme de dimensions :'
71         PRINT*,'ngrid     = ',ngrid
72         PRINT*,'klon   = ',klon
73         abort_message = ''
74         CALL abort_gcm (modname,abort_message,1)
75      ENDIF
76
77      RETURN
789999  continue
79      abort_message = 'Cette version demande les fichier rnatur.dat
80     & et surf.def'
81      CALL abort_gcm (modname,abort_message,1)
82
83      END
Note: See TracBrowser for help on using the repository browser.