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/TOP/TRP/trcsbc.F90 – NEMO

Ignore:
Timestamp:
2018-12-19T22:54:16+01:00 (5 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/TRP/trcsbc.F90

    r10068 r10425  
    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( 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.