Changeset 2885
- Timestamp:
- 2011-10-03T12:12:14+02:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_r2802_UKMO8_sbccpl/NEMOGCM/NEMO/OPA_SRC/SBC/sbccpl.F90
r2834 r2885 139 139 140 140 #if ! defined key_lim2 && ! defined key_lim3 141 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: u_ice, v_ice,fr1_i0,fr2_i0 , emp_ice! jpi, jpj141 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: u_ice, v_ice,fr1_i0,fr2_i0 ! jpi, jpj 142 142 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: tn_ice, alb_ice, qns_ice, dqns_ice ! (jpi,jpj,jpl) 143 143 #endif … … 147 147 #elif ! defined key_lim2 && ! defined key_lim3 148 148 INTEGER, PARAMETER :: jpl = 1 149 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) :: emp_ice 149 150 REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: qsr_ice 150 151 #endif … … 1589 1590 ! 1590 1591 SUBROUTINE sbc_cpl_ice_flx( p_frld , palbi , psst , pist ) 1591 REAL(wp), INTENT(in ), DIMENSION(:,: ,:) :: p_frld ! lead fraction [0 to 1]1592 REAL(wp), INTENT(in ), DIMENSION(:,: ) :: p_frld ! lead fraction [0 to 1] 1592 1593 REAL(wp), INTENT(in ), DIMENSION(:,:,:), OPTIONAL :: palbi ! ice albedo 1593 1594 REAL(wp), INTENT(in ), DIMENSION(:,: ), OPTIONAL :: psst ! sea surface temperature [Celcius] 1594 1595 REAL(wp), INTENT(in ), DIMENSION(:,:,:), OPTIONAL :: pist ! ice surface temperature [Kelvin] 1595 WRITE(*,*) 'sbc_cpl_snd: You should not have seen this print! error?', p_frld(1,1 ,1), palbi(1,1,1), psst(1,1), pist(1,1,1)1596 WRITE(*,*) 'sbc_cpl_snd: You should not have seen this print! error?', p_frld(1,1), palbi(1,1,1), psst(1,1), pist(1,1,1) 1596 1597 END SUBROUTINE sbc_cpl_ice_flx 1597 1598
Note: See TracChangeset
for help on using the changeset viewer.