Changeset 11027 for NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/TOP/trcstp.F90
- Timestamp:
- 2019-05-21T17:33:54+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/trcstp.F90
r10975 r11027 30 30 31 31 PUBLIC trc_stp ! called by step 32 PUBLIC update_pointers_trc ! called in initialisation33 32 34 33 LOGICAL :: llnew ! ??? … … 126 125 ! 127 126 END SUBROUTINE trc_stp 128 129 SUBROUTINE update_pointers_trc( Kbb, Kmm, Kaa )130 !!----------------------------------------------------------------------131 !! *** ROUTINE update_pointers_trc ***132 !!133 !! ** Purpose : Associate temporary pointer arrays.134 !! For IMMERSE development phase only - to be deleted135 !!136 !! ** Method :137 !!----------------------------------------------------------------------138 INTEGER, INTENT( in ) :: Kbb, Kmm, Kaa ! time level indices139 140 trb => tr(:,:,:,:,Kbb); trn => tr(:,:,:,:,Kmm); tra => tr(:,:,:,:,Kaa)141 142 END SUBROUTINE update_pointers_trc143 127 144 128 SUBROUTINE trc_mean_qsr( kt )
Note: See TracChangeset
for help on using the changeset viewer.