| 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 |
| 476 |
use dimphy, only: klon |
use dimphy, only: klon |
| 477 |
use grid_change, only: gr_phy_write_2d, gr_phy_write_3d |
use grid_change, only: gr_phy_write_2d |
| 478 |
|
use gr_phy_write_3d_m, only: gr_phy_write_3d |
| 479 |
|
|
| 480 |
logical, intent(in):: lessivage |
logical, intent(in):: lessivage |
| 481 |
|
|
| 488 |
! Variables local to the procedure: |
! Variables local to the procedure: |
| 489 |
integer it |
integer it |
| 490 |
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) |
|
| 491 |
logical, parameter:: ok_sync = .true. |
logical, parameter:: ok_sync = .true. |
| 492 |
|
|
| 493 |
!----------------------------------------------------- |
!----------------------------------------------------- |
Parent Directory
| 
Revision Log
| 
Patch