Changeset 2884


Ignore:
Timestamp:
2011-10-03T12:11:05+02:00 (9 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:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/2011/dev_r2802_UKMO8_cice/NEMOGCM/NEMO/OPA_SRC/SBC/sbc_ice.F90

    r2874 r2884  
    8282   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:)   ::   ss_iou             !: x ice-ocean surface stress at NEMO U point 
    8383   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:)   ::   ss_iov             !: y ice-ocean surface stress at NEMO V point 
     84   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:)   ::   emp_ice            !: sublimation-snow budget over ice    [kg/m2] 
    8485   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:)   ::   tatm_ice           !: air temperature 
    8586   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:)   ::   qatm_ice           !: specific humidity 
  • branches/2011/dev_r2802_UKMO8_cice/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_cice.F90

    r2874 r2884  
    576576 
    577577#else 
    578    SUBROUTINE cice_sbc_hadgam (kt)    ! Dummy routine 
    579       INTEGER, INTENT( in  ) ::   kt ! ocean time step 
     578   SUBROUTINE cice_sbc_hadgam( kt )    ! Dummy routine 
     579      INTEGER, INTENT( in  ) ::   kt   ! ocean time step 
    580580      WRITE(*,*) 'cice_sbc_hadgam: You should not have seen this print! error?' 
    581581   END SUBROUTINE cice_sbc_hadgam 
Note: See TracChangeset for help on using the changeset viewer.