Changeset 5056 for trunk/NEMOGCM
- Timestamp:
- 2015-02-04T11:45:31+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/LIM_SRC_2/ice_2.F90
r4306 r5056 57 57 REAL(wp), PUBLIC :: sangvg, cangvg !: sin and cos of the turning angle for ocean stress 58 58 REAL(wp), PUBLIC :: pstarh !: pstar / 2.0 59 60 ! !!** switch for presence of ice or not 61 REAL(wp), PUBLIC :: rswitch 59 62 60 63 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: ahiu , ahiv !: hor. diffusivity coeff. at ocean U- and V-points (m2/s)
Note: See TracChangeset
for help on using the changeset viewer.