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/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 
Note: See TracChangeset for help on using the changeset viewer.