Ignore:
Timestamp:
2018-12-04T16:19:46+01:00 (22 months ago)
Author:
smasson
Message:

dev_r10164_HPC09_ESIWACE_PREP_MERGE: action 8: remove communications in TOP, see #2133

File:
1 edited

Legend:

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

    r10170 r10372  
    113113 
    114114      ! 0. initialization 
    115       DO jn = 1, jptra 
    116          ! 
    117          IF( l_trdtrc )   ztrtrd(:,:,:) = tra(:,:,:,jn)  ! save trends 
    118          ! 
    119          IF( nn_ice_tr == -1 ) THEN    ! No tracers in sea ice (null concentration in sea ice) 
     115      IF( nn_ice_tr == -1 ) THEN    ! No tracers in sea ice (null concentration in sea ice) 
     116         ! 
     117         DO jn = 1, jptra 
    120118            DO jj = 2, jpj 
    121119               DO ji = fs_2, fs_jpim1   ! vector opt. 
     
    123121               END DO 
    124122            END DO 
    125          ELSE 
     123         END DO 
     124         ! 
     125       ELSE 
     126         ! 
     127         DO jn = 1, jptra 
    126128            DO jj = 2, jpj 
    127129               DO ji = fs_2, fs_jpim1   ! vector opt. 
     
    143145               END DO 
    144146            END DO 
    145          ENDIF 
    146          ! 
    147          CALL lbc_lnk( 'trcsbc', sbc_trc(:,:,jn), 'T', 1. ) 
    148          !                                       Concentration dilution effect on tracers due to evaporation & precipitation  
     147         END DO 
     148      ENDIF 
     149      ! 
     150      CALL lbc_lnk( 'trcsbc', sbc_trc(:,:,:), 'T', 1. ) 
     151      !                                       Concentration dilution effect on tracers due to evaporation & precipitation  
     152      DO jn = 1, jptra 
     153         ! 
     154         IF( l_trdtrc )   ztrtrd(:,:,:) = tra(:,:,:,jn)  ! save trends 
     155         ! 
    149156         DO jj = 2, jpj 
    150157            DO ji = fs_2, fs_jpim1   ! vector opt. 
Note: See TracChangeset for help on using the changeset viewer.