Changeset 9081
- Timestamp:
- 2017-12-15T17:33:49+01:00 (7 years ago)
- Location:
- branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zsms.F90
r8533 r9081 166 166 CALL sed_model( kt ) ! Main program of Sediment model 167 167 ! 168 DO jn = jp_pcs0, jp_pcs1169 CALL lbc_lnk( trb(:,:,:,jn), 'T', 1. )170 END DO171 !172 168 ENDIF 173 169 ! -
branches/2017/dev_merge_2017/NEMOGCM/NEMO/TOP_SRC/TRP/trcnxt.F90
r9050 r9081 96 96 CALL Agrif_trc ! AGRIF zoom boundaries 97 97 #endif 98 DO jn = 1, jptra ! Update after tracer on domain lateral boundaries 99 CALL lbc_lnk( tra(:,:,:,jn), 'T', 1. ) 100 END DO 98 ! Update after tracer on domain lateral boundaries 99 CALL lbc_lnk( tra(:,:,:,:), 'T', 1. ) 101 100 102 101 IF( ln_bdy ) CALL trc_bdy( kt ) … … 124 123 ENDIF 125 124 ! 126 DO jn = 1, jptra 127 CALL lbc_lnk_multi( trb(:,:,:,jn), 'T', 1._wp, trn(:,:,:,jn), 'T', 1._wp, tra(:,:,:,jn), 'T', 1._wp ) 128 END DO 125 CALL lbc_lnk_multi( trb(:,:,:,:), 'T', 1._wp, trn(:,:,:,:), 'T', 1._wp, tra(:,:,:,:), 'T', 1._wp ) 129 126 ENDIF 130 127 !
Note: See TracChangeset
for help on using the changeset viewer.