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 3691 – NEMO

Changeset 3691


Ignore:
Timestamp:
2012-11-27T18:20:52+01:00 (11 years ago)
Author:
gm
Message:

trunk: #834 runoff in depth bug + removal of useless lbc_lnk communication

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/TRA/trasbc.F90

    r3294 r3691  
    206206      !---------------------------------------- 
    207207      ! 
    208       zfact = 0.5e0 
    209  
    210       ! Effect on (t,s) due to river runoff (dilution effect automatically applied via vertical tracer advection)  
    211       IF( ln_rnf ) THEN   
     208      IF( ln_rnf ) THEN         ! input of heat and salt due to river runoff  
     209         zfact = 0.5_wp 
    212210         DO jj = 2, jpj  
    213211            DO ji = fs_2, fs_jpim1 
    214                zdep = 1. / h_rnf(ji,jj) 
    215                zdep = zfact * zdep   
    216                IF ( rnf(ji,jj) /= 0._wp ) THEN 
     212               IF( rnf(ji,jj) /= 0._wp ) THEN 
     213                  zdep = zfact / h_rnf(ji,jj) 
    217214                  DO jk = 1, nk_rnf(ji,jj) 
    218215                                        tsa(ji,jj,jk,jp_tem) = tsa(ji,jj,jk,jp_tem)   & 
     
    224221            END DO   
    225222         END DO   
    226       ENDIF   
    227 !!gm  It should be useless 
    228       CALL lbc_lnk( tsa(:,:,:,jp_tem), 'T', 1. )    ;    CALL lbc_lnk( tsa(:,:,:,jp_sal), 'T', 1. ) 
    229  
     223      ENDIF 
     224  
    230225      IF( l_trdtra )   THEN                      ! save the horizontal diffusive trends for further diagnostics 
    231226         ztrdt(:,:,:) = tsa(:,:,:,jp_tem) - ztrdt(:,:,:) 
Note: See TracChangeset for help on using the changeset viewer.