Changeset 14017 for NEMO/branches/2020/dev_r13648_ASINTER-04_laurent_bulk_ice/src/OCE/TRA/traatf_qco.F90
- Timestamp:
- 2020-12-02T16:32:24+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2020/dev_r13648_ASINTER-04_laurent_bulk_ice/src/OCE/TRA/traatf_qco.F90
r13295 r14017 103 103 IF(lwp) WRITE(numout,*) '~~~~~~~' 104 104 ENDIF 105 !!st Update after tracer on domain lateral boundaries as been removed outside 105 !!st Update after tracer on domain lateral boundaries as been removed outside 106 106 107 107 ! trends computation initialisation … … 149 149 ENDIF 150 150 ! 151 CALL lbc_lnk_multi( 'traatfqco', pts(:,:,:,jp_tem,Kbb) , 'T', 1., pts(:,:,:,jp_sal,Kbb) , 'T', 1., & 152 & pts(:,:,:,jp_tem,Kmm) , 'T', 1., pts(:,:,:,jp_sal,Kmm) , 'T', 1., & 153 & pts(:,:,:,jp_tem,Kaa), 'T', 1., pts(:,:,:,jp_sal,Kaa), 'T', 1. ) 154 ! 151 CALL lbc_lnk_multi( 'traatfqco', pts(:,:,:,jp_tem,Kmm) , 'T', 1., pts(:,:,:,jp_sal,Kmm) , 'T', 1. ) 152 155 153 ENDIF 156 154 ! … … 203 201 DO jn = 1, kjpt 204 202 ! 205 DO_3D( 0, 0, 0, 0, 1, jpkm1 )203 DO_3D( nn_hls, nn_hls, nn_hls, nn_hls, 1, jpkm1 ) 206 204 ztn = pt(ji,jj,jk,jn,Kmm) 207 205 ztd = pt(ji,jj,jk,jn,Kaa) - 2._wp * ztn + pt(ji,jj,jk,jn,Kbb) ! time laplacian on tracers … … 268 266 zfact2 = zfact1 * r1_rho0 269 267 DO jn = 1, kjpt 270 DO_3D( 0, 0, 0, 0, 1, jpkm1 )268 DO_3D( nn_hls, nn_hls, nn_hls, nn_hls, 1, jpkm1 ) 271 269 ze3t_b = e3t(ji,jj,jk,Kbb) 272 270 ze3t_n = e3t(ji,jj,jk,Kmm)
Note: See TracChangeset
for help on using the changeset viewer.