libf/phylmd/iniphysiq.f

!
! $Header: /home/cvsroot/LMDZ4/libf/phylmd/iniphysiq.F,v 1.1.1.1 2004/05/19 12:53:08 lmdzadmin Exp $
!
c
c
      SUBROUTINE iniphysiq(ngrid,nlayer, plat,plon,parea,pcu,pcv,
     $           prad,pg,pr,pcpp)
      use dimens_m
      use dimphy
      use comgeomphy
      use suphec_m, only: suphec

      IMPLICIT NONE
c
c=======================================================================
c
c   subject:
c   --------
c
c   Initialisation for the physical parametrisations of the LMD 
c   martian atmospheric general circulation modele.
c
c   author: Frederic Hourdin 15 / 10 /93
c   -------
c
c   arguments:
c   ----------
c
c   input:
c   ------
c
c    ngrid                 Size of the horizontal grid.
c                          All internal loops are performed on that grid.
c    nlayer                Number of vertical layers.
c    pdayref               Day of reference for the simulation
c    firstcall             True at the first call
c    lastcall              True at the last call
c    pday                  Number of days counted from the North. Spring
c                          equinoxe.
c
c=======================================================================
c
c-----------------------------------------------------------------------
c   declarations:
c   -------------
 

      REAL prad,pg,pr,pcpp
 
      INTEGER ngrid,nlayer
      REAL plat(ngrid),plon(ngrid),parea(klon),pcu(klon),pcv(klon)
 
      IF (nlayer.NE.klev) THEN
         PRINT*,'STOP in inifis'
         PRINT*,'Probleme de dimensions :'
         PRINT*,'nlayer     = ',nlayer
         PRINT*,'klev   = ',klev
         STOP
      ENDIF

      IF (ngrid.NE.klon) THEN
         PRINT*,'STOP in inifis'
         PRINT*,'Probleme de dimensions :'
         PRINT*,'ngrid     = ',ngrid
         PRINT*,'klon   = ',klon
         STOP
      ENDIF

      airephy=parea
      cuphy=pcu
      cvphy=pcv
      rlond = plon
      rlatd = plat

      call suphec
      print*,'ATTENTION !!! TRAVAILLER SUR INIPHYSIQ'
      print*,'CONTROLE DES LATITUDES, LONGITUDES, PARAMETRES ...'

      END
1	!
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	SUBROUTINE iniphysiq(ngrid,nlayer, plat,plon,parea,pcu,pcv,
7	$ 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	REAL prad,pg,pr,pcpp
49
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