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 |
!----------------------------------------------------- |
!----------------------------------------------------- |
514 |
ENDDO |
ENDDO |
515 |
|
|
516 |
CALL histwrite(nid_tra, "pplay", itau_w, gr_phy_write_3d(pplay)) |
CALL histwrite(nid_tra, "pplay", itau_w, gr_phy_write_3d(pplay)) |
517 |
CALL histwrite(nid_tra, "t", itau_w, gr_phy_write_3d(t_seri)) |
CALL histwrite(nid_tra, "T", itau_w, gr_phy_write_3d(t_seri)) |
518 |
|
|
519 |
if (ok_sync) then |
if (ok_sync) then |
520 |
call histsync(nid_tra) |
call histsync(nid_tra) |