- Timestamp:
- 2016-10-18T15:32:04+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
r6748 r7037 73 73 ssv_m(:,:) = vb(:,:,1) 74 74 !$OMP END PARALLEL WORKSHARE 75 IF( l_useCT ) THEN ; sst_m(:,:) = eos_pt_from_ct( zts(:,:,jp_tem), zts(:,:,jp_sal) ) 76 ELSE ; sst_m(:,:) = zts(:,:,jp_tem) 75 IF( l_useCT ) THEN 76 !$OMP PARALLEL WORKSHARE 77 sst_m(:,:) = eos_pt_from_ct( zts(:,:,jp_tem), zts(:,:,jp_sal) ) 78 !$OMP END PARALLEL WORKSHARE 79 ELSE 80 !$OMP PARALLEL WORKSHARE 81 sst_m(:,:) = zts(:,:,jp_tem) 82 !$OMP END PARALLEL WORKSHARE 77 83 ENDIF 78 84 !$OMP PARALLEL WORKSHARE … … 82 88 IF( ln_apr_dyn ) THEN 83 89 !$OMP PARALLEL WORKSHARE 84 ssh_m(:,:) = sshn(:,:) - 0.5 * ( ssh_ib(:,:) + ssh_ibb(:,:) )90 ssh_m(:,:) = sshn(:,:) - 0.5 * ( ssh_ib(:,:) + ssh_ibb(:,:) ) 85 91 !$OMP END PARALLEL WORKSHARE 86 92 ELSE 87 93 !$OMP PARALLEL WORKSHARE 88 ssh_m(:,:) = sshn(:,:)94 ssh_m(:,:) = sshn(:,:) 89 95 !$OMP END PARALLEL WORKSHARE 90 96 ENDIF … … 107 113 ssv_m(:,:) = zcoef * vb(:,:,1) 108 114 !$OMP END PARALLEL WORKSHARE 109 IF( l_useCT ) THEN ; sst_m(:,:) = zcoef * eos_pt_from_ct( zts(:,:,jp_tem), zts(:,:,jp_sal) ) 110 ELSE ; sst_m(:,:) = zcoef * zts(:,:,jp_tem) 115 IF( l_useCT ) THEN 116 !$OMP PARALLEL WORKSHARE 117 sst_m(:,:) = zcoef * eos_pt_from_ct( zts(:,:,jp_tem), zts(:,:,jp_sal) ) 118 !$OMP END PARALLEL WORKSHARE 119 ELSE 120 !$OMP PARALLEL WORKSHARE 121 sst_m(:,:) = zcoef * zts(:,:,jp_tem) 122 !$OMP END PARALLEL WORKSHARE 111 123 ENDIF 112 124 !$OMP PARALLEL WORKSHARE … … 116 128 IF( ln_apr_dyn ) THEN 117 129 !$OMP PARALLEL WORKSHARE 118 ssh_m(:,:) = zcoef * ( sshn(:,:) - 0.5 * ( ssh_ib(:,:) + ssh_ibb(:,:) ) )130 ssh_m(:,:) = zcoef * ( sshn(:,:) - 0.5 * ( ssh_ib(:,:) + ssh_ibb(:,:) ) ) 119 131 !$OMP END PARALLEL WORKSHARE 120 132 ELSE 121 133 !$OMP PARALLEL WORKSHARE 122 ssh_m(:,:) = zcoef * sshn(:,:)134 ssh_m(:,:) = zcoef * sshn(:,:) 123 135 !$OMP END PARALLEL WORKSHARE 124 136 ENDIF … … 149 161 ssv_m(:,:) = ssv_m(:,:) + vb(:,:,1) 150 162 !$OMP END PARALLEL WORKSHARE 151 IF( l_useCT ) THEN ; sst_m(:,:) = sst_m(:,:) + eos_pt_from_ct( zts(:,:,jp_tem), zts(:,:,jp_sal) ) 152 ELSE ; sst_m(:,:) = sst_m(:,:) + zts(:,:,jp_tem) 163 IF( l_useCT ) THEN 164 !$OMP PARALLEL WORKSHARE 165 sst_m(:,:) = sst_m(:,:) + eos_pt_from_ct( zts(:,:,jp_tem), zts(:,:,jp_sal) ) 166 !$OMP END PARALLEL WORKSHARE 167 ELSE 168 !$OMP PARALLEL WORKSHARE 169 sst_m(:,:) = sst_m(:,:) + zts(:,:,jp_tem) 170 !$OMP END PARALLEL WORKSHARE 153 171 ENDIF 154 172 !$OMP PARALLEL WORKSHARE … … 158 176 IF( ln_apr_dyn ) THEN 159 177 !$OMP PARALLEL WORKSHARE 160 ssh_m(:,:) = ssh_m(:,:) + sshn(:,:) - 0.5 * ( ssh_ib(:,:) + ssh_ibb(:,:) )178 ssh_m(:,:) = ssh_m(:,:) + sshn(:,:) - 0.5 * ( ssh_ib(:,:) + ssh_ibb(:,:) ) 161 179 !$OMP END PARALLEL WORKSHARE 162 180 ELSE 163 181 !$OMP PARALLEL WORKSHARE 164 ssh_m(:,:) = ssh_m(:,:) + sshn(:,:)182 ssh_m(:,:) = ssh_m(:,:) + sshn(:,:) 165 183 !$OMP END PARALLEL WORKSHARE 166 184 ENDIF … … 257 275 CALL iom_get( numror, jpdom_autoglo, 'frq_m' , frq_m ) 258 276 ELSE 277 !$OMP PARALLEL WORKSHARE 259 278 frq_m(:,:) = 1._wp ! default definition 279 !$OMP END PARALLEL WORKSHARE 260 280 ENDIF 261 281 !
Note: See TracChangeset
for help on using the changeset viewer.