Changeset 5009 for trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbc_ice.F90

Timestamp:

2015-01-05T17:36:11+01:00 (9 years ago)

Author:

davestorkey

Message:

Fixes for bugs when running with key_cice. See ticket #1427

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbc_ice.F90 (modified) (1 diff)

trunk/NEMOGCM/NEMO/OPA_SRC/SBC/sbc_ice.F90

@@ -82 +82 @@
    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:)   ::   ss_iou             !: x ice-ocean surface stress at NEMO U point
    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:)   ::   ss_iov             !: y ice-ocean surface stress at NEMO V point
-   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:)   ::   emp_ice            !: sublimation-snow budget over ice    [kg/m2]
    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:)   ::   qatm_ice           !: specific humidity
    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:)   ::   wndi_ice           !: i wind at T point