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.
Changeset 10288 for NEMO/branches/2018/dev_r9866_HPC_03_globcom/src/OCE/DIA – NEMO

Ignore:
Timestamp:
2018-11-07T18:25:49+01:00 (6 years ago)
Author:
francesca
Message:

reduce global communications, see #2010

Location:
NEMO/branches/2018/dev_r9866_HPC_03_globcom/src/OCE/DIA
Files:
11 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2018/dev_r9866_HPC_03_globcom/src/OCE/DIA/dia25h.F90

    • Property svn:keywords set to Id
    r9598 r10288  
    3333   !!---------------------------------------------------------------------- 
    3434   !! NEMO/OCE 4.0 , NEMO Consortium (2018) 
    35    !! $Id:$ 
    36    !! Software governed by the CeCILL licence     (./LICENSE) 
     35   !! $Id$ 
     36   !! Software governed by the CeCILL license (see ./LICENSE) 
    3737   !!---------------------------------------------------------------------- 
    3838CONTAINS 
    … …  
    139139      ! ----------------- 
    140140      ! Define frequency of summing to create 25 h mean 
    141       IF( MOD( 3600,INT(rdt) ) == 0 ) THEN 
    142          i_steps = 3600/INT(rdt) 
     141      IF( MOD( 3600,NINT(rdt) ) == 0 ) THEN 
     142         i_steps = 3600/NINT(rdt) 
    143143      ELSE 
    144144         CALL ctl_stop('STOP', 'dia_wri_tide: timestep must give MOD(3600,rdt) = 0 otherwise no hourly values are possible') 

  • NEMO/branches/2018/dev_r9866_HPC_03_globcom/src/OCE/DIA/diaar5.F90

    r9598 r10288  
    4343   !! NEMO/OCE 4.0 , NEMO Consortium (2018) 
    4444   !! $Id$ 
    45    !! Software governed by the CeCILL licence     (./LICENSE) 
     45   !! Software governed by the CeCILL license (see ./LICENSE) 
    4646   !!---------------------------------------------------------------------- 
    4747CONTAINS 

  • NEMO/branches/2018/dev_r9866_HPC_03_globcom/src/OCE/DIA/diacfl.F90

    r9598 r10288  
    3939#  include "vectopt_loop_substitute.h90" 
    4040   !!---------------------------------------------------------------------- 
    41    !! NEMO/OCE 4.0 , NEMO Consortium (2018)  
     41   !! NEMO/OCE 4.0 , NEMO Consortium (2018) 
    4242   !! $Id$ 
    43    !! Software governed by the CeCILL licence (modipsl/doc/NEMO_CeCILL.txt) 
     43   !! Software governed by the CeCILL license (see ./LICENSE) 
    4444   !!---------------------------------------------------------------------- 
    4545CONTAINS 

  • NEMO/branches/2018/dev_r9866_HPC_03_globcom/src/OCE/DIA/diadct.F90

    r9598 r10288  
    100100   !! NEMO/OCE 4.0 , NEMO Consortium (2018) 
    101101   !! $Id$ 
    102    !! Software governed by the CeCILL licence     (./LICENSE) 
     102   !! Software governed by the CeCILL license (see ./LICENSE) 
    103103   !!---------------------------------------------------------------------- 
    104104CONTAINS 
    … …  
    12491249 
    12501250   SUBROUTINE dia_dct_init          ! Dummy routine 
    1251       WRITE(*,*) 'dia_dct_init: You should not have seen this print! error?', kt 
     1251      IMPLICIT NONE 
     1252      WRITE(*,*) 'dia_dct_init: You should not have seen this print! error?' 
    12521253   END SUBROUTINE dia_dct_init 
    12531254 
    12541255   SUBROUTINE dia_dct( kt )         ! Dummy routine 
     1256      IMPLICIT NONE 
    12551257      INTEGER, INTENT( in ) :: kt   ! ocean time-step index 
    12561258      WRITE(*,*) 'dia_dct: You should not have seen this print! error?', kt 

  • NEMO/branches/2018/dev_r9866_HPC_03_globcom/src/OCE/DIA/diaharm.F90

    r9598 r10288  
    5757   !! NEMO/OCE 4.0 , NEMO Consortium (2018) 
    5858   !! $Id$ 
    59    !! Software governed by the CeCILL licence     (./LICENSE) 
     59   !! Software governed by the CeCILL license (see ./LICENSE) 
    6060   !!---------------------------------------------------------------------- 
    6161CONTAINS 

  • NEMO/branches/2018/dev_r9866_HPC_03_globcom/src/OCE/DIA/diahsb.F90

    r9598 r10288  
    5454   !! NEMO/OCE 4.0 , NEMO Consortium (2018) 
    5555   !! $Id$ 
    56    !! Software governed by the CeCILL licence     (./LICENSE) 
     56   !! Software governed by the CeCILL license (see ./LICENSE) 
    5757   !!---------------------------------------------------------------------- 
    5858CONTAINS 

  • NEMO/branches/2018/dev_r9866_HPC_03_globcom/src/OCE/DIA/diahth.F90

    r9598 r10288  
    4343   !! NEMO/OCE 4.0 , NEMO Consortium (2018) 
    4444   !! $Id$  
    45    !! Software governed by the CeCILL licence     (./LICENSE) 
     45   !! Software governed by the CeCILL license (see ./LICENSE) 
    4646   !!---------------------------------------------------------------------- 
    4747CONTAINS 
    … …  
    343343CONTAINS 
    344344   SUBROUTINE dia_hth( kt )         ! Empty routine 
     345      IMPLICIT NONE 
     346      INTEGER, INTENT( in ) :: kt 
    345347      WRITE(*,*) 'dia_hth: You should not have seen this print! error?', kt 
    346348   END SUBROUTINE dia_hth 

  • NEMO/branches/2018/dev_r9866_HPC_03_globcom/src/OCE/DIA/dianam.F90

    r9598 r10288  
    2525   !! NEMO/OCE 4.0 , NEMO Consortium (2018) 
    2626   !! $Id$  
    27    !! Software governed by the CeCILL licence (./LICENSE) 
     27   !! Software governed by the CeCILL license (see ./LICENSE) 
    2828   !!---------------------------------------------------------------------- 
    2929 

  • NEMO/branches/2018/dev_r9866_HPC_03_globcom/src/OCE/DIA/diaptr.F90

    r9598 r10288  
    6767   !! NEMO/OCE 4.0 , NEMO Consortium (2018) 
    6868   !! $Id$  
    69    !! Software governed by the CeCILL licence     (./LICENSE) 
     69   !! Software governed by the CeCILL license (see ./LICENSE) 
    7070   !!---------------------------------------------------------------------- 
    7171CONTAINS 

  • NEMO/branches/2018/dev_r9866_HPC_03_globcom/src/OCE/DIA/diatmb.F90

    • Property svn:keywords set to Id
    r9598 r10288  
    2222   !!---------------------------------------------------------------------- 
    2323   !! NEMO/OCE 4.0 , NEMO Consortium (2018) 
    24    !! $Id:$ 
    25    !! Software governed by the CeCILL licence     (./LICENSE) 
     24   !! $Id$ 
     25   !! Software governed by the CeCILL license (see ./LICENSE) 
    2626   !!---------------------------------------------------------------------- 
    2727CONTAINS 

  • NEMO/branches/2018/dev_r9866_HPC_03_globcom/src/OCE/DIA/diawri.F90

    r9652 r10288  
    8181   !! NEMO/OCE 4.0 , NEMO Consortium (2018) 
    8282   !! $Id$ 
    83    !! Software governed by the CeCILL licence     (./LICENSE) 
     83   !! Software governed by the CeCILL license (see ./LICENSE) 
    8484   !!---------------------------------------------------------------------- 
    8585CONTAINS 
    … …  
    125125      ! Output of initial vertical scale factor 
    126126      CALL iom_put("e3t_0", e3t_0(:,:,:) ) 
    127       CALL iom_put("e3u_0", e3t_0(:,:,:) ) 
    128       CALL iom_put("e3v_0", e3t_0(:,:,:) ) 
     127      CALL iom_put("e3u_0", e3u_0(:,:,:) ) 
     128      CALL iom_put("e3v_0", e3v_0(:,:,:) ) 
    129129      ! 
    130130      CALL iom_put( "e3t" , e3t_n(:,:,:) ) 
Note: See TracChangeset for help on using the changeset viewer.