- Timestamp:
- 2013-11-14T18:02:06+01:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/OPA_SRC/SBC/sbcmod.F90
r4161 r4205 136 136 ENDIF 137 137 138 ! Flux handling over ice categories 138 ! Flux handling over ice categories 139 #if defined key_coupled 139 140 SELECT CASE ( TRIM (cn_iceflx)) 140 141 CASE ('ave') … … 150 151 IF(lwp) WRITE(numout,*) ' Fluxes averaged over all ice categories ln_iceflx_ave = ', ln_iceflx_ave 151 152 IF(lwp) WRITE(numout,*) ' Fluxes distributed linearly over ice categories ln_iceflx_linear = ', ln_iceflx_linear 153 #endif 152 154 ! 153 155 ! ! allocate sbc arrays … … 189 191 IF( ( nn_ice == 3 .OR. nn_ice == 4 ) .AND. nn_ice_embd == 0 ) & 190 192 & CALL ctl_stop( 'LIM3 and CICE sea-ice models require nn_ice_embd = 1 or 2' ) 191 193 #if defined key_coupled 192 194 IF( ln_iceflx_ave .AND. ln_iceflx_linear ) & 193 195 & CALL ctl_stop( ' ln_iceflx_ave and ln_iceflx_linear options are not compatible' ) 194 195 196 IF( ( nn_ice ==3 .AND. lk_cpl) .AND. .NOT. ( ln_iceflx_ave .OR. ln_iceflx_linear ) ) & 196 197 & CALL ctl_stop( ' With lim3 coupled, either ln_iceflx_ave or ln_iceflx_linear must be set to .TRUE.' ) 197 198 #endif 198 199 IF( ln_dm2dc ) nday_qsr = -1 ! initialisation flag 199 200 … … 247 248 IF( nsbc == 6 ) WRITE(numout,*) ' MFS Bulk formulation' 248 249 ENDIF 249 250 250 ! 251 251 CALL sbc_ssm_init ! Sea-surface mean fields initialisation … … 255 255 IF( nn_ice == 4 ) CALL cice_sbc_init( nsbc ) ! CICE initialisation 256 256 ! 257 258 257 END SUBROUTINE sbc_init 259 258 … … 329 328 CASE( 3 ) ; CALL sbc_ice_lim ( kt, nsbc ) ! LIM-3 ice model 330 329 !is it useful? 331 !CASE( 4 ) ; CALL sbc_ice_cice ( kt, nsbc ) ! CICE ice model330 CASE( 4 ) ; CALL sbc_ice_cice ( kt, nsbc ) ! CICE ice model 332 331 END SELECT 333 332
Note: See TracChangeset
for help on using the changeset viewer.