Changeset 15620 for NEMO/branches/2021/dev_r14318_RK3_stage1/src/OCE/TRA/trasbc.F90

Timestamp:

2021-12-29T10:51:43+01:00 (2 years ago)

Author:

techene

Message:

#2605 update RK3 loops according to the trunk transformation

File:

• NEMO/branches/2021/dev_r14318_RK3_stage1/src/OCE/TRA/trasbc.F90 (modified) (1 diff)

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

@@ -276 +276 @@
 !!gm  This should be moved into sbcmod.F90 module ? (especially now that ln_traqsr is read in namsbc namelist)
       IF( .NOT.ln_traqsr  .AND. kstg == 1) THEN     ! no solar radiation penetration
-         DO_2D( 0, 0, 0, 0 )
+         DO_2D_OVR( nn_hls, nn_hls, nn_hls, nn_hls )
             qns(ji,jj) = qns(ji,jj) + qsr(ji,jj)         ! total heat flux in qns
             qsr(ji,jj) = 0._wp                           ! qsr set to zero