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

Changeset 15511


Ignore:
Timestamp:
2021-11-15T16:46:44+01:00 (6 months ago)
Author:
techene
Message:

#2715 RK3 & TOP: no interpolation of rnf

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2021/dev_r14318_RK3_stage1/src/TOP/trcbc.F90

    r14215 r15511  
    417417            DO_2D( 0, 0, 0, 1 ) 
    418418               DO jk = 1, nk_rnf(ji,jj) 
     419#if defined key_RK3 
     420                  zrnf =  rnf(ji,jj) * r1_rho0 / h_rnf(ji,jj) 
     421#else 
    419422                  zrnf = (rnf(ji,jj) + rnf_b(ji,jj)) * 0.5_wp * r1_rho0 / h_rnf(ji,jj) 
     423#endif 
    420424                  ptr(ji,jj,jk,jn,Krhs) = ptr(ji,jj,jk,jn,Krhs)  + (ptr(ji,jj,jk,jn,Kmm) * zrnf) 
    421425               END DO 
Note: See TracChangeset for help on using the changeset viewer.