Changeset 10880 for NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/TOP/trcini.F90
- Timestamp:
- 2019-04-17T12:02:14+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/TOP/trcini.F90
r10570 r10880 26 26 USE trcice ! tracers in sea ice 27 27 USE trcbc, only : trc_bc_ini ! generalized Boundary Conditions 28 USE trcstp ! for time level indices (to be initialised) 28 29 29 30 IMPLICIT NONE … … 61 62 CALL trc_nam ! read passive tracers namelists 62 63 CALL top_alloc() ! allocate TOP arrays 64 65 ! Initialise time level indices 66 Nbb = 1; Nnn = 2; Naa = 3; Nrhs = Naa 67 68 ! Initialisation of temporary pointers (to be deleted after development finished) 69 CALL update_pointers_trc() 63 70 ! 64 71 IF(.NOT.ln_trcdta ) ln_trc_ini(:) = .FALSE.
Note: See TracChangeset
for help on using the changeset viewer.