Changeset 2528 for trunk/NEMOGCM/NEMO/TOP_SRC/trcstp.F90
- Timestamp:
- 2010-12-27T18:33:53+01:00 (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/TOP_SRC/trcstp.F90
- Property svn:keywords set to Id
r1457 r2528 4 4 !! Time-stepping : time loop of opa for passive tracer 5 5 !!====================================================================== 6 !! History : 1.0 ! 2004-03 (C. Ethe) Original 7 !!---------------------------------------------------------------------- 6 8 #if defined key_top 7 9 !!---------------------------------------------------------------------- 8 10 !! trc_stp : passive tracer system time-stepping 9 11 !!---------------------------------------------------------------------- 10 !! * Modules used11 12 USE oce_trc ! ocean dynamics and active tracers variables 12 USE tr p_trc13 USE trc 13 14 USE trctrp ! passive tracers transport 14 15 USE trcsms ! passive tracers sources and sinks … … 17 18 USE trcwri 18 19 USE trcrst 19 USE trdm ld_trc_oce20 USE trdmod_trc_oce 20 21 USE trdmld_trc 21 22 USE iom … … 25 26 PRIVATE 26 27 27 !! * Routine accessibility28 PUBLIC trc_stp ! called by step28 PUBLIC trc_stp ! called by step 29 29 30 !!---------------------------------------------------------------------- 30 !! TOP 1.0 , LOCEAN-IPSL (2005)31 !! $Id : trcstp.F90 1285 2009-02-03 13:38:51Z cetlod$32 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt31 !! NEMO/TOP 3.3 , NEMO Consortium (2010) 32 !! $Id$ 33 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 33 34 !!---------------------------------------------------------------------- 34 35 35 CONTAINS 36 36 … … 44 44 !! Compute the passive tracers trends 45 45 !! Update the passive tracers 46 !!47 !! History :48 !! 9.0 ! 04-03 (C. Ethe) Original49 46 !!------------------------------------------------------------------- 50 !! * Arguments51 47 INTEGER, INTENT( in ) :: kt ! ocean time-step index 52 48 CHARACTER (len=25) :: charout 49 !!------------------------------------------------------------------- 53 50 54 ! this ROUTINE is called only every ndttrc time step 55 IF( MOD( kt , ndttrc ) /= 0 ) RETURN 56 57 IF(ln_ctl) THEN 58 WRITE(charout,FMT="('kt =', I4,' d/m/y =',I2,I2,I4)") kt, nday, nmonth, nyear 59 CALL prt_ctl_trc_info(charout) 51 IF( MOD( kt - 1 , nn_dttrc ) == 0 ) THEN ! only every nn_dttrc time step 52 ! 53 IF(ln_ctl) THEN 54 WRITE(charout,FMT="('kt =', I4,' d/m/y =',I2,I2,I4)") kt, nday, nmonth, nyear 55 CALL prt_ctl_trc_info(charout) 56 ENDIF 57 ! 58 tra(:,:,:,:) = 0.e0 59 ! 60 IF( kt == nit000 .AND. lk_trdmld_trc ) & 61 & CALL trd_mld_trc_init ! trends: Mixed-layer 62 CALL trc_rst_opn( kt ) ! Open tracer restart file 63 IF( lk_iomput ) THEN ; CALL trc_wri( kt ) ! output of passive tracers 64 ELSE ; CALL trc_dia( kt ) 65 ENDIF 66 CALL trc_sms( kt ) ! tracers: sink and source 67 CALL trc_trp( kt ) ! transport of passive tracers 68 IF( kt == nit000 ) CALL iom_close( numrtr ) ! close input passive tracers restart file 69 IF( lrst_trc ) CALL trc_rst_wri( kt ) ! write tracer restart file 70 IF( lk_trdmld_trc ) CALL trd_mld_trc( kt ) ! trends: Mixed-layer 71 ! 60 72 ENDIF 61 62 IF( kt == nittrc000 .AND. lk_trdmld_trc ) &63 & CALL trd_mld_trc_init ! trends: Mixed-layer64 CALL trc_rst_opn( kt ) ! Open tracer restart file65 CALL trc_sms( kt ) ! tracers: sink and source66 CALL trc_trp( kt ) ! transport of passive tracers67 IF( kt == nittrc000 ) CALL iom_close( numrtr ) ! close input passive tracers restart file68 IF( lrst_trc ) CALL trc_rst_wri( kt ) ! write tracer restart file69 IF( lk_iomput ) THEN70 CALL trc_wri( kt ) ! output of passive tracers71 ELSE72 CALL trc_dia( kt ) ! diagnostics73 ENDIF74 IF( lk_trdmld_trc ) CALL trd_mld_trc( kt ) ! trends: Mixed-layer75 73 76 74 END SUBROUTINE trc_stp … … 82 80 CONTAINS 83 81 SUBROUTINE trc_stp( kt ) ! Empty routine 84 INTEGER, INTENT(in) :: kt85 82 WRITE(*,*) 'trc_stp: You should not have seen this print! error?', kt 86 83 END SUBROUTINE trc_stp
Note: See TracChangeset
for help on using the changeset viewer.