Changeset 11053 for NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps_rewrite_time_filterswap/src/TOP/trcini.F90
- Timestamp:
- 2019-05-24T12:53:06+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps_rewrite_time_filterswap/src/TOP/trcini.F90
r10975 r11053 52 52 !! or read data or analytical formulation 53 53 !!--------------------------------------------------------------------- 54 !! Time level indices only required for call to update_pointers_trc55 !! To be removed after IMMERSE development finished.56 54 INTEGER, INTENT( in ) :: Kbb, Kmm, Kaa ! time level indices 57 55 ! … … 66 64 CALL top_alloc() ! allocate TOP arrays 67 65 68 ! Initialisation of temporary pointers (to be deleted after development finished)69 CALL update_pointers_trc( Kbb, Kmm, Kaa )70 66 ! 71 67 IF(.NOT.ln_trcdta ) ln_trc_ini(:) = .FALSE.
Note: See TracChangeset
for help on using the changeset viewer.