Changeset 15028 for NEMO/branches/2021/dev_r14318_RK3_stage1/src/OCE/TRA/traqsr.F90

Timestamp:

2021-06-19T10:53:10+02:00 (3 years ago)

Author:

techene

Message:

#2605 : additionnal cleaning sette ~OK (as stated previously) for MLF and RK3

File:

• NEMO/branches/2021/dev_r14318_RK3_stage1/src/OCE/TRA/traqsr.F90 (modified) (3 diffs)

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

@@ -244 +244 @@
       ENDIF
       !
-!!st      IF( l_trdtra ) THEN     ! qsr tracers trends saved for diagnostics
-!!st         ztrdt(:,:,:) = pts(:,:,:,jp_tem,Krhs) - ztrdt(:,:,:)
-!!st         CALL trd_tra( kt, Kmm, Krhs, 'TRA', jp_tem, jptra_qsr, ztrdt )
-!!st         DEALLOCATE( ztrdt )
-!!st      ENDIF
       !                       ! print mean trends (used for debugging)
       IF(sn_cfctl%l_prtctl)   CALL prt_ctl( tab3d_1=pts(:,:,:,jp_tem,Krhs), clinfo1=' qsr  - Ta: ', mask1=tmask, clinfo3='tra-ta' )
@@ -308 +303 @@
       ENDIF
       !
-      DO_2D( 0, 0, 0, 0 )                          ! pre-calculated expensive coefficient
+       DO_2D( 0, 0, 0, 0 )                          ! pre-calculated expensive coefficient
          zlogc = LOG(  MAX( 0.03_wp, MIN( sf_chl(1)%fnow(ji,jj,1) ,10._wp ) )  ) ! zlogc = log(zchl)   with 0.03 <= Chl >= 10. 
          zc1   = 0.113328685307 + 0.803 * zlogc                               ! zc1 : log(zCze)  = log (1.12  * zchl**0.803)
@@ -371 +366 @@
             zeT(ji,jj) = zzeT                                   ! total          -        -      -
          END_2D
-!!stbug         IF( jk == 1 ) THEN                        !- sea-ice : store the 1st level attenuation coefficient
-!!stbug            WHERE( qsr(A2D(0)) /= 0._wp )   ;   fraqsr_1lev(A2D(0)) = 1._wp - zeT(A2D(0)) / qsr(A2D(0))
-!!stbug            ELSEWHERE                       ;   fraqsr_1lev(A2D(0)) = 1._wp
-!!stbug            END WHERE
-!!stbug         ENDIF
+         !
       END DO
       !