source:
trunk/NEMO/TOP_SRC/SMS/h3cwin.F
@
186
Last change on this file since 186 was 186, checked in by opalod, 19 years ago | |
---|---|
|
|
File size: 1.1 KB |
Rev | Line | |
---|---|---|
[186] | 1 | C $Id$ |
2 | SUBROUTINE h3cwin | |
3 | #if defined key_passivetrc | |
4 | c ------------------------------------------------------------------- | |
5 | c | |
6 | c sous programme de calcul du terme xKw du coefficient d'echange de gaz | |
7 | c si c est le premier passage : lecture du fichier | |
8 | c | |
9 | c si pas de temps kt | |
10 | c | |
11 | c interpolation des champs mensuels | |
12 | C | |
13 | C xkw=Xconv*a*(u^2+v) en m/s | |
14 | c references: guidelines ocmip | |
15 | c | |
16 | c ------------------------------------------------------------------- | |
17 | c | |
18 | CDIR$ NOLIST | |
19 | USE oce_trc | |
20 | USE sms | |
21 | IMPLICIT NONE | |
22 | CDIR$ LIST | |
23 | # if defined key_trc_hamocc3 | |
24 | INTEGER i, j, l, mo,nvxk | |
25 | ||
26 | nvxk = 96 | |
27 | WRITE(numout,*) 'coefficients echange de gaz: initialisation' | |
28 | WRITE(numout,*) | |
29 | WRITE(numout,1111) nvxk | |
30 | 1111 FORMAT ('unite logique pour xkw :nvxk :',i7) | |
31 | WRITE(numout,'('' ---------------------------------- '')') | |
32 | c | |
33 | C Lecture du fichier pression atmospherique | |
34 | C-------------------------------- | |
35 | DO mo=1,12 | |
36 | # if defined key_vpp | |
37 | CALL read2s(nvxk,wsmo(1,1,mo),jpi,jpj) | |
38 | # else | |
39 | READ (nvxk) wsmo(:,:,mo) | |
40 | # endif | |
41 | END DO | |
42 | # else | |
43 | C | |
44 | C no wind reading | |
45 | C | |
46 | # endif | |
47 | #endif | |
48 | RETURN | |
49 | END | |
50 |
Note: See TracBrowser
for help on using the repository browser.