Changeset 15379 for NEMO/branches/2021

Timestamp:

2021-10-15T11:05:45+02:00 (3 years ago)

Author:

techene

Message:

#2715 cosmetic changes

File:

• NEMO/branches/2021/dev_r14318_RK3_stage1/src/OCE/TRA/trasbc.F90 (modified) (2 diffs)

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

@@ -324 +324 @@
       !                             !==  update tracer trend  ==!
       SELECT CASE( kstg )
-      !
+         !
       CASE( 1 , 2 )                       !=  stage 1 and 2  =!   only in non linear ssh
          !
          IF( .NOT.ln_linssh ) THEN           !* only heat and salt fluxes associated with mass fluxes
             DO_2D( 0, 0, 0, 0 )
-               z1_rho0_e3t = r1_rho0 / e3t(ji,jj,1,Kmm)
-               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
-               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
+            z1_rho0_e3t = r1_rho0 / e3t(ji,jj,1,Kmm)
+            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
+            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
             END_2D
          ENDIF
@@ -341 +341 @@
                z1_rho0_e3t = r1_rho0 / e3t(ji,jj,1,Kmm)
                pts(ji,jj,1,jp_tem,Krhs) = pts(ji,jj,1,jp_tem,Krhs) + (  r1_rcp * qns(ji,jj)   &                                ! non solar heat flux
-                  &                                                   +          emp(ji,jj)*pts(ji,jj,1,jp_tem,Kmm)  ) * z1_rho0_e3t  ! add concentration/dilution effect due to constant volume cell
+                  &                                                +             emp(ji,jj)*pts(ji,jj,1,jp_tem,Kmm)  ) * z1_rho0_e3t  ! add concentration/dilution effect due to constant volume cell
                pts(ji,jj,1,jp_sal,Krhs) = pts(ji,jj,1,jp_sal,Krhs) + (           sfx(ji,jj)    &                               ! salt flux due to freezing/melting
-                  &                                                   +          emp(ji,jj)*pts(ji,jj,1,jp_sal,Kmm)  ) * z1_rho0_e3t  ! add concentration/dilution effect due to constant volume cell
+                  &                                                +             emp(ji,jj)*pts(ji,jj,1,jp_sal,Kmm)  ) * z1_rho0_e3t  ! add concentration/dilution effect due to constant volume cell
             END_2D
             IF( ntile == 0 .OR. ntile == nijtile ) THEN             ! Do only on the last tile