Changeset 7047
- Timestamp:
- 2016-10-20T10:04:39+02:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2016/dev_r6519_HPC_4/NEMOGCM/NEMO/OPA_SRC/SBC/sbcssm.F90
r7037 r7047 74 74 !$OMP END PARALLEL WORKSHARE 75 75 IF( l_useCT ) THEN 76 !$OMP PARALLEL WORKSHARE77 76 sst_m(:,:) = eos_pt_from_ct( zts(:,:,jp_tem), zts(:,:,jp_sal) ) 78 !$OMP END PARALLEL WORKSHARE79 77 ELSE 80 78 !$OMP PARALLEL WORKSHARE … … 114 112 !$OMP END PARALLEL WORKSHARE 115 113 IF( l_useCT ) THEN 116 !$OMP PARALLEL WORKSHARE117 114 sst_m(:,:) = zcoef * eos_pt_from_ct( zts(:,:,jp_tem), zts(:,:,jp_sal) ) 118 !$OMP END PARALLEL WORKSHARE119 115 ELSE 120 116 !$OMP PARALLEL WORKSHARE … … 162 158 !$OMP END PARALLEL WORKSHARE 163 159 IF( l_useCT ) THEN 164 !$OMP PARALLEL WORKSHARE165 160 sst_m(:,:) = sst_m(:,:) + eos_pt_from_ct( zts(:,:,jp_tem), zts(:,:,jp_sal) ) 166 !$OMP END PARALLEL WORKSHARE167 161 ELSE 168 162 !$OMP PARALLEL WORKSHARE
Note: See TracChangeset
for help on using the changeset viewer.