Ignore:
Timestamp:
2018-12-19T22:54:16+01:00 (2 years ago)
Author:
smasson
Message:

trunk: merge back dev_r10164_HPC09_ESIWACE_PREP_MERGE@10424 into the trunk

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/TOP/trcrst.F90

    r10222 r10425  
    2323   USE iom 
    2424   USE daymod 
     25   USE lib_mpp 
    2526    
    2627   IMPLICIT NONE 
     
    8788         IF(lwp) WRITE(numout,*) & 
    8889             '             open trc restart.output NetCDF file: ',TRIM(clpath)//clname 
    89          CALL iom_open( TRIM(clpath)//TRIM(clname), numrtw, ldwrt = .TRUE., kiolib = jprstlib ) 
     90         CALL iom_open( TRIM(clpath)//TRIM(clname), numrtw, ldwrt = .TRUE. ) 
    9091         lrst_trc = .TRUE. 
    9192      ENDIF 
     
    116117      END DO 
    117118      ! 
     119      CALL iom_delay_rst( 'READ', 'TOP', numrtr )   ! read only TOP delayed global communication variables 
     120       
    118121   END SUBROUTINE trc_rst_read 
    119122 
     
    127130      !! 
    128131      INTEGER  :: jn 
    129       REAL(wp) :: zarak0 
    130132      !!---------------------------------------------------------------------- 
    131133      ! 
     
    141143      END DO 
    142144      ! 
     145      CALL iom_delay_rst( 'WRITE', 'TOP', numrtw )   ! save only TOP delayed global communication variables 
     146     
    143147      IF( kt == nitrst ) THEN 
    144148          CALL trc_rst_stat            ! statistics 
     
    184188      CHARACTER(len=*), INTENT(in) ::   cdrw       ! "READ"/"WRITE" flag 
    185189      ! 
    186       INTEGER  ::  jlibalt = jprstlib 
    187190      LOGICAL  ::  llok 
    188191      REAL(wp) ::  zrdttrc1, zkt, zndastp, zdayfrac, ksecs, ktime 
     
    199202 
    200203         IF( ln_rsttr ) THEN 
    201             CALL iom_open( TRIM(cn_trcrst_indir)//'/'//cn_trcrst_in, numrtr, kiolib = jlibalt ) 
     204            CALL iom_open( TRIM(cn_trcrst_indir)//'/'//cn_trcrst_in, numrtr ) 
    202205            CALL iom_get ( numrtr, 'kt', zkt )   ! last time-step of previous run 
    203206 
     
    316319      ! 
    317320      DO jn = 1, jptra 
    318          ztraf = glob_sum( trn(:,:,:,jn) * zvol(:,:,:) ) 
     321         ztraf = glob_sum( 'trcrst', trn(:,:,:,jn) * zvol(:,:,:) ) 
    319322         zmin  = MINVAL( trn(:,:,:,jn), mask= ((tmask*SPREAD(tmask_i,DIM=3,NCOPIES=jpk).NE.0.)) ) 
    320323         zmax  = MAXVAL( trn(:,:,:,jn), mask= ((tmask*SPREAD(tmask_i,DIM=3,NCOPIES=jpk).NE.0.)) ) 
    321324         IF( lk_mpp ) THEN 
    322             CALL mpp_min( zmin )      ! min over the global domain 
    323             CALL mpp_max( zmax )      ! max over the global domain 
     325            CALL mpp_min( 'trcrst', zmin )      ! min over the global domain 
     326            CALL mpp_max( 'trcrst', zmax )      ! max over the global domain 
    324327         END IF 
    325328         zmean  = ztraf / areatot 
Note: See TracChangeset for help on using the changeset viewer.