- Timestamp:
- 2017-06-25T11:27:43+02:00 (7 years ago)
- Location:
- branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/TRP
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/TRP/trcadv.F90
r7497 r8213 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)30 29 31 30 IMPLICIT NONE … … 106 105 zvn(:,:,jpk) = 0._wp ! no transport trough the bottom 107 106 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, jptra111 !! CALL lbc_lnk( trn(:,:,:,jn), 'T', 1. )112 !! CALL lbc_lnk( trb(:,:,:,jn), 'T', 1. )113 !! END DO114 !115 107 116 108 IF( lk_traldf_eiv .AND. .NOT. ln_traldf_grif ) & ! add the eiv transport (if necessary) -
branches/NERC/dev_r5518_NOC_MEDUSA_Stable/NEMOGCM/NEMO/TOP_SRC/TRP/trctrp.F90
r6247 r8213 78 78 IF( ln_trcdmp_clo ) CALL trc_dmp_clo( kstp ) ! internal damping trends on closed seas only 79 79 CALL trc_adv( kstp ) ! horizontal & vertical advection 80 # if defined key_debug_medusa81 IF(lwp) WRITE(numout,*) ' MEDUSA trc_trp after trc_adv at kt =', kstp82 CALL trc_rst_tra_stat83 CALL flush(numout)84 # endif85 80 CALL trc_ldf( kstp ) ! lateral mixing 86 81 IF( .NOT. lk_offline .AND. lk_zdfkpp ) & … … 90 85 #endif 91 86 CALL trc_zdf( kstp ) ! vertical mixing and after tracer fields 92 # if defined key_debug_medusa93 IF(lwp) WRITE(numout,*) ' MEDUSA trc_trp after trc_zdf at kt =', kstp94 CALL trc_rst_tra_stat95 CALL flush(numout)96 # endif97 87 CALL trc_nxt( kstp ) ! tracer fields at next time step 98 88 # if defined key_debug_medusa
Note: See TracChangeset
for help on using the changeset viewer.