/[lmdze]/trunk/libf/phylmd/iniphysiq.f
ViewVC logotype

Annotation of /trunk/libf/phylmd/iniphysiq.f

Parent Directory Parent Directory | Revision Log Revision Log

Revision 15 - (hide annotations)
Fri Aug 1 15:24:12 2008 UTC (15 years, 10 months ago) by guez
File size: 2074 byte(s) 
-- Minor modification of input/output:

Added variable "Sigma_O3_Royer" to "histday.nc". "ecrit_day" is not
modified in "physiq". Removed variables "pyu1", "pyv1", "ftsol1",
"ftsol2", "ftsol3", "ftsol4", "psrf1", "psrf2", "psrf3", "psrf4"
"mfu", "mfd", "en_u", "en_d", "de_d", "de_u", "coefh" from
"histrac.nc".

Variable "raz_date" of module "conf_gcm_m" has logical type instead of
integer type.

-- Should not change any result at run time:

Modified calls to "IOIPSL_Lionel" procedures because the interfaces of
these procedures have been simplified.

Changed name of variable in module "start_init_orog_m": "masque" to
"mask".

Created a module containing procedure "phyredem".

Removed arguments "punjours", "pdayref" and "ptimestep" of procedure
"iniphysiq".

Renamed procedure "gr_phy_write" to "gr_phy_write_2d". Created
procedure "gr_phy_write_3d".

Removed procedures "ini_undefstd", "moy_undefSTD", "calcul_STDlev",
"calcul_divers".
1 guez 3 !
2     ! $Header: /home/cvsroot/LMDZ4/libf/phylmd/iniphysiq.F,v 1.1.1.1 2004/05/19 12:53:08 lmdzadmin Exp $
3     !
4     c
5     c
6 guez 15 SUBROUTINE iniphysiq(ngrid,nlayer, plat,plon,parea,pcu,pcv,
7 guez 3 $ prad,pg,pr,pcpp)
8     use dimens_m
9     use dimphy
10     use comgeomphy
11     use suphec_m, only: suphec
12    
13     IMPLICIT NONE
14     c
15     c=======================================================================
16     c
17     c subject:
18     c --------
19     c
20     c Initialisation for the physical parametrisations of the LMD
21     c martian atmospheric general circulation modele.
22     c
23     c author: Frederic Hourdin 15 / 10 /93
24     c -------
25     c
26     c arguments:
27     c ----------
28     c
29     c input:
30     c ------
31     c
32     c ngrid Size of the horizontal grid.
33     c All internal loops are performed on that grid.
34     c nlayer Number of vertical layers.
35     c pdayref Day of reference for the simulation
36     c firstcall True at the first call
37     c lastcall True at the last call
38     c pday Number of days counted from the North. Spring
39     c equinoxe.
40     c
41     c=======================================================================
42     c
43     c-----------------------------------------------------------------------
44     c declarations:
45     c -------------
46    
47    
48 guez 15 REAL prad,pg,pr,pcpp
49 guez 3
50     INTEGER ngrid,nlayer
51     REAL plat(ngrid),plon(ngrid),parea(klon),pcu(klon),pcv(klon)
52    
53     IF (nlayer.NE.klev) THEN
54     PRINT*,'STOP in inifis'
55     PRINT*,'Probleme de dimensions :'
56     PRINT*,'nlayer = ',nlayer
57     PRINT*,'klev = ',klev
58     STOP
59     ENDIF
60    
61     IF (ngrid.NE.klon) THEN
62     PRINT*,'STOP in inifis'
63     PRINT*,'Probleme de dimensions :'
64     PRINT*,'ngrid = ',ngrid
65     PRINT*,'klon = ',klon
66     STOP
67     ENDIF
68    
69     airephy=parea
70     cuphy=pcu
71     cvphy=pcv
72     rlond = plon
73     rlatd = plat
74    
75     call suphec
76     print*,'ATTENTION !!! TRAVAILLER SUR INIPHYSIQ'
77     print*,'CONTROLE DES LATITUDES, LONGITUDES, PARAMETRES ...'
78    
79     END
  ViewVC Help
Powered by ViewVC 1.1.21