Changeset 11949 for NEMO/branches/2019/dev_r11943_MERGE_2019/src/TOP/MY_TRC
- Timestamp:
- 2019-11-22T15:29:17+01:00 (5 years ago)
- Location:
- NEMO/branches/2019/dev_r11943_MERGE_2019/src
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11943_MERGE_2019/src
- Property svn:mergeinfo deleted
-
NEMO/branches/2019/dev_r11943_MERGE_2019/src/TOP/MY_TRC/trcini_my_trc.F90
r10068 r11949 28 28 CONTAINS 29 29 30 SUBROUTINE trc_ini_my_trc 30 SUBROUTINE trc_ini_my_trc( Kmm ) 31 31 !!---------------------------------------------------------------------- 32 32 !! *** trc_ini_my_trc *** … … 36 36 !! ** Method : - Read the namcfc namelist and check the parameter values 37 37 !!---------------------------------------------------------------------- 38 INTEGER, INTENT(in) :: Kmm ! time level indices 38 39 ! 39 40 CALL trc_nam_my_trc … … 50 51 IF(lwp) WRITE(numout,*) ' ~~~~~~~~~~~~~~' 51 52 52 IF( .NOT. ln_rsttr ) tr n(:,:,:,jp_myt0:jp_myt1) = 1.53 IF( .NOT. ln_rsttr ) tr(:,:,:,jp_myt0:jp_myt1,Kmm) = 1. 53 54 ! 54 55 END SUBROUTINE trc_ini_my_trc -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/TOP/MY_TRC/trcsms_my_trc.F90
r10425 r11949 32 32 CONTAINS 33 33 34 SUBROUTINE trc_sms_my_trc( kt )34 SUBROUTINE trc_sms_my_trc( kt, Kbb, Kmm, Krhs ) 35 35 !!---------------------------------------------------------------------- 36 36 !! *** trc_sms_my_trc *** … … 42 42 ! 43 43 INTEGER, INTENT(in) :: kt ! ocean time-step index 44 INTEGER, INTENT(in) :: Kbb, Kmm, Krhs ! time level indices 44 45 INTEGER :: jn ! dummy loop index 45 46 REAL(wp), ALLOCATABLE, DIMENSION(:,:,:) :: ztrmyt … … 54 55 IF( l_trdtrc ) ALLOCATE( ztrmyt(jpi,jpj,jpk) ) 55 56 56 CALL trc_bc ( kt ) ! tracers: surface and lateral Boundary Conditions57 CALL trc_bc ( kt, Kmm, Krhs ) ! tracers: surface and lateral Boundary Conditions 57 58 58 59 ! add here the call to BGC model … … 61 62 IF( l_trdtrc ) THEN 62 63 DO jn = jp_myt0, jp_myt1 63 ztrmyt(:,:,:) = tr a(:,:,:,jn)64 CALL trd_trc( ztrmyt, jn, jptra_sms, kt ) ! save trends64 ztrmyt(:,:,:) = tr(:,:,:,jn,Krhs) 65 CALL trd_trc( ztrmyt, jn, jptra_sms, kt, Kmm ) ! save trends 65 66 END DO 66 67 DEALLOCATE( ztrmyt ) -
NEMO/branches/2019/dev_r11943_MERGE_2019/src/TOP/MY_TRC/trcwri_my_trc.F90
r10069 r11949 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.