Changeset 2884
- Timestamp:
- 2011-10-03T12:11:05+02:00 (13 years ago)
- 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 82 82 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: ss_iou !: x ice-ocean surface stress at NEMO U point 83 83 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] 84 85 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: tatm_ice !: air temperature 85 86 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 576 576 577 577 #else 578 SUBROUTINE cice_sbc_hadgam (kt) ! Dummy routine579 INTEGER, INTENT( in ) :: kt ! ocean time step578 SUBROUTINE cice_sbc_hadgam( kt ) ! Dummy routine 579 INTEGER, INTENT( in ) :: kt ! ocean time step 580 580 WRITE(*,*) 'cice_sbc_hadgam: You should not have seen this print! error?' 581 581 END SUBROUTINE cice_sbc_hadgam
Note: See TracChangeset
for help on using the changeset viewer.