- Timestamp:
- 2016-06-28T11:53:56+02:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC/DYN/dynzad.F90
r6140 r6748 77 77 IF( l_trddyn ) THEN ! Save ua and va trends 78 78 CALL wrk_alloc( jpi, jpj, jpk, ztrdu, ztrdv ) 79 !$OMP PARALLEL WORKSHARE 79 80 ztrdu(:,:,:) = ua(:,:,:) 80 81 ztrdv(:,:,:) = va(:,:,:) 82 !$OMP END PARALLEL WORKSHARE 81 83 ENDIF 82 84 83 85 DO jk = 2, jpkm1 ! Vertical momentum advection at level w and u- and v- vertical 86 !$OMP PARALLEL DO schedule(static) private(jj, ji) 84 87 DO jj = 2, jpj ! vertical fluxes 85 88 DO ji = fs_2, jpi ! vector opt. … … 87 90 END DO 88 91 END DO 92 !$OMP PARALLEL DO schedule(static) private(jj, ji) 89 93 DO jj = 2, jpjm1 ! vertical momentum advection at w-point 90 94 DO ji = fs_2, fs_jpim1 ! vector opt. … … 97 101 ! Surface and bottom advective fluxes set to zero 98 102 IF ( ln_isfcav ) THEN 103 !$OMP PARALLEL DO schedule(static) private(jj, ji) 99 104 DO jj = 2, jpjm1 100 105 DO ji = fs_2, fs_jpim1 ! vector opt. … … 106 111 END DO 107 112 ELSE 113 !$OMP PARALLEL DO schedule(static) private(jj, ji) 108 114 DO jj = 2, jpjm1 109 115 DO ji = fs_2, fs_jpim1 ! vector opt. … … 116 122 END IF 117 123 124 !$OMP PARALLEL DO schedule(static) private(jk, jj, ji, zua, zva) 118 125 DO jk = 1, jpkm1 ! Vertical momentum advection at u- and v-points 119 126 DO jj = 2, jpjm1 … … 130 137 131 138 IF( l_trddyn ) THEN ! save the vertical advection trends for diagnostic 139 !$OMP PARALLEL WORKSHARE 132 140 ztrdu(:,:,:) = ua(:,:,:) - ztrdu(:,:,:) 133 141 ztrdv(:,:,:) = va(:,:,:) - ztrdv(:,:,:) 142 !$OMP END PARALLEL WORKSHARE 134 143 CALL trd_dyn( ztrdu, ztrdv, jpdyn_zad, kt ) 135 144 CALL wrk_dealloc( jpi, jpj, jpk, ztrdu, ztrdv )
Note: See TracChangeset
for help on using the changeset viewer.