Changeset 6041 for branches/2015/dev_r5776_UKMO2_OBS_efficiency_improvs/NEMOGCM/NEMO/OPA_SRC/SBC/sbc_oce.F90
- Timestamp:
- 2015-12-14T10:06:06+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5776_UKMO2_OBS_efficiency_improvs/NEMOGCM/NEMO/OPA_SRC/SBC/sbc_oce.F90
r5407 r6041 80 80 INTEGER , PUBLIC, PARAMETER :: jp_mfs = 6 !: MFS bulk formulation 81 81 INTEGER , PUBLIC, PARAMETER :: jp_none = 7 !: for OPA when doing coupling via SAS module 82 INTEGER , PUBLIC, PARAMETER :: jp_esopa = -1 !: esopa test, ALL formulations83 82 84 83 !!---------------------------------------------------------------------- … … 200 199 !!--------------------------------------------------------------------- 201 200 zcoef = 0.5 / ( zrhoa * zcdrag ) 202 !CDIR NOVERRCHK203 201 DO jj = 2, jpjm1 204 !CDIR NOVERRCHK205 202 DO ji = fs_2, fs_jpim1 ! vect. opt. 206 203 ztx = utau(ji-1,jj ) + utau(ji,jj)
Note: See TracChangeset
for help on using the changeset viewer.