Changeset 5916 for branches/2015/dev_r5836_NOC3_vvl_by_default/NEMOGCM
- Timestamp:
- 2015-11-24T18:34:11+01:00 (9 years ago)
- Location:
- branches/2015/dev_r5836_NOC3_vvl_by_default/NEMOGCM/NEMO
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5836_NOC3_vvl_by_default/NEMOGCM/NEMO/OPA_SRC/TRA/tranxt.F90
r5883 r5916 50 50 USE agrif_opa_interp 51 51 #endif 52 # include "vectopt_loop_substitute.h90" 52 53 53 54 IMPLICIT NONE … … 92 93 INTEGER, INTENT(in) :: kt ! ocean time-step index 93 94 !! 94 INTEGER :: j k, jn! dummy loop indices95 REAL(wp) :: zfact ! local scalars95 INTEGER :: ji, jj, jk, jn ! dummy loop indices 96 REAL(wp) :: zfact ! local scalars 96 97 REAL(wp), POINTER, DIMENSION(:,:,:) :: ztrdt, ztrds 97 98 !!---------------------------------------------------------------------- … … 142 143 END DO 143 144 END DO 145 ! 144 146 ELSE ! Leap-Frog + Asselin filter time stepping 145 147 ! … … 148 150 & sbc_tsc, sbc_tsc_b, jpts ) ! non-linear free surface 149 151 ENDIF 152 ! 153 DO jn = 1, jpts 154 CALL lbc_lnk( tsb(:,:,:,jn), 'T', 1._wp ) 155 CALL lbc_lnk( tsn(:,:,:,jn), 'T', 1._wp ) 156 CALL lbc_lnk( tsa(:,:,:,jn), 'T', 1._wp ) 157 END DO 150 158 ENDIF 151 159 ! … … 220 228 ! 221 229 DO jk = 1, jpkm1 222 DO jj = 1, jpj223 DO ji = 1, jpi230 DO jj = 2, jpjm1 231 DO ji = fs_2, fs_jpim1 224 232 ztn = ptn(ji,jj,jk,jn) 225 233 ztd = pta(ji,jj,jk,jn) - 2. * ztn + ptb(ji,jj,jk,jn) ! time laplacian on tracers … … 305 313 zfact1 = atfp * p2dt(jk) 306 314 zfact2 = zfact1 / rau0 307 DO jj = 1, jpj308 DO ji = 1, jpi315 DO jj = 2, jpjm1 316 DO ji = fs_2, fs_jpim1 309 317 ze3t_b = e3t_b(ji,jj,jk) 310 318 ze3t_n = e3t_n(ji,jj,jk) -
branches/2015/dev_r5836_NOC3_vvl_by_default/NEMOGCM/NEMO/OPA_SRC/TRA/traqsr.F90
r5883 r5916 32 32 USE restart ! ocean restart 33 33 USE lib_mpp ! MPP library 34 USE lbclnk ! ocean lateral boundary conditions (or mpp link) 34 35 USE wrk_nemo ! Memory Allocation 35 36 USE timing ! Timing … … 255 256 END DO 256 257 END DO 258 ! Update haloes since lim_thd needs fraqsr_1lev to be defined everywhere 259 CALL lbc_lnk( fraqsr_1lev(:,:), 'T', 1._wp ) 257 260 ENDIF 258 261 ! -
branches/2015/dev_r5836_NOC3_vvl_by_default/NEMOGCM/NEMO/TOP_SRC/TRP/trcnxt.F90
r5883 r5916 133 133 & sbc_trc, sbc_trc_b, jptra ) ! non-linear ssh 134 134 ENDIF 135 ! 136 DO jn = 1, jptra 137 CALL lbc_lnk( trb(:,:,:,jn), 'T', 1._wp ) 138 CALL lbc_lnk( trn(:,:,:,jn), 'T', 1._wp ) 139 CALL lbc_lnk( tra(:,:,:,jn), 'T', 1._wp ) 140 END DO 135 141 ENDIF 136 142 !
Note: See TracChangeset
for help on using the changeset viewer.