source: LMDZ4/branches/LMDZ4V5.0-dev/libf/phylmd/inifis.F @ 3485

Last change on this file since 3485 was 1299, checked in by Laurent Fairhead, 15 years ago

Nettoyage general pour se rapprocher des normes et éviter des erreurs a la
compilation:

  • tous les FLOAT() sont remplacés par des REAL()
  • tous les STOP dans phylmd sont remplacés par des appels à abort_gcm
  • le common control défini dans le fichier control.h est remplacé par le module control_mod pour éviter des messages sur l'alignement des variables dans les déclarations
  • des $Header$ remplacés par des $Id$ pour svn

Quelques remplacements à faire ont pu m'échapper

General cleanup of the code to try and adhere to norms and to prevent some
compilation errors:

  • all FLOAT() instructions have been replaced by REAL() instructions
  • all STOP instructions in phylmd have been replaced by calls to abort_gcm
  • the common block control defined in the control.h file has been replaced by the control_mod to prevent compilation warnings on the alignement of declared variables
  • $Header$ replaced by $Id$ for svn

Some changes which should have been made might have escaped me
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 2.2 KB
RevLine 
[524]1!
[1299]2! $Id: inifis.F 1299 2010-01-20 14:27:21Z oboucher $
[524]3!
4      SUBROUTINE inifis(ngrid,nlayer,
5     $           punjours,
6     $           pdayref,ptimestep,
7     $           plat,plon,parea,
8     $           prad,pg,pr,pcpp)
[987]9      USE dimphy
[524]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 
[766]44cym#include "dimensions.h"
45cym#include "dimphy.h"
[524]46
[1299]47      INCLUDE 'iniprint.h'
[524]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
[1299]55      CHARACTER (LEN=20) :: modname='inifis'
56      CHARACTER (LEN=80) :: abort_message
57
[524]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
[1299]64         abort_message = ''
65         CALL abort_gcm (modname,abort_message,1)
[524]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
[1299]73         abort_message = ''
74         CALL abort_gcm (modname,abort_message,1)
[524]75      ENDIF
76
77      RETURN
[1299]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
[524]83      END
Note: See TracBrowser for help on using the repository browser.