Changeset 14098 for NEMO/branches/2020/dev_r13787_doc_latex_recovery/src/TOP/TRP/trcdmp.F90

Timestamp:

2020-12-04T15:36:00+01:00 (4 years ago)

Author:

nicolasmartin

Message:

#2414 Sync merge with trunk

Location:

NEMO/branches/2020/dev_r13787_doc_latex_recovery

Files:

• . (modified) (1 prop)
• src/TOP/TRP/trcdmp.F90 (modified) (3 diffs)

NEMO/branches/2020/dev_r13787_doc_latex_recovery

@@ -6 +6 @@
 ^/vendors/FCM@HEAD            ext/FCM
 ^/vendors/IOIPSL@HEAD         ext/IOIPSL
+^/vendors/PPR@HEAD            ext/PPR
 
 # SETTE

@@ -6 +6 @@
 ^/vendors/FCM@HEAD            ext/FCM
 ^/vendors/IOIPSL@HEAD         ext/IOIPSL
+^/vendors/PPR@HEAD            ext/PPR
 
 # SETTE

NEMO/branches/2020/dev_r13787_doc_latex_recovery/src/TOP/TRP/trcdmp.F90

@@ -16 +16 @@
    !!   trc_dmp_init : initialization, namlist read, parameters control
    !!----------------------------------------------------------------------
+   USE par_trc        ! need jptra, number of passive tracers
    USE oce_trc         ! ocean dynamics and tracers variables
    USE trc             ! ocean passive tracers variables
@@ -108 +109 @@
                !
                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
                !
                SELECT CASE ( nn_zdmp_tr )
@@ -350 +351 @@
             IF( ln_trc_ini(jn) ) THEN      ! update passive tracers arrays with input data read from file
                 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 jc = 1, npncts
                    DO jk = 1, jpkm1

@@ -6 +6 @@
 ^/vendors/FCM@HEAD            ext/FCM
 ^/vendors/IOIPSL@HEAD         ext/IOIPSL
+^/vendors/PPR@HEAD            ext/PPR
 
 # SETTE