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

Changeset 15379


Ignore:
Timestamp:
2021-10-15T11:05:45+02:00 (3 years ago)
Author:
techene
Message:

#2715 cosmetic changes

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2021/dev_r14318_RK3_stage1/src/OCE/TRA/trasbc.F90

    r14993 r15379  
    324324      !                             !==  update tracer trend  ==! 
    325325      SELECT CASE( kstg ) 
    326       ! 
     326         ! 
    327327      CASE( 1 , 2 )                       !=  stage 1 and 2  =!   only in non linear ssh 
    328328         ! 
    329329         IF( .NOT.ln_linssh ) THEN           !* only heat and salt fluxes associated with mass fluxes 
    330330            DO_2D( 0, 0, 0, 0 ) 
    331                z1_rho0_e3t = r1_rho0 / e3t(ji,jj,1,Kmm) 
    332                pts(ji,jj,1,jp_tem,Krhs) = pts(ji,jj,1,jp_tem,Krhs) - emp(ji,jj)*pts(ji,jj,1,jp_tem,Kmm) * z1_rho0_e3t 
    333                pts(ji,jj,1,jp_sal,Krhs) = pts(ji,jj,1,jp_sal,Krhs) - emp(ji,jj)*pts(ji,jj,1,jp_sal,Kmm) * z1_rho0_e3t 
     331            z1_rho0_e3t = r1_rho0 / e3t(ji,jj,1,Kmm) 
     332            pts(ji,jj,1,jp_tem,Krhs) = pts(ji,jj,1,jp_tem,Krhs) - emp(ji,jj)*pts(ji,jj,1,jp_tem,Kmm) * z1_rho0_e3t 
     333            pts(ji,jj,1,jp_sal,Krhs) = pts(ji,jj,1,jp_sal,Krhs) - emp(ji,jj)*pts(ji,jj,1,jp_sal,Kmm) * z1_rho0_e3t 
    334334            END_2D 
    335335         ENDIF 
    … …  
    341341               z1_rho0_e3t = r1_rho0 / e3t(ji,jj,1,Kmm) 
    342342               pts(ji,jj,1,jp_tem,Krhs) = pts(ji,jj,1,jp_tem,Krhs) + (  r1_rcp * qns(ji,jj)   &                                ! non solar heat flux 
    343                   &                                                   +          emp(ji,jj)*pts(ji,jj,1,jp_tem,Kmm)  ) * z1_rho0_e3t  ! add concentration/dilution effect due to constant volume cell 
     343                  &                                                +             emp(ji,jj)*pts(ji,jj,1,jp_tem,Kmm)  ) * z1_rho0_e3t  ! add concentration/dilution effect due to constant volume cell 
    344344               pts(ji,jj,1,jp_sal,Krhs) = pts(ji,jj,1,jp_sal,Krhs) + (           sfx(ji,jj)    &                               ! salt flux due to freezing/melting 
    345                   &                                                   +          emp(ji,jj)*pts(ji,jj,1,jp_sal,Kmm)  ) * z1_rho0_e3t  ! add concentration/dilution effect due to constant volume cell 
     345                  &                                                +             emp(ji,jj)*pts(ji,jj,1,jp_sal,Kmm)  ) * z1_rho0_e3t  ! add concentration/dilution effect due to constant volume cell 
    346346            END_2D 
    347347            IF( ntile == 0 .OR. ntile == nijtile ) THEN             ! Do only on the last tile 
Note: See TracChangeset for help on using the changeset viewer.