Changeset 5159 for branches/2015/dev_r5021_UKMO1_CICE_coupling
- Timestamp:
- 2015-03-23T13:47:00+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5021_UKMO1_CICE_coupling/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
r5119 r5159 704 704 REAL(wp) :: zcdrag = 1.5e-3 ! drag coefficient 705 705 REAL(wp) :: zzx, zzy ! temporary variables 706 REAL(wp), POINTER, DIMENSION :,:) :: ztx, zty706 REAL(wp), POINTER, DIMENSION(:,:) :: ztx, zty 707 707 !!---------------------------------------------------------------------- 708 708 !
Note: See TracChangeset
for help on using the changeset viewer.
