Changeset 13481
- Timestamp:
- 2020-09-16T19:14:51+02:00 (4 years ago)
- Location:
- NEMO/releases/r4.0/r4.0-HEAD/src/OCE
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/releases/r4.0/r4.0-HEAD/src/OCE/SBC/sbcmod.F90
r13284 r13481 130 130 #endif 131 131 ! 132 #if ! defined key_si3 133 IF( nn_ice == 2 ) nn_ice = 0 ! without key key_si3 you cannot use si3... 134 #endif 135 ! 132 136 IF(lwp) THEN !* Control print 133 137 WRITE(numout,*) ' Namelist namsbc (partly overwritten with CPP key setting)' -
NEMO/releases/r4.0/r4.0-HEAD/src/OCE/ZDF/zdfdrg.F90
r13284 r13481 245 245 IF(lwm) WRITE ( numond, namdrg ) 246 246 ! 247 IF( ln_drgice_imp .AND. nn_ice /= 2 ) ln_drgice_imp = .FALSE. 248 ! 247 249 IF(lwp) THEN 248 250 WRITE(numout,*) … … 269 271 & CALL ctl_stop( 'zdf_drg_init: ln_drgice_imp=T requires ln_drgimp=T' ) 270 272 ! 271 IF ( ln_drgice_imp.AND.( nn_ice /=2 ) ) &272 & CALL ctl_stop( 'zdf_drg_init: ln_drgice_imp=T requires si3' )273 !274 273 ! !== BOTTOM drag setting ==! (applied at seafloor) 275 274 ! … … 277 276 CALL drg_init( 'BOTTOM' , mbkt , & ! <== in 278 277 & r_Cdmin_bot, r_Cdmax_bot, r_z0_bot, r_ke0_bot, rCd0_bot, rCdU_bot ) ! ==> out 279 280 278 ! 281 279 ! !== TOP drag setting ==! (applied at the top of ocean cavities)
Note: See TracChangeset
for help on using the changeset viewer.