source: LMDZ4/trunk/libf/phylmd/inifis.F @ 5177

Last change on this file since 5177 was 1403, checked in by Laurent Fairhead, 14 years ago

Merged LMDZ4V5.0-dev branch changes r1292:r1399 to trunk.

Validation:
Validation consisted in compiling the HEAD revision of the trunk,
LMDZ4V5.0-dev branch and the merged sources and running different
configurations on local and SX8 machines comparing results.

Local machine: bench configuration, 32x24x11, gfortran

  • IPSLCM5A configuration (comparison between trunk and merged sources):
    • numerical convergence on dynamical fields over 3 days
    • start files are equivalent (except for RN and PB fields)
    • daily history files equivalent
  • MH07 configuration, new physics package (comparison between LMDZ4V5.0-dev branch and merged sources):
    • numerical convergence on dynamical fields over 3 days
    • start files are equivalent (except for RN and PB fields)
    • daily history files equivalent

SX8 machine (brodie), 96x95x39 on 4 processors:

  • IPSLCM5A configuration:
    • start files are equivalent (except for RN and PB fields)
    • monthly history files equivalent
  • MH07 configuration:
    • start files are equivalent (except for RN and PB fields)
    • monthly history files equivalent

Changes to the makegcm and create_make_gcm scripts to take into account
main programs in F90 files

Fusion de la branche LMDZ4V5.0-dev (r1292:r1399) au tronc principal

Validation:
La validation a consisté à compiler la HEAD de le trunk et de la banche
LMDZ4V5.0-dev et les sources fusionnées et de faire tourner le modéle selon
différentes configurations en local et sur SX8 et de comparer les résultats

En local: 32x24x11, config bench/gfortran

  • pour une config IPSLCM5A (comparaison tronc/fusion):
    • convergence numérique sur les champs dynamiques après 3 jours
    • restart et restartphy égaux (à part sur RN et Pb)
    • fichiers histoire égaux
  • pour une config nlle physique (MH07) (comparaison LMDZ4v5.0-dev/fusion):
    • convergence numérique sur les champs dynamiques après 3 jours
    • restart et restartphy égaux
    • fichiers histoire équivalents

Sur brodie, 96x95x39 sur 4 proc:

  • pour une config IPSLCM5A:
    • restart et restartphy égaux (à part sur RN et PB)
    • pas de différence dans les fichiers histmth.nc
  • pour une config MH07
    • restart et restartphy égaux (à part sur RN et PB)
    • pas de différence dans les fichiers histmth.nc

Changement sur makegcm et create_make-gcm pour pouvoir prendre en compte des
programmes principaux en *F90
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 2.2 KB
RevLine 
[524]1!
[1403]2! $Id: inifis.F 1403 2010-07-01 09:02:53Z abarral $
[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
[1403]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
[1403]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
[1403]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
[1403]73         abort_message = ''
74         CALL abort_gcm (modname,abort_message,1)
[524]75      ENDIF
76
77      RETURN
[1403]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.