Changeset 334 for trunk/NEMO/TOP_SRC/TRP/trcsbc.F90
- Timestamp:
- 2005-11-14T12:53:13+01:00 (19 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/TOP_SRC/TRP/trcsbc.F90
r274 r334 11 11 USE oce_trc ! ocean dynamics and active tracers variables 12 12 USE trc ! ocean passive tracers variables 13 USE prtctl_trc ! Print control for debbuging 14 13 15 14 16 IMPLICIT NONE … … 21 23 # include "passivetrc_substitute.h90" 22 24 !!---------------------------------------------------------------------- 23 !! TOP 1.0, LOCEAN-IPSL (2005) 24 !! $Header$ 25 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 25 !! OPA 9.0 , LODYC-IPSL (2003) 26 26 !!---------------------------------------------------------------------- 27 27 … … 60 60 INTEGER :: ji, jj, jn ! dummy loop indices 61 61 REAL(wp) :: ztra, zsrau, zse3t ! temporary scalars 62 CHARACTER (len=22) :: charout 62 63 !!---------------------------------------------------------------------- 63 64 … … 89 90 END DO 90 91 91 IF(ln_ctl) THEN ! print mean trends (used for debugging)92 ztra = SUM( tra(2:nictle,2:njctle,1:jpkm1,jn) * tmask(2:nictle,2:njctle,1:jpkm1) )93 WRITE(numout,*) ' trc/sbc - ',ctrcnm(jn),' : ', ztra-tra_ctl(jn)94 tra_ctl(jn) = ztra95 ENDIF96 92 END DO 93 94 IF(ln_ctl) THEN ! print mean trends (used for debugging) 95 WRITE(charout, FMT="('sbc')") 96 CALL prt_ctl_trc_info(charout) 97 CALL prt_ctl_trc(tab4d=tra, mask=tmask, clinfo=ctrcnm,clinfo2='trd') 98 ENDIF 97 99 98 100 END SUBROUTINE trc_sbc
Note: See TracChangeset
for help on using the changeset viewer.