Changeset 345 for trunk/NEMO
- Timestamp:
- 2005-11-16T17:30:06+01:00 (19 years ago)
- Location:
- trunk/NEMO
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/step.F90
r294 r345 280 280 !----------------------------------------------------------------------- 281 281 282 CALL trc_stp( kstp )! time-stepping282 CALL trc_stp( kstp, indic ) ! time-stepping 283 283 284 284 #endif -
trunk/NEMO/TOP_SRC/initrc.F90
r340 r345 24 24 USE trcdtr 25 25 USE trcini 26 USE prtctl_trc ! Print control passive tracers (prt_ctl_trc_init routine) 26 27 27 28 IMPLICIT NONE … … 52 53 !! original : 91-03 () 53 54 !! additions : 92-01 (C. Levy) 54 !! 05-03 (O. Aumont and A. El Moussaoui) F90 55 !! 05-03 (O. Aumont and A. El Moussaoui) F90 56 !! 05-10 (C. Ethe ) print control initialization 55 57 !!---------------------------------------------------------------------- 56 58 … … 97 99 ENDIF 98 100 101 ! 5. Print control 102 !------------------ 103 104 IF( ln_ctl ) CALL prt_ctl_trc_init 105 99 106 END SUBROUTINE ini_trc 100 107
Note: See TracChangeset
for help on using the changeset viewer.