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 |
Line | |
---|---|
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.