486 |
! Variables local to the procedure: |
! Variables local to the procedure: |
487 |
integer it |
integer it |
488 |
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) |
|
489 |
logical, parameter:: ok_sync = .true. |
logical, parameter:: ok_sync = .true. |
490 |
|
|
491 |
!----------------------------------------------------- |
!----------------------------------------------------- |
512 |
ENDDO |
ENDDO |
513 |
|
|
514 |
CALL histwrite(nid_tra, "pplay", itau_w, gr_phy_write_3d(pplay)) |
CALL histwrite(nid_tra, "pplay", itau_w, gr_phy_write_3d(pplay)) |
515 |
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)) |
516 |
|
|
517 |
if (ok_sync) then |
if (ok_sync) then |
518 |
call histsync(nid_tra) |
call histsync(nid_tra) |