Changeset 334 for trunk/NEMO/TOP_SRC/TRP/trczdf_exp.F90
- Timestamp:
- 2005-11-14T12:53:13+01:00 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/TOP_SRC/TRP/trczdf_exp.F90
r274 r334 14 14 USE trc ! ocean passive tracers variables 15 15 USE trctrp_lec ! passive tracers transport 16 USE prtctl_trc ! Print control for debbuging 16 17 17 18 IMPLICIT NONE … … 28 29 # include "passivetrc_substitute.h90" 29 30 !!---------------------------------------------------------------------- 30 !! TOP 1.0, LOCEAN-IPSL (2005) 31 !! $Header$ 32 !! This software is governed by the CeCILL licence see modipsl/doc/NEMO_CeCILL.txt 31 !! OPA 9.0, LODYC-IPSL (2003) 33 32 !!---------------------------------------------------------------------- 34 33 … … 81 80 REAL(wp), DIMENSION(jpi,jpk) :: & 82 81 zwx, zwy 82 CHARACTER (len=22) :: charout 83 83 !!--------------------------------------------------------------------- 84 84 … … 161 161 END DO 162 162 163 IF(ln_ctl) THEN ! print mean trends (used for debugging) 164 WRITE(charout, FMT="('zdf - exp')") 165 CALL prt_ctl_trc_info(charout) 166 CALL prt_ctl_trc(tab4d=tra, mask=tmask, clinfo=ctrcnm,clinfo2='trd') 167 ENDIF 168 163 169 END SUBROUTINE trc_zdf_exp 164 170
Note: See TracChangeset
for help on using the changeset viewer.