- 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/dynkeg.F90
r5328 r6748 92 92 IF( l_trddyn ) THEN ! Save ua and va trends 93 93 CALL wrk_alloc( jpi,jpj,jpk, ztrdu, ztrdv ) 94 !$OMP PARALLEL WORKSHARE 94 95 ztrdu(:,:,:) = ua(:,:,:) 95 96 ztrdv(:,:,:) = va(:,:,:) 97 !$OMP END PARALLEL WORKSHARE 96 98 ENDIF 97 99 98 zhke(:,:,jpk) = 0._wp100 zhke(:,:,jpk) = 0._wp 99 101 100 102 SELECT CASE ( kscheme ) !== Horizontal kinetic energy at T-point ==! 101 103 ! 102 104 CASE ( nkeg_C2 ) !-- Standard scheme --! 105 !$OMP PARALLEL DO schedule(static) private(jk, jj, ji, zu, zv) 103 106 DO jk = 1, jpkm1 104 107 DO jj = 2, jpj … … 114 117 ! 115 118 CASE ( nkeg_HW ) !-- Hollingsworth scheme --! 119 !$OMP PARALLEL DO schedule(static) private(jk, jj, ji, zu, zv) 116 120 DO jk = 1, jpkm1 117 121 DO jj = 2, jpjm1 … … 134 138 END SELECT 135 139 ! 140 !$OMP PARALLEL DO schedule(static) private(jk, jj, ji) 136 141 DO jk = 1, jpkm1 !== grad( KE ) added to the general momentum trends ==! 137 142 DO jj = 2, jpjm1 … … 144 149 ! 145 150 IF( l_trddyn ) THEN ! save the Kinetic Energy trends for diagnostic 151 !$OMP PARALLEL WORKSHARE 146 152 ztrdu(:,:,:) = ua(:,:,:) - ztrdu(:,:,:) 147 153 ztrdv(:,:,:) = va(:,:,:) - ztrdv(:,:,:) 154 !$OMP END PARALLEL WORKSHARE 148 155 CALL trd_dyn( ztrdu, ztrdv, jpdyn_keg, kt ) 149 156 CALL wrk_dealloc( jpi,jpj,jpk, ztrdu, ztrdv )
Note: See TracChangeset
for help on using the changeset viewer.