Ignore:
Timestamp:
2018-11-12T16:20:57+01:00 (23 months ago)
Author:
smasson
Message:

dev_r10164_HPC09_ESIWACE_PREP_MERGE: action 2a: add report calls of mppmin/max/sum, see #2133

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2018/dev_r10164_HPC09_ESIWACE_PREP_MERGE/src/TOP/trcnam.F90

    r10068 r10297  
    2323   USE trdtrc_oce  ! 
    2424   USE iom         ! I/O manager 
     25   USE lib_mpp, ONLY: ncom_dttrc 
    2526 
    2627   IMPLICIT NONE 
     
    7677      ENDIF 
    7778      ! 
    78       rdttrc = rdt * FLOAT( nn_dttrc )          ! passive tracer time-step 
     79      rdttrc = rdt * FLOAT( nn_dttrc )          ! passive tracer time-step       
    7980      !  
    8081      IF(lwp) THEN                              ! control print 
     
    128129      ENDIF 
    129130      ! 
    130     END SUBROUTINE trc_nam_run 
     131#if defined key_mpp_mpi 
     132      ncom_dttrc = nn_dttrc    ! make nn_fsbc available for lib_mpp 
     133#endif 
     134      ! 
     135   END SUBROUTINE trc_nam_run 
    131136 
    132137 
Note: See TracChangeset for help on using the changeset viewer.