Changeset 13987 for NEMO/branches/2020/dev_r13312_AGRIF-03-04_jchanut_vinterp_tstep/src/TOP/PISCES/SED/trcdmp_sed.F90
- Timestamp:
- 2020-12-02T13:22:58+01:00 (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r13312_AGRIF-03-04_jchanut_vinterp_tstep/src/TOP/PISCES/SED/trcdmp_sed.F90
r13295 r13987 91 91 ! 92 92 jl = n_trc_index(jn) 93 CALL trc_dta( kt, Kmm, sf_trcdta(jl), rf_trfac(jl), ztrcdta ) ! read tracer data at nit00093 CALL trc_dta( kt, jl, ztrcdta ) ! read tracer data at nit000 94 94 ! 95 95 DO_2D( 1, 1, 1, 1 ) … … 108 108 WRITE(charout, FMT="('dmp ')") 109 109 CALL prt_ctl_info( charout, cdcomp = 'top' ) 110 CALL prt_ctl( tab4d_1=tr(:,:,:,:,Krhs), mask1=tmask, clinfo=ctrcnm, 110 CALL prt_ctl( tab4d_1=tr(:,:,:,:,Krhs), mask1=tmask, clinfo=ctrcnm,clinfo3='trd' ) 111 111 ENDIF 112 112 !
Note: See TracChangeset
for help on using the changeset viewer.