- Timestamp:
- 2018-01-04T13:30:03+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_GO6_package_OMP/NEMOGCM/NEMO/OPA_SRC/TRA/tranxt.F90
r6487 r9176 153 153 ! trends computation 154 154 IF( l_trdtra ) THEN ! trend of the Asselin filter (tb filtered - tb)/dt 155 !$OMP PARALLEL DO PRIVATE(zfact) 155 156 DO jk = 1, jpkm1 156 157 zfact = 1._wp / r2dtra(jk) … … 304 305 ! 305 306 DO jn = 1, kjpt 307 !$OMP PARALLEL DO PRIVATE(zfact1, zfact2, ze3t_b, ze3t_n, ze3t_a, ztc_b, ztc_n, ztc_a, ze3t_d, ztc_d, & 308 !$OMP& ze3t_f, ztc_f, ze3t_d) 306 309 DO jk = 1, jpkm1 307 310 zfact1 = atfp * p2dt(jk)
Note: See TracChangeset
for help on using the changeset viewer.