Changeset 15511 for NEMO/branches/2021

Timestamp:

2021-11-15T16:46:44+01:00 (3 years ago)

Author:

techene

Message:

#2715 RK3 & TOP: no interpolation of rnf

File:

• NEMO/branches/2021/dev_r14318_RK3_stage1/src/TOP/trcbc.F90 (modified) (1 diff)

NEMO/branches/2021/dev_r14318_RK3_stage1/src/TOP/trcbc.F90

@@ -417 +417 @@
             DO_2D( 0, 0, 0, 1 )
                DO jk = 1, nk_rnf(ji,jj)
+#if defined key_RK3
+                  zrnf =  rnf(ji,jj) * r1_rho0 / h_rnf(ji,jj)
+#else
                   zrnf = (rnf(ji,jj) + rnf_b(ji,jj)) * 0.5_wp * r1_rho0 / h_rnf(ji,jj)
+#endif
                   ptr(ji,jj,jk,jn,Krhs) = ptr(ji,jj,jk,jn,Krhs)  + (ptr(ji,jj,jk,jn,Kmm) * zrnf)
                END DO