Changeset 13373 for NEMO/branches/2020/dev_r13333_TOP-05_Ethe_Agrif/src/TOP/PISCES/SED/trcdmp_sed.F90

Timestamp:

2020-08-03T11:46:38+02:00 (4 years ago)

Author:

cetlod

Message:

TOP-05_Ethe_Agrif : 1st step of changes to successfully compile, see ticket #2508

File:

• NEMO/branches/2020/dev_r13333_TOP-05_Ethe_Agrif/src/TOP/PISCES/SED/trcdmp_sed.F90 (modified) (2 diffs)

NEMO/branches/2020/dev_r13333_TOP-05_Ethe_Agrif/src/TOP/PISCES/SED/trcdmp_sed.F90

@@ -91 +91 @@
                !
                jl = n_trc_index(jn) 
-               CALL trc_dta( kt, Kmm, sf_trcdta(jl), rf_trfac(jl), ztrcdta )   ! read tracer data at nit000
+               CALL trc_dta( kt, jl, ztrcdta )   ! read tracer data at nit000
                !
                DO_2D( 1, 1, 1, 1 )
@@ -108 +108 @@
          WRITE(charout, FMT="('dmp ')")
          CALL prt_ctl_info( charout, cdcomp = 'top' )
-         CALL prt_ctl( tab4d_1=tr(:,:,:,:,Krhs), mask1=tmask, clinfo=ctrcnm, clinfo3='trd' )
+         CALL prt_ctl( tab4d_1=tr(:,:,:,:,Krhs), mask1=tmask, clinfo=ctrcnm,clinfo3='trd' )
       ENDIF
       !