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