4 | | !!---------------------------------------------------------------------- |
5 | | !! INTERFACE iom_put |
6 | | !!---------------------------------------------------------------------- |
7 | | SUBROUTINE iom_p0d_sp( cdname, pfield0d ) |
8 | | CHARACTER(LEN=*), INTENT(in) :: cdname |
9 | | REAL(sp) , INTENT(in) :: pfield0d |
10 | | + CALL timing_start('iom_put') |
11 | | !! REAL(wp) , DIMENSION(jpi,jpj) :: zz ! masson |
12 | | #if defined key_iomput |
13 | | !!clem zz(:,:)=pfield0d |
14 | | !!clem CALL xios_send_field(cdname, zz) |
15 | | CALL xios_send_field(cdname, (/pfield0d/)) |
16 | | #else |
17 | | IF( .FALSE. ) WRITE(numout,*) cdname, pfield0d ! useless test to avoid compilation warnings |
18 | | #endif |
19 | | + CALL timing_stop('iom_put') |
20 | | END SUBROUTINE iom_p0d_sp |
| 4 | --- before |
| 5 | +++ after |
| 6 | @@ -1,15 +1,17 @@ |
| 7 | !!---------------------------------------------------------------------- |
| 8 | !! INTERFACE iom_put |
| 9 | !!---------------------------------------------------------------------- |
| 10 | SUBROUTINE iom_p0d_sp( cdname, pfield0d ) |
| 11 | CHARACTER(LEN=*), INTENT(in) :: cdname |
| 12 | REAL(sp) , INTENT(in) :: pfield0d |
| 13 | + CALL timing_start('iom_put') |
| 14 | !! REAL(wp) , DIMENSION(jpi,jpj) :: zz ! masson |
| 15 | #if defined key_iomput |
| 16 | !!clem zz(:,:)=pfield0d |
| 17 | !!clem CALL xios_send_field(cdname, zz) |
| 18 | CALL xios_send_field(cdname, (/pfield0d/)) |
| 19 | #else |
| 20 | IF( .FALSE. ) WRITE(numout,*) cdname, pfield0d ! useless test to avoid compilation warnings |
| 21 | #endif |
| 22 | + CALL timing_stop('iom_put') |
| 23 | END SUBROUTINE iom_p0d_sp |