Changeset 2528 for trunk/NEMOGCM/NEMO/TOP_SRC/MY_TRC/trcsms_my_trc.F90
- Timestamp:
- 2010-12-27T18:33:53+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/TOP_SRC/MY_TRC/trcsms_my_trc.F90
r1255 r2528 15 15 USE oce_trc ! Ocean variables 16 16 USE trc ! TOP variables 17 USE trdm ld_trc_oce18 USE trdm ld_trc17 USE trdmod_oce 18 USE trdmod_trc 19 19 20 20 IMPLICIT NONE … … 24 24 25 25 !!---------------------------------------------------------------------- 26 !! NEMO/TOP 2.0 , LOCEAN-IPSL (2007)26 !! NEMO/TOP 3.3 , NEMO Consortium (2010) 27 27 !! $Id$ 28 !! Software governed by the CeCILL licence ( modipsl/doc/NEMO_CeCILL.txt)28 !! Software governed by the CeCILL licence (NEMOGCM/NEMO_CeCILL.txt) 29 29 !!---------------------------------------------------------------------- 30 30 … … 64 64 DO jn = jp_myt0, jp_myt1 65 65 ztrmyt(:,:,:) = tra(:,:,:,jn) 66 CALL trd_mod_trc( ztrmyt, jn, jptr c_trd_sms, kt ) ! save trends66 CALL trd_mod_trc( ztrmyt, jn, jptra_trd_sms, kt ) ! save trends 67 67 END DO 68 68 END IF
Note: See TracChangeset
for help on using the changeset viewer.