468 |
! From phylmd/write_histrac.h, version 1.9 2006/02/21 08:08:30 |
! From phylmd/write_histrac.h, version 1.9 2006/02/21 08:08:30 |
469 |
|
|
470 |
use dimens_m, only: iim, jjm, llm |
use dimens_m, only: iim, jjm, llm |
471 |
use ioipsl, only: histwrite, histsync |
use histcom, only: histsync |
472 |
|
use histwrite_m, only: histwrite |
473 |
use temps, only: itau_phy |
use temps, only: itau_phy |
474 |
use iniadvtrac_m, only: tnom |
use iniadvtrac_m, only: tnom |
475 |
use comgeomphy, only: airephy |
use comgeomphy, only: airephy |
487 |
! Variables local to the procedure: |
! Variables local to the procedure: |
488 |
integer it |
integer it |
489 |
integer itau_w ! pas de temps ecriture |
integer itau_w ! pas de temps ecriture |
|
REAL zx_tmp_2d(iim, jjm+1), zx_tmp_3d(iim, jjm+1, llm) |
|
490 |
logical, parameter:: ok_sync = .true. |
logical, parameter:: ok_sync = .true. |
491 |
|
|
492 |
!----------------------------------------------------- |
!----------------------------------------------------- |