- 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/ZDF/zdfmxl.F90
r6352 r6748 96 96 97 97 ! w-level of the mixing and mixed layers 98 !$OMP PARALLEL WORKSHARE 98 99 nmln(:,:) = nlb10 ! Initialization to the number of w ocean point 99 100 hmlp(:,:) = 0._wp ! here hmlp used as a dummy variable, integrating vertically N^2 101 !$OMP END PARALLEL WORKSHARE 100 102 zN2_c = grav * rho_c * r1_rau0 ! convert density criteria into N^2 criteria 101 103 DO jk = nlb10, jpkm1 … … 110 112 ! 111 113 ! w-level of the turbocline and mixing layer (iom_use) 114 !$OMP PARALLEL WORKSHARE 112 115 imld(:,:) = mbkt(:,:) + 1 ! Initialization to the number of w ocean point 116 !$OMP END PARALLEL WORKSHARE 117 113 118 DO jk = jpkm1, nlb10, -1 ! from the bottom to nlb10 114 119 DO jj = 1, jpj … … 119 124 END DO 120 125 ! depth of the mixing and mixed layers 126 !$OMP PARALLEL DO schedule(static) private(jj, ji, iiki, iikn) 121 127 DO jj = 1, jpj 122 128 DO ji = 1, jpi
Note: See TracChangeset
for help on using the changeset viewer.