Changeset 1053 for trunk/NEMO
- Timestamp:
- 2008-06-04T16:25:55+02:00 (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMO/OPA_SRC/SBC/sbcice_lim.F90
r959 r1053 143 143 SELECT CASE( kblk ) 144 144 CASE( 3 ) ! CLIO bulk formulation 145 CALL blk_ice_clio( t_su , u_ice , v_ice , alb_ice_cs, alb_ice_os,&146 & utaui_ice , vtaui_ice , qns_ice , qsr_ice , &147 & qla_ice , dqns_ice , dqla_ice , &148 & tprecip , sprecip , &149 & fr1_i0 , fr2_i0 , cl_grid )145 CALL blk_ice_clio( t_su , alb_ice_cs, alb_ice_os, & 146 & utaui_ice , vtaui_ice , qns_ice , qsr_ice , & 147 & qla_ice , dqns_ice , dqla_ice , & 148 & tprecip , sprecip , & 149 & fr1_i0 , fr2_i0 , cl_grid ) 150 150 ! 151 151 CASE( 4 ) ! CORE bulk formulation
Note: See TracChangeset
for help on using the changeset viewer.