Changeset 1286 for trunk/NEMO/TOP_SRC/trcini.F90
- Timestamp:
- 2009-02-03T14:45:10+01:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/TOP_SRC/trcini.F90
r1254 r1286 18 18 USE oce_trc 19 19 USE trc 20 USE trp_trc 20 21 USE trcrst 21 22 USE trcctl … … 26 27 USE trcini_c14b ! C14 bomb initialisation 27 28 USE trcini_my_trc ! MY_TRC initialisation 28 USE trcdta ! 29 USE trdmld_trc_oce 30 USE trdmld_trc 31 29 USE trcdta 30 USE zpshde_trc ! partial step: hor. derivative 32 31 USE in_out_manager ! I/O manager 33 32 USE prtctl_trc ! Print control passive tracers (prt_ctl_trc_init routine) … … 108 107 109 108 IF( .NOT. lrsttr ) THEN 110 111 109 # if defined key_dtatrc 112 110 ! Initialization of tracer from a file that may also be used for damping … … 117 115 # endif 118 116 trb(:,:,:,:) = trn(:,:,:,:) 119 120 117 ELSE 121 122 118 CALL trc_rst_read ! restart from a file 123 124 119 ENDIF 125 120 126 IF( lk_trdmld_trc ) CALL trd_mld_trc_init ! trends: Mixed-layer 121 tra(:,:,:,:) = 0. 122 123 IF( ln_zps .AND. .NOT. lk_trc_c1d ) & ! Partial steps: before horizontal gradient of passive 124 & CALL zps_hde_trc( nittrc000, trb, gtru, gtrv ) ! tracers at the bottom ocean level 125 127 126 128 127 ! ! Computation content of all tracers
Note: See TracChangeset
for help on using the changeset viewer.