Changeset 5240 for branches/UKMO/dev_r5021_nn_etau_revision/NEMOGCM/NEMO/LIM_SRC_2/ice_2.F90

Timestamp:

2015-04-29T12:17:12+02:00 (9 years ago)

Author:

davestorkey

Message:

Update UKMO nn_etau_revision branch with trunk changes to rev 5107.

File:

• branches/UKMO/dev_r5021_nn_etau_revision/NEMOGCM/NEMO/LIM_SRC_2/ice_2.F90 (modified) (1 diff)

branches/UKMO/dev_r5021_nn_etau_revision/NEMOGCM/NEMO/LIM_SRC_2/ice_2.F90

@@ -57 +57 @@
    REAL(wp), PUBLIC ::   sangvg, cangvg        !: sin and cos of the turning angle for ocean stress
    REAL(wp), PUBLIC ::   pstarh                !: pstar / 2.0
+
+   !                                !!** switch for presence of ice or not 
+   REAL(wp), PUBLIC ::   rswitch
 
    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) ::   ahiu , ahiv   !: hor. diffusivity coeff. at ocean U- and V-points (m2/s)