source: LMDZ5/trunk/libf/phylmd/inifis.F90 @ 2210

Last change on this file since 2210 was 1992, checked in by lguez, 11 years ago

Converted to free source form files in libf/phylmd which were still in
fixed source form. The conversion was done using the polish mode of
the NAG Fortran Compiler.

In addition to converting to free source form, the processing of the
files also:

-- indented the code (including comments);

-- set Fortran keywords to uppercase, and set all other identifiers
to lower case;

-- added qualifiers to end statements (for example "end subroutine
conflx", instead of "end");

-- changed the terminating statements of all DO loops so that each
loop ends with an ENDDO statement (instead of a labeled continue).

-- replaced #include by include.
  • 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.0 KB
RevLine 
[1992]1
[1403]2! $Id: inifis.F90 1992 2014-03-05 13:19:12Z fhourdin $
[524]3
[1992]4SUBROUTINE inifis(ngrid, nlayer, punjours, pdayref, ptimestep, plat, plon, &
5    parea, prad, pg, pr, pcpp)
6  USE dimphy
7  IMPLICIT NONE
[1403]8
[1992]9  ! =======================================================================
[524]10
[1992]11  ! subject:
12  ! --------
[524]13
[1992]14  ! Initialisation for the physical parametrisations of the LMD
15  ! martian atmospheric general circulation modele.
[1403]16
[1992]17  ! author: Frederic Hourdin 15 / 10 /93
18  ! -------
19
20  ! arguments:
21  ! ----------
22
23  ! input:
24  ! ------
25
26  ! ngrid                 Size of the horizontal grid.
27  ! All internal loops are performed on that grid.
28  ! nlayer                Number of vertical layers.
29  ! pdayref               Day of reference for the simulation
30  ! firstcall             True at the first call
31  ! lastcall              True at the last call
32  ! pday                  Number of days counted from the North. Spring
33  ! equinoxe.
34
35  ! =======================================================================
36
37  ! -----------------------------------------------------------------------
38  ! declarations:
39  ! -------------
40
41  ! ym#include "dimensions.h"
42  ! ym#include "dimphy.h"
43
44  include 'iniprint.h'
45  REAL prad, pg, pr, pcpp, punjours
46
47  INTEGER ngrid, nlayer
48  REAL plat(ngrid), plon(ngrid), parea(klon)
49  INTEGER pdayref
50
51  REAL ptimestep
52  CHARACTER (LEN=20) :: modname = 'inifis'
53  CHARACTER (LEN=80) :: abort_message
54
55
56  IF (nlayer/=klev) THEN
57    PRINT *, 'STOP in inifis'
58    PRINT *, 'Probleme de dimensions :'
59    PRINT *, 'nlayer     = ', nlayer
60    PRINT *, 'klev   = ', klev
61    abort_message = ''
62    CALL abort_gcm(modname, abort_message, 1)
63  END IF
64
65  IF (ngrid/=klon) THEN
66    PRINT *, 'STOP in inifis'
67    PRINT *, 'Probleme de dimensions :'
68    PRINT *, 'ngrid     = ', ngrid
69    PRINT *, 'klon   = ', klon
70    abort_message = ''
71    CALL abort_gcm(modname, abort_message, 1)
72  END IF
73
74  RETURN
75  abort_message = 'Cette version demande les fichier rnatur.dat &
76    &                                                         &
77    &        et surf.def'
78  CALL abort_gcm(modname, abort_message, 1)
79
80END SUBROUTINE inifis
Note: See TracBrowser for help on using the repository browser.