- Timestamp:
- 2017-02-17T16:38:26+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_MEDUSA_optim_RH/NEMOGCM/NEMO/TOP_SRC/TRP/trcadv.F90
r7692 r7693 27 27 USE ldftra_oce ! lateral diffusion coefficient on tracers 28 28 USE prtctl_trc ! Print control 29 !! USE lbclnk ! ocean lateral boundary conditions (or mpp link) 29 30 30 31 IMPLICIT NONE … … 71 72 INTEGER, INTENT(in) :: kt ! ocean time-step index 72 73 ! 73 INTEGER :: jk 74 INTEGER :: jk, jn 74 75 CHARACTER (len=22) :: charout 75 76 REAL(wp), POINTER, DIMENSION(:,:,:) :: zun, zvn, zwn ! effective velocity … … 105 106 zvn(:,:,jpk) = 0._wp ! no transport trough the bottom 106 107 zwn(:,:,jpk) = 0._wp ! no transport trough the bottom 108 ! 109 !! Jpalm -- 14-01-2016 -- restart and proc pb - try this... 110 !! DO jn = 1, jptra 111 !! CALL lbc_lnk( trn(:,:,:,jn), 'T', 1. ) 112 !! CALL lbc_lnk( trb(:,:,:,jn), 'T', 1. ) 113 !! END DO 114 ! 107 115 108 116 IF( lk_traldf_eiv .AND. .NOT. ln_traldf_grif ) & ! add the eiv transport (if necessary)
Note: See TracChangeset
for help on using the changeset viewer.