11 |
! Appels successifs des routines histwrite |
! Appels successifs des routines histwrite |
12 |
! L. Fairhead, LMD, 03/99 |
! L. Fairhead, LMD, 03/99 |
13 |
|
|
14 |
use dimens_m, only: nqmx, llm, jjm |
use dimens_m, only: llm |
15 |
use com_io_dyn, only: histid, histvid, histuid |
use com_io_dyn, only: histid, histvid, histuid |
16 |
use paramet_m, only: ip1jm, ip1jmp1, iip1, jjp1 |
use paramet_m, only: ip1jm, ip1jmp1 |
17 |
use temps, only: itau_dyn |
use temps, only: itau_dyn |
18 |
use histwrite_m, only: histwrite |
use histwrite_m, only: histwrite |
19 |
use histsync_m, only: histsync |
use histsync_m, only: histsync |
38 |
! This routine needs IOIPSL to work |
! This routine needs IOIPSL to work |
39 |
! Variables locales |
! Variables locales |
40 |
|
|
|
integer ndexu(ip1jmp1*llm), ndexv(ip1jm*llm), ndex2d(ip1jmp1) |
|
41 |
logical ok_sync |
logical ok_sync |
42 |
integer itau_w |
integer itau_w |
43 |
REAL vnat(ip1jm, llm), unat(ip1jmp1, llm) |
REAL vnat(ip1jm, llm), unat(ip1jmp1, llm) |
46 |
|
|
47 |
! Initialisations |
! Initialisations |
48 |
|
|
|
ndexu = 0 |
|
|
ndexv = 0 |
|
|
ndex2d = 0 |
|
49 |
ok_sync =.TRUE. |
ok_sync =.TRUE. |
50 |
itau_w = itau_dyn + time |
itau_w = itau_dyn + time |
51 |
! Passage aux composantes naturelles du vent |
! Passage aux composantes naturelles du vent |