- Timestamp:
- 2014-04-06T17:28:25+02:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_CNRS0_NOC1_LDF/NEMOGCM/NEMO/OPA_SRC/SBC/sbc_oce.F90
r4306 r4616 168 168 !!--------------------------------------------------------------------- 169 169 zcoef = 0.5 / ( zrhoa * zcdrag ) 170 !CDIR NOVERRCHK171 170 DO jj = 2, jpjm1 172 !CDIR NOVERRCHK173 171 DO ji = fs_2, fs_jpim1 ! vect. opt. 174 172 ztx = utau(ji-1,jj ) + utau(ji,jj)
Note: See TracChangeset
for help on using the changeset viewer.