Changeset 10880 for NEMO/branches/2019/dev_r10721_KERNEL-02_Storkey_Coward_IMMERSE_first_steps/src/TOP/trcstp.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/trcstp.F90
r10570 r10880 30 30 31 31 PUBLIC trc_stp ! called by step 32 PUBLIC update_pointers_trc ! called in initialisation 33 34 !!---------------------------------------------------------------------- 35 !! time level indices 36 !!---------------------------------------------------------------------- 37 INTEGER, PUBLIC :: Nbb, Nnn, Naa, Nrhs !! used by trc_init 32 38 33 39 LOGICAL :: llnew ! ??? … … 100 106 CALL trc_wri ( kt ) ! output of passive tracers with iom I/O manager 101 107 CALL trc_sms ( kt ) ! tracers: sinks and sources 102 CALL trc_trp ( kt ) ! transport of passive tracers108 CALL trc_trp ( kt, Nbb, Nnn, Nrhs, Naa ) ! transport of passive tracers 103 109 IF( kt == nittrc000 ) THEN 104 110 CALL iom_close( numrtr ) ! close input tracer restart file … … 125 131 END SUBROUTINE trc_stp 126 132 133 SUBROUTINE update_pointers_trc 134 !!---------------------------------------------------------------------- 135 !! *** ROUTINE update_pointers_trc *** 136 !! 137 !! ** Purpose : Associate temporary pointer arrays. 138 !! For IMMERSE development phase only - to be deleted 139 !! 140 !! ** Method : 141 !!---------------------------------------------------------------------- 142 143 trb => tr(:,:,:,:,Nbb); trn => tr(:,:,:,:,Nnn); tra => tr(:,:,:,:,Naa) 144 145 END SUBROUTINE update_pointers_trc 127 146 128 147 SUBROUTINE trc_mean_qsr( kt )
Note: See TracChangeset
for help on using the changeset viewer.