Changeset 1468 for trunk/NEMO/OPA_SRC/SBC/sbccpl.F90
- Timestamp:
- 2009-06-11T10:52:29+02:00 (15 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/SBC/sbccpl.F90
r1467 r1468 848 848 849 849 850 SUBROUTINE sbc_cpl_ice_flx( p_frld , palbi , psst , pist ,&850 SUBROUTINE sbc_cpl_ice_flx( p_frld , & 851 851 & pqns_tot, pqns_ice, pqsr_tot , pqsr_ice, & 852 & pemp_tot, pemp_ice, pdqns_ice, psprecip ) 852 & pemp_tot, pemp_ice, pdqns_ice, psprecip, & 853 & palbi , psst , pist ) 853 854 !!---------------------------------------------------------------------- 854 855 !! *** ROUTINE sbc_cpl_ice_flx_rcv *** … … 895 896 !!---------------------------------------------------------------------- 896 897 REAL(wp), INTENT(in ), DIMENSION(jpi,jpj,jpl) :: p_frld ! lead fraction [0 to 1] 897 REAL(wp), INTENT(in ), DIMENSION(jpi,jpj,jpl) :: palbi ! ice albedo898 REAL(wp), INTENT(in ), DIMENSION(jpi,jpj ) :: psst ! sea surface temperature [Celcius]899 REAL(wp), INTENT(in ), DIMENSION(jpi,jpj,jpl) :: pist ! ice surface temperature [Kelvin]900 898 REAL(wp), INTENT( out), DIMENSION(jpi,jpj ) :: pqns_tot ! total non solar heat flux [W/m2] 901 899 REAL(wp), INTENT( out), DIMENSION(jpi,jpj,jpl) :: pqns_ice ! ice non solar heat flux [W/m2] … … 906 904 REAL(wp), INTENT( out), DIMENSION(jpi,jpj ) :: psprecip ! Net solid precipitation (=emp_ice) [Kg/m2/s] 907 905 REAL(wp), INTENT( out), DIMENSION(jpi,jpj,jpl) :: pdqns_ice ! d(Q non solar)/d(Temperature) over ice 906 ! optional arguments, used only in 'mixed oce-ice' case 907 REAL(wp), INTENT(in ), DIMENSION(jpi,jpj,jpl), OPTIONAL :: palbi ! ice albedo 908 REAL(wp), INTENT(in ), DIMENSION(jpi,jpj ), OPTIONAL :: psst ! sea surface temperature [Celcius] 909 REAL(wp), INTENT(in ), DIMENSION(jpi,jpj,jpl), OPTIONAL :: pist ! ice surface temperature [Kelvin] 908 910 !! 909 911 INTEGER :: ji, jj ! dummy loop indices … … 1220 1222 END SUBROUTINE sbc_cpl_ice_tau 1221 1223 ! 1222 SUBROUTINE sbc_cpl_ice_flx( p_frld , palbi , psst , pist ,&1224 SUBROUTINE sbc_cpl_ice_flx( p_frld , & 1223 1225 & pqns_tot, pqns_ice, pqsr_tot , pqsr_ice, & 1224 & pemp_tot, pemp_ice, pdqns_ice, psprecip ) 1226 & pemp_tot, pemp_ice, pdqns_ice, psprecip, & 1227 & palbi , psst , pist ) 1225 1228 REAL(wp), INTENT(in ), DIMENSION(:,:,:) :: p_frld ! lead fraction [0 to 1] 1226 REAL(wp), INTENT(in ), DIMENSION(:,:,:) :: palbi ! ice albedo1227 REAL(wp), INTENT(in ), DIMENSION(:,: ) :: psst ! sea surface temperature [Celcius]1228 REAL(wp), INTENT(in ), DIMENSION(:,:,:) :: pist ! ice surface temperature [Kelvin]1229 1229 REAL(wp), INTENT( out), DIMENSION(:,: ) :: pqns_tot ! total non solar heat flux [W/m2] 1230 1230 REAL(wp), INTENT( out), DIMENSION(:,:,:) :: pqns_ice ! ice non solar heat flux [W/m2] … … 1235 1235 REAL(wp), INTENT( out), DIMENSION(:,:,:) :: pdqns_ice ! d(Q non solar)/d(Temperature) over ice 1236 1236 REAL(wp), INTENT( out), DIMENSION(:,: ) :: psprecip ! solid precipitation [Kg/m2/s] 1237 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) 1237 REAL(wp), INTENT(in ), DIMENSION(:,:,:), OPTIONAL :: palbi ! ice albedo 1238 REAL(wp), INTENT(in ), DIMENSION(:,: ), OPTIONAL :: psst ! sea surface temperature [Celcius] 1239 REAL(wp), INTENT(in ), DIMENSION(:,:,:), OPTIONAL :: pist ! ice surface temperature [Kelvin] 1240 WRITE(*,*) 'sbc_cpl_snd: You should not have seen this print! error?', p_frld(1,1,1) 1238 1241 ! stupid definition to avoid warning message when compiling... 1239 1242 pqns_tot(:,:) = 0. ; pqns_ice(:,:,:) = 0. ; pdqns_ice(:,:,:) = 0.
Note: See TracChangeset
for help on using the changeset viewer.