ns5001k-admin/Nemo-NAA10km_nemo_4.2.2
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Bugfixes in trcbc.F90

Browse Source
This commit is contained in:
Robinson Hordoir 2026-04-15 10:38:18 +02:00
parent 933932fd6a
commit ce9a302883
1 changed files with 9 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/TOP/trcbc.F90
View File

@ -75,7 +75,9 @@ CONTAINS
! !
CHARACTER(len=100) :: cn_dir_sbc, cn_dir_cbc, cn_dir_obc CHARACTER(len=100) :: cn_dir_sbc, cn_dir_cbc, cn_dir_obc
TYPE(FLD_N), ALLOCATABLE, DIMENSION(:) :: slf_i ! local array of namelist informations on the fields to read TYPE(FLD_N), ALLOCATABLE, DIMENSION(:) :: slf_i ! local array of namelist informations on the fields to read
TYPE(FLD_N), DIMENSION(jp_bdy) :: sn_trcobc ! open !!! TYPE(FLD_N), DIMENSION(jp_bdy) :: sn_trcobc ! open
TYPE(FLD_N), DIMENSION(jpmaxtrc) :: sn_trcobc ! open Robinson
!!!
TYPE(FLD_N), DIMENSION(jpmaxtrc) :: sn_trcsbc ! surface TYPE(FLD_N), DIMENSION(jpmaxtrc) :: sn_trcsbc ! surface
TYPE(FLD_N), DIMENSION(jpmaxtrc) :: sn_trccbc ! coastal TYPE(FLD_N), DIMENSION(jpmaxtrc) :: sn_trccbc ! coastal
REAL(wp) , DIMENSION(jpmaxtrc) :: rn_trofac ! multiplicative factor for tracer values REAL(wp) , DIMENSION(jpmaxtrc) :: rn_trofac ! multiplicative factor for tracer values
@ -208,7 +210,8 @@ CONTAINS
! !
IF( ln_trc_obc(jn) ) THEN !* Initialise from external data *! IF( ln_trc_obc(jn) ) THEN !* Initialise from external data *!
jl = n_trc_indobc(jn) jl = n_trc_indobc(jn)
slf_i(jl) = sn_trcobc(ib) !!slf_i(jl) = sn_trcobc(ib)
slf_i(jl) = sn_trcobc(jn) !Robinson
slf_i(jl)%clvar = TRIM(cn_tronam(jn)) slf_i(jl)%clvar = TRIM(cn_tronam(jn))
rf_trofac(jl) = rn_trofac(jn) rf_trofac(jl) = rn_trofac(jn)
ALLOCATE( sf_trcobc(jl,ib)%fnow(nblen,1,jpk) , STAT=ierr2 ) ALLOCATE( sf_trcobc(jl,ib)%fnow(nblen,1,jpk) , STAT=ierr2 )