Changeset 2884

Timestamp:

2011-10-03T12:11:05+02:00 (13 years ago)

Author:

charris

Message:

#662 Tidying + changes to make sure NEMO-CICE model will compile OK.

Location:

branches/2011/dev_r2802_UKMO8_cice/NEMOGCM/NEMO/OPA_SRC/SBC

Files:

• sbc_ice.F90 (modified) (1 diff)
• sbcice_cice.F90 (modified) (1 diff)

branches/2011/dev_r2802_UKMO8_cice/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(:,:)   ::   tatm_ice           !: air temperature
    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:)   ::   qatm_ice           !: specific humidity

branches/2011/dev_r2802_UKMO8_cice/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90

@@ -576 +576 @@
 
 #else
-   SUBROUTINE cice_sbc_hadgam (kt)    ! Dummy routine
-      INTEGER, INTENT( in  ) ::   kt ! ocean time step
+   SUBROUTINE cice_sbc_hadgam( kt )    ! Dummy routine
+      INTEGER, INTENT( in  ) ::   kt   ! ocean time step
       WRITE(*,*) 'cice_sbc_hadgam: You should not have seen this print! error?'
    END SUBROUTINE cice_sbc_hadgam