New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Ticket Comment Diff – NEMO

Changes between Version 1 and Version 2 of Ticket #2563, comment 18


Ignore:
Timestamp:
2020-11-06T11:49:30+01:00 (3 years ago)
Author:
nemo
Comment:

Legend:

Unmodified
Added
Removed
Modified

  • Ticket #2563, comment 18

    v1 v2  
    22 
    33{{{#!diff 
    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 
    2124}}}