Context Navigation

iniconst.F @ 3837

Last change on this file since 3837 was 1380, checked in by Ehouarn Millour, 15 years ago

Minor bug fix: Enable the possiblity to start a Shallow Water run from a start.nc file.

Plus some cleanup in outputs messages (in dyetat0,dynredem and iniconst).

File size: 1.1 KB

Line
1	!
2	! $Id: iniconst.F 1380 2010-05-06 12:24:59Z musat $
3	!
4	SUBROUTINE iniconst
5
6	USE control_mod
7
8	IMPLICIT NONE
9	c
10	c P. Le Van
11	c
12	c-----------------------------------------------------------------------
13	c Declarations:
14	c -------------
15	c
16	#include "dimensions.h"
17	#include "paramet.h"
18	#include "comconst.h"
19	#include "temps.h"
20	#include "comvert.h"
21	#include "iniprint.h"
22
23
24	c
25	c
26	c
27	c-----------------------------------------------------------------------
28	c dimension des boucles:
29	c ----------------------
30
31	im = iim
32	jm = jjm
33	lllm = llm
34	imp1 = iim
35	jmp1 = jjm + 1
36	lllmm1 = llm - 1
37	lllmp1 = llm + 1
38
39	c-----------------------------------------------------------------------
40
41	dtdiss = idissip * dtvr
42	dtphys = iphysiq * dtvr
43	unsim = 1./iim
44	pi = 2.*ASIN( 1. )
45
46	c-----------------------------------------------------------------------
47	c
48
49	r = cpp * kappa
50
51	write(lunout,*)'iniconst: R CP Kappa ', r , cpp, kappa
52	c
53	c-----------------------------------------------------------------------
54
55	CALL disvert(pa,preff,ap,bp,dpres,presnivs,nivsigs,nivsig)
56	c
57	c
58	RETURN
59	END

Note: See TracBrowser for help on using the repository browser.