Changeset 10975 for NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/TOP/AGE/trcwri_age.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/AGE/trcwri_age.F90
r10070 r10975 21 21 CONTAINS 22 22 23 SUBROUTINE trc_wri_age 23 SUBROUTINE trc_wri_age( Kmm ) 24 24 !!--------------------------------------------------------------------- 25 25 !! *** ROUTINE trc_wri_trc *** … … 27 27 !! ** Purpose : output passive tracers fields 28 28 !!--------------------------------------------------------------------- 29 INTEGER, INTENT(in) :: Kmm ! time level indices 29 30 CHARACTER (len=20) :: cltra 30 31 INTEGER :: jn … … 34 35 35 36 cltra = TRIM( ctrcnm(jp_age) ) ! short title for tracer 36 CALL iom_put( cltra, tr n(:,:,:,jp_age) )37 CALL iom_put( cltra, tr(:,:,:,jp_age,Kmm) ) 37 38 38 39 !
Note: See TracChangeset
for help on using the changeset viewer.