- Timestamp:
- 2020-11-05T15:18:53+01:00 (4 years ago)
- Location:
- NEMO/branches/2020/dev_12905_xios_restart
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_12905_xios_restart
- Property svn:externals
-
old new 3 3 ^/utils/build/mk@HEAD mk 4 4 ^/utils/tools@HEAD tools 5 ^/vendors/AGRIF/dev @HEADext/AGRIF5 ^/vendors/AGRIF/dev_r12970_AGRIF_CMEMS ext/AGRIF 6 6 ^/vendors/FCM@HEAD ext/FCM 7 7 ^/vendors/IOIPSL@HEAD ext/IOIPSL 8 8 9 9 # SETTE 10 ^/utils/CI/sette@ HEADsette10 ^/utils/CI/sette@13559 sette
-
- Property svn:externals
-
NEMO/branches/2020/dev_12905_xios_restart/src/TOP/trcbc.F90
r12852 r13727 48 48 !! * Substitutions 49 49 # include "do_loop_substitute.h90" 50 # include "domzgr_substitute.h90" 50 51 !!---------------------------------------------------------------------- 51 52 !! NEMO/TOP 4.0 , NEMO Consortium (2018) … … 414 415 ! Remove river dilution for tracers with absent river load 415 416 IF( ln_rnf_ctl .AND. .NOT.ln_trc_cbc(jn) ) THEN 416 DO_2D _01_00417 DO_2D( 0, 1, 0, 0 ) 417 418 DO jk = 1, nk_rnf(ji,jj) 418 419 zrnf = (rnf(ji,jj) + rnf_b(ji,jj)) * 0.5_wp * r1_rho0 / h_rnf(ji,jj) … … 428 429 jl = n_trc_indsbc(jn) 429 430 sf_trcsbc(jl)%fnow(:,:,1) = MAX( rtrn, sf_trcsbc(jl)%fnow(:,:,1) ) ! avoid nedgative value due to interpolation 430 DO_2D _01_00431 DO_2D( 0, 1, 0, 0 ) 431 432 zfact = 1. / ( e3t(ji,jj,1,Kmm) * rn_sbc_time ) 432 433 ptr(ji,jj,1,jn,Krhs) = ptr(ji,jj,1,jn,Krhs) + rf_trsfac(jl) * sf_trcsbc(jl)%fnow(ji,jj,1) * zfact … … 438 439 IF( l_offline ) rn_rfact = 1._wp 439 440 jl = n_trc_indcbc(jn) 440 DO_2D _01_00441 DO_2D( 0, 1, 0, 0 ) 441 442 DO jk = 1, nk_rnf(ji,jj) 442 443 zfact = rn_rfact / ( e1e2t(ji,jj) * h_rnf(ji,jj) * rn_cbc_time ) * tmask(ji,jj,1)
Note: See TracChangeset
for help on using the changeset viewer.