Changeset 10975 for NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/TOP/MY_TRC/trcwri_my_trc.F90
- Timestamp:
- 2019-05-13T18:34:33+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/TOP/MY_TRC/trcwri_my_trc.F90
r10069 r10975 25 25 CONTAINS 26 26 27 SUBROUTINE trc_wri_my_trc 27 SUBROUTINE trc_wri_my_trc( Kmm ) 28 28 !!--------------------------------------------------------------------- 29 29 !! *** ROUTINE trc_wri_trc *** … … 31 31 !! ** Purpose : output passive tracers fields 32 32 !!--------------------------------------------------------------------- 33 INTEGER, INTENT(in) :: Kmm ! time level indices 33 34 CHARACTER (len=20) :: cltra 34 35 INTEGER :: jn … … 39 40 DO jn = jp_myt0, jp_myt1 40 41 cltra = TRIM( ctrcnm(jn) ) ! short title for tracer 41 CALL iom_put( cltra, tr n(:,:,:,jn) )42 CALL iom_put( cltra, tr(:,:,:,jn,Kmm) ) 42 43 END DO 43 44 !
Note: See TracChangeset
for help on using the changeset viewer.