Changeset 10425 for NEMO/trunk/src/OCE/TRD/trdmxl.F90
- Timestamp:
- 2018-12-19T22:54:16+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk/src/OCE/TRD/trdmxl.F90
r10068 r10425 81 81 ALLOCATE( ndextrd1(jpi*jpj) , STAT=trd_mxl_alloc ) 82 82 ! 83 IF( lk_mpp ) CALL mpp_sum (trd_mxl_alloc )83 CALL mpp_sum ( 'trdmxl', trd_mxl_alloc ) 84 84 IF( trd_mxl_alloc /= 0 ) CALL ctl_warn('trd_mxl_alloc: failed to allocate array ndextrd1') 85 85 END FUNCTION trd_mxl_alloc … … 152 152 !!gm to be put juste before the output ! 153 153 ! ! 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. ) 155 155 !!gm end 156 156 … … 470 470 !-- Lateral boundary conditions 471 471 ! ... 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., & 473 473 & ztmlres , 'T', 1., zsmlres , 'T', 1., & 474 474 & ztmlatf , 'T', 1., zsmlatf , 'T', 1. ) … … 521 521 !-- Lateral boundary conditions 522 522 ! ... 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., & 524 524 & ztmlres2, 'T', 1., zsmlres2, 'T', 1. ) 525 525 ! 526 CALL lbc_lnk_multi( ztmltrd2(:,:,:), 'T', 1., zsmltrd2(:,:,:), 'T', 1. ) ! / in the NetCDF trends file526 CALL lbc_lnk_multi( 'trdmxl', ztmltrd2(:,:,:), 'T', 1., zsmltrd2(:,:,:), 'T', 1. ) ! / in the NetCDF trends file 527 527 528 528 ! III.3 Time evolution array swap
Note: See TracChangeset
for help on using the changeset viewer.