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 10425 for NEMO/trunk/src/OCE/TRD – NEMO

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

trunk: merge back dev_r10164_HPC09_ESIWACE_PREP_MERGE@10424 into the trunk

Location:
NEMO/trunk/src/OCE/TRD
Files:
9 edited

Legend:

Unmodified
Added
Removed

  • NEMO/trunk/src/OCE/TRD/trddyn.F90

    r10068 r10425  
    129129                                 END DO 
    130130                              END DO 
    131                               CALL lbc_lnk_multi( z3dx, 'U', -1., z3dy, 'V', -1. ) 
     131                              CALL lbc_lnk_multi( 'trddyn', z3dx, 'U', -1., z3dy, 'V', -1. ) 
    132132                              CALL iom_put( "utrd_udx", z3dx  ) 
    133133                              CALL iom_put( "vtrd_vdy", z3dy  ) 
    … …  
    165165!                                 END DO 
    166166!                              END DO 
    167 !                              CALL lbc_lnk_multi( z3dx, 'U', -1., z3dy, 'V', -1. ) 
     167!                              CALL lbc_lnk_multi( 'trddyn', z3dx, 'U', -1., z3dy, 'V', -1. ) 
    168168!                              CALL iom_put( "utrd_bfr", z3dx ) 
    169169!                              CALL iom_put( "vtrd_bfr", z3dy ) 

  • NEMO/trunk/src/OCE/TRD/trdglo.F90

    r10068 r10425  
    249249         ! --------------------------------- 
    250250         IF( lk_mpp ) THEN 
    251             CALL mpp_sum( peke ) 
    252             CALL mpp_sum( umo , jptot_dyn ) 
    253             CALL mpp_sum( vmo , jptot_dyn ) 
    254             CALL mpp_sum( hke , jptot_dyn ) 
     251            CALL mpp_sum( 'trdglo', peke ) 
     252            CALL mpp_sum( 'trdglo', umo , jptot_dyn ) 
     253            CALL mpp_sum( 'trdglo', vmo , jptot_dyn ) 
     254            CALL mpp_sum( 'trdglo', hke , jptot_dyn ) 
    255255         ENDIF 
    256256 
    … …  
    392392         ! ------------------------------- 
    393393         IF( lk_mpp ) THEN 
    394             CALL mpp_sum( tmo, jptot_tra )    
    395             CALL mpp_sum( smo, jptot_tra ) 
    396             CALL mpp_sum( t2 , jptot_tra ) 
    397             CALL mpp_sum( s2 , jptot_tra ) 
     394            CALL mpp_sum( 'trdglo', tmo, jptot_tra )    
     395            CALL mpp_sum( 'trdglo', smo, jptot_tra ) 
     396            CALL mpp_sum( 'trdglo', t2 , jptot_tra ) 
     397            CALL mpp_sum( 'trdglo', s2 , jptot_tra ) 
    398398         ENDIF 
    399399 
    … …  
    526526         tvolt = tvolt + SUM( e1e2t(:,:) * e3t_n(:,:,jk) * tmask(:,:,jk) * tmask_i(:,:) ) 
    527527      END DO 
    528       IF( lk_mpp )   CALL mpp_sum( tvolt )   ! sum over the global domain 
     528      CALL mpp_sum( 'trdglo', tvolt )   ! sum over the global domain 
    529529 
    530530      IF(lwp) WRITE(numout,*) '                total ocean volume at T-point   tvolt = ',tvolt 
    … …  
    546546         END DO 
    547547      END DO 
    548       IF( lk_mpp )   CALL mpp_sum( tvolu )   ! sums over the global domain 
    549       IF( lk_mpp )   CALL mpp_sum( tvolv ) 
     548      CALL mpp_sum( 'trdglo', tvolu )   ! sums over the global domain 
     549      CALL mpp_sum( 'trdglo', tvolv ) 
    550550 
    551551      IF(lwp) THEN 

  • NEMO/trunk/src/OCE/TRD/trdken.F90

    r10068 r10425  
    5454      ALLOCATE( bu(jpi,jpj,jpk) , bv(jpi,jpj,jpk) , r1_bt(jpi,jpj,jpk) , STAT= trd_ken_alloc ) 
    5555      ! 
    56       IF( lk_mpp             )   CALL mpp_sum ( trd_ken_alloc ) 
    57       IF( trd_ken_alloc /= 0 )   CALL ctl_warn('trd_ken_alloc: failed to allocate arrays') 
     56      CALL mpp_sum ( 'trdken', trd_ken_alloc ) 
     57      IF( trd_ken_alloc /= 0 )   CALL ctl_stop( 'STOP', 'trd_ken_alloc: failed to allocate arrays' ) 
    5858   END FUNCTION trd_ken_alloc 
    5959 
    … …  
    8888      !!---------------------------------------------------------------------- 
    8989      ! 
    90       CALL lbc_lnk_multi( putrd, 'U', -1. , pvtrd, 'V', -1. )      ! lateral boundary conditions 
     90      CALL lbc_lnk_multi( 'trdken', putrd, 'U', -1. , pvtrd, 'V', -1. )      ! lateral boundary conditions 
    9191      ! 
    9292      nkstp = kt 

  • NEMO/trunk/src/OCE/TRD/trdmxl.F90

    r10068 r10425  
    8181      ALLOCATE( ndextrd1(jpi*jpj) , STAT=trd_mxl_alloc ) 
    8282      ! 
    83       IF( lk_mpp             )   CALL mpp_sum ( trd_mxl_alloc ) 
     83      CALL mpp_sum ( 'trdmxl', trd_mxl_alloc ) 
    8484      IF( trd_mxl_alloc /= 0 )   CALL ctl_warn('trd_mxl_alloc: failed to allocate array ndextrd1') 
    8585   END FUNCTION trd_mxl_alloc 
    … …  
    152152!!gm to be put juste before the output ! 
    153153!      ! Lateral boundary conditions 
    154 !      CALL lbc_lnk_multi( tmltrd(:,:,jl), 'T', 1. , smltrd(:,:,jl), 'T', 1. ) 
     154!      CALL lbc_lnk_multi( 'trdmxl', tmltrd(:,:,jl), 'T', 1. , smltrd(:,:,jl), 'T', 1. ) 
    155155!!gm end 
    156156 
    … …  
    470470         !-- Lateral boundary conditions 
    471471         !         ... temperature ...                    ... salinity ... 
    472          CALL lbc_lnk_multi( ztmltot , 'T', 1., zsmltot , 'T', 1., & 
     472         CALL lbc_lnk_multi( 'trdmxl', ztmltot , 'T', 1., zsmltot , 'T', 1., & 
    473473                  &          ztmlres , 'T', 1., zsmlres , 'T', 1., & 
    474474                  &          ztmlatf , 'T', 1., zsmlatf , 'T', 1. ) 
    … …  
    521521         !-- Lateral boundary conditions 
    522522         !         ... temperature ...                    ... salinity ... 
    523          CALL lbc_lnk_multi( ztmltot2, 'T', 1., zsmltot2, 'T', 1., & 
     523         CALL lbc_lnk_multi( 'trdmxl', ztmltot2, 'T', 1., zsmltot2, 'T', 1., & 
    524524                  &          ztmlres2, 'T', 1., zsmlres2, 'T', 1. ) 
    525525         ! 
    526          CALL lbc_lnk_multi( ztmltrd2(:,:,:), 'T', 1., zsmltrd2(:,:,:), 'T', 1. ) ! /  in the NetCDF trends file 
     526         CALL lbc_lnk_multi( 'trdmxl', ztmltrd2(:,:,:), 'T', 1., zsmltrd2(:,:,:), 'T', 1. ) ! /  in the NetCDF trends file 
    527527          
    528528         ! III.3 Time evolution array swap 

  • NEMO/trunk/src/OCE/TRD/trdmxl_oce.F90

    r10068 r10425  
    127127      ! 
    128128      trdmxl_oce_alloc = MAXVAL( ierr ) 
    129       IF( lk_mpp                )   CALL mpp_sum ( trdmxl_oce_alloc ) 
    130       IF( trdmxl_oce_alloc /= 0 )   CALL ctl_warn('trdmxl_oce_alloc: failed to allocate arrays') 
     129      CALL mpp_sum ( 'trdmxl_oce', trdmxl_oce_alloc ) 
     130      IF( trdmxl_oce_alloc /= 0 )   CALL ctl_stop( 'STOP', 'trdmxl_oce_alloc: failed to allocate arrays' ) 
    131131      ! 
    132132   END FUNCTION trdmxl_oce_alloc 

  • NEMO/trunk/src/OCE/TRD/trdmxl_rst.F90

    r10068 r10425  
    6161         IF(lwp) THEN 
    6262            WRITE(numout,*) 
    63             SELECT CASE ( jprstlib ) 
    64             CASE DEFAULT         ;   WRITE(numout,*) '             open ocean restart_mxl NetCDF file: '//clname 
    65             END SELECT 
     63            WRITE(numout,*) '             open ocean restart_mxl NetCDF file: '//clname 
    6664            IF( kt == nitrst - 1 ) THEN   ;   WRITE(numout,*) '             kt = nitrst - 1 = ', kt,' date= ', ndastp 
    6765            ELSE                          ;   WRITE(numout,*) '             kt = '             , kt,' date= ', ndastp 
    … …  
    6967         ENDIF 
    7068 
    71          CALL iom_open( TRIM(clpath)//TRIM(clname), nummxlw, ldwrt = .TRUE., kiolib = jprstlib ) 
     69         CALL iom_open( TRIM(clpath)//TRIM(clname), nummxlw, ldwrt = .TRUE. ) 
    7270      ENDIF 
    7371 
    … …  
    133131      CHARACTER (len=35) :: charout 
    134132      INTEGER ::   jk         ! loop indice 
    135       INTEGER ::   jlibalt = jprstlib 
    136133      LOGICAL ::   llok 
    137134      CHARACTER(LEN=256)  ::   clpath   ! full path to restart file 
    … …  
    146143      clpath = TRIM(cn_ocerst_indir) 
    147144      IF( clpath(LEN_TRIM(clpath):) /= '/' ) clpath = TRIM(clpath) // '/' 
    148       CALL iom_open( TRIM(clpath)//TRIM(cn_trdrst_in), inum, kiolib = jlibalt )  
     145      CALL iom_open( TRIM(clpath)//TRIM(cn_trdrst_in), inum )  
    149146 
    150147      IF( ln_trdmxl_instant ) THEN  

  • NEMO/trunk/src/OCE/TRD/trdpen.F90

    r10068 r10425  
    5050      ALLOCATE( rab_pe(jpi,jpj,jpk,jpts) , STAT= trd_pen_alloc ) 
    5151      ! 
    52       IF( lk_mpp             )   CALL mpp_sum ( trd_pen_alloc ) 
    53       IF( trd_pen_alloc /= 0 )   CALL ctl_warn( 'trd_pen_alloc: failed to allocate arrays' ) 
     52      CALL mpp_sum ( 'trdpen', trd_pen_alloc ) 
     53      IF( trd_pen_alloc /= 0 )   CALL ctl_stop( 'STOP',  'trd_pen_alloc: failed to allocate arrays' ) 
    5454   END FUNCTION trd_pen_alloc 
    5555 

  • NEMO/trunk/src/OCE/TRD/trdtra.F90

    r10068 r10425  
    5555      ALLOCATE( trdtx(jpi,jpj,jpk) , trdty(jpi,jpj,jpk) , trdt(jpi,jpj,jpk) , avt_evd(jpi,jpj,jpk), STAT= trd_tra_alloc ) 
    5656      ! 
    57       IF( lk_mpp             )   CALL mpp_sum ( trd_tra_alloc ) 
    58       IF( trd_tra_alloc /= 0 )   CALL ctl_warn('trd_tra_alloc: failed to allocate arrays') 
     57      CALL mpp_sum ( 'trdtra', trd_tra_alloc ) 
     58      IF( trd_tra_alloc /= 0 )   CALL ctl_stop( 'STOP', 'trd_tra_alloc: failed to allocate arrays' ) 
    5959   END FUNCTION trd_tra_alloc 
    6060 

  • NEMO/trunk/src/OCE/TRD/trdvor.F90

    r10068 r10425  
    7373         &      ndexvor1  (jpi*jpj)                                ,   STAT= trd_vor_alloc ) 
    7474         ! 
    75       IF( lk_mpp             )   CALL mpp_sum ( trd_vor_alloc ) 
    76       IF( trd_vor_alloc /= 0 )   CALL ctl_warn('trd_vor_alloc: failed to allocate arrays') 
     75      CALL mpp_sum ( 'trdvor', trd_vor_alloc ) 
     76      IF( trd_vor_alloc /= 0 )   CALL ctl_stop( 'STOP', 'trd_vor_alloc: failed to allocate arrays' ) 
    7777   END FUNCTION trd_vor_alloc 
    7878 
    … …  
    161161 
    162162      zudpvor(:,:) = 0._wp                 ;   zvdpvor(:,:) = 0._wp                    ! Initialisation 
    163       CALL lbc_lnk_multi( putrdvor, 'U', -1. , pvtrdvor, 'V', -1. )      ! lateral boundary condition 
     163      CALL lbc_lnk_multi( 'trdvor', putrdvor, 'U', -1. , pvtrdvor, 'V', -1. )      ! lateral boundary condition 
    164164       
    165165 
    … …  
    250250      zvdpvor(:,:) = 0._wp 
    251251      !                            ! lateral boundary condition on input momentum trends 
    252       CALL lbc_lnk_multi( putrdvor, 'U', -1. , pvtrdvor, 'V', -1. ) 
     252      CALL lbc_lnk_multi( 'trdvor', putrdvor, 'U', -1. , pvtrdvor, 'V', -1. ) 
    253253 
    254254      !  ===================================== 
    … …  
    395395 
    396396         ! Boundary conditions 
    397          CALL lbc_lnk_multi( vor_avrtot, 'F', 1. , vor_avrres, 'F', 1. ) 
     397         CALL lbc_lnk_multi( 'trdvor', vor_avrtot, 'F', 1. , vor_avrres, 'F', 1. ) 
    398398 
    399399 
Note: See TracChangeset for help on using the changeset viewer.